حالت موضوعی | حالت خطی

**amirjan**

hc hdk jd` fvk,hli ih cdhni

kamran11958

amirjan نوشته است:hc hdk jd` fvk,hli ih cdhni

مرسي متوجه شدم Amaze

:wink:

Mamad2003

آقا كامي من جمله اميرجان رو از زباني كه اون باهاش نوشته ترجمه مي كنم به فارسي : 8O

اميرجان فرمودند : از اين تيپ برنامه ها زياده .

اينم از ترجمه زبانهاي نا معلوم به فارسي 8O Amaze

kamran11958

behzad-hacker نوشته است:اين برنامه چيزي جز يه webdownloadr نيست كه چند تا فايلو با چه تابلوي ميخاد داونلود كنه ( اگه قبلش فايروال رو Ok كنيد البته )

اميدوارم كه از طرز انتقادم ناراحت نشده باشيد . ولي اينجور به نظر ميرسه كه شما با چند تا فايل كه از اينطرف اونطرف گرفتي و بدون زحمت خودت ميخاي اينو بزرگ جلوه بدي .

خوب بدي گفتن از چيزي آسونه! Amaze

اينم چند تا از خصوصيات پي اس شما:
1- از متد Get استفاده ميكنه! Amaze

اي بابا مال من كه بهتر بود Post بود! حالا شما تو History يه نگاه بنداز تمام آي دي ها و پاس ها و ... هست. :twisted:
2- فايل ميل شما هم www.khazama.com/bps.aspx بود (اينو تو فايل ديدم!!)
3 شما واسه فرستادن ميل يه پنجره رو باز ميكني بعدشم مخفي ميكني (فك ميكنم) كه باعث شد ظاهر همه IE ها عوض شه! در ضمن حسابي سرعت سيستم رو آورد پايين مجبور شدم ريستارت كنم (جدي ميگم).
4- استارت آپ نشد!! چند بار اجرا كردم ولي بازم استارت آپ نشد!! شما هم از همون مسير رجستري كريشنا استفاده كرديد ولي متاسفانه واسه من كار نميكنه(اينم تو فايل ديدم!)
5- Amaze

حتما تو ورژن جديد همه اينها حل شده! اون جوري كه ميگفتي روشت واسه ميل توسط فايروال شناسايي نميشه گفتم حتما يه تابع جديد هست و من نميدونم فك كردم با PostMessage ميل ميزني!!! Amaze

6- در ضمن شما هم URLDownloadToFile تو پي اس استفاده كردي كه فورا فايروال گير ميده (واسه اون بخش دانلودر پي اس)
فقط نميدونم اين فايل yd.exe چيه كه تو اشتراك Ripway شما هست ولي الان نيست!!(اينم تو MeM برنامه لود شده بود)
خسته نباشيــــــــد به قول شما اين روش ميل زدنت خيلي تابلو بود!! Amaze

:wink:

**amirjan**

ااااا !!! چرا اينجوري شد ؟! درسته آقا ممد ، گفته بودم ، از اين تيپ برنامه ها زياده ، يكيش password stealer dec

**amirjan**

Mamad2003 نوشته است:آقا كامي من جمله اميرجان رو از زباني كه اون باهاش نوشته ترجمه مي كنم به فارسي : 8O

اميرجان فرمودند : از اين تيپ برنامه ها زياده .

اينم از ترجمه زبانهاي نا معلوم به فارسي 8O

ديدم بي كارم ، گفتم اينو بنويسم !!

کد: 
Function ENkey2FA(InputStr As String)

Dim Extr

Dim OutPut

InputStr = LCase(InputStr)

Extr = ""

OutPut = ""

For i = 1 To Len(InputStr)

Extr = Mid(InputStr, i, 1)

If Extr = "`" Then

OutPut = OutPut & "Ž"

ElseIf Extr = "q" Then

OutPut = OutPut & "Ö"

ElseIf Extr = "w" Then

OutPut = OutPut & "Õ"

ElseIf Extr = "e" Then

OutPut = OutPut & "Ë"

ElseIf Extr = "r" Then

OutPut = OutPut & "Þ"

ElseIf Extr = "t" Then

OutPut = OutPut & "Ý"

ElseIf Extr = "y" Then

OutPut = OutPut & "Û"

ElseIf Extr = "u" Then

OutPut = OutPut & "Ú"

ElseIf Extr = "i" Then

OutPut = OutPut & "å"

ElseIf Extr = "o" Then

OutPut = OutPut & "Î"

ElseIf Extr = "p" Then

OutPut = OutPut & "Í"

ElseIf Extr = "[" Then

OutPut = OutPut & "Ì"

ElseIf Extr = "]" Then

OutPut = OutPut & ""

ElseIf Extr = "a" Then

OutPut = OutPut & "Ô"

ElseIf Extr = "s" Then

OutPut = OutPut & "Ó"

ElseIf Extr = "d" Then

OutPut = OutPut & "í"

ElseIf Extr = "f" Then

OutPut = OutPut & "È"

ElseIf Extr = "g" Then

OutPut = OutPut & "á"

ElseIf Extr = "h" Then

OutPut = OutPut & "Ç"

ElseIf Extr = "j" Then

OutPut = OutPut & "Ê"

ElseIf Extr = "k" Then

OutPut = OutPut & "ä"

ElseIf Extr = "l" Then

OutPut = OutPut & "ã"

ElseIf Extr = ";" Then

OutPut = OutPut & "˜"

ElseIf Extr = "'" Then

OutPut = OutPut & ""

ElseIf Extr = "z" Then

OutPut = OutPut & "Ù"

ElseIf Extr = "x" Then

OutPut = OutPut & "Ø"

ElseIf Extr = "c" Then

OutPut = OutPut & "Ò"

ElseIf Extr = "v" Then

OutPut = OutPut & "Ñ"

ElseIf Extr = "b" Then

OutPut = OutPut & "Ð"

ElseIf Extr = "n" Then

OutPut = OutPut & "Ï"

ElseIf Extr = "m" Then

OutPut = OutPut & "Æ"

ElseIf Extr = "," Then

OutPut = OutPut & "æ"

ElseIf Extr = "." Then

OutPut = OutPut & "."

ElseIf Extr = "/" Then

OutPut = OutPut & "/"

ElseIf Extr = "\" Then

OutPut = OutPut & ""

Else

OutPut = OutPut & Extr

End If

Next

ENkey2FA = OutPut

End Function

kamran11958

amirjan نوشته است:
Mamad2003 نوشته است:آقا كامي من جمله اميرجان رو از زباني كه اون باهاش نوشته ترجمه مي كنم به فارسي : 8O

اميرجان فرمودند : از اين تيپ برنامه ها زياده .

اينم از ترجمه زبانهاي نا معلوم به فارسي 8O
ديدم بي كارم ، گفتم اينو بنويسم !!

کد:
Function ENkey2FA(InputStr As String) Dim Extr Dim OutPut InputStr = LCase(InputStr) Extr = "" OutPut = "" For i = 1 To Len(InputStr) Extr = Mid(InputStr, i, 1) If Extr = "`" Then OutPut = OutPut & "Ž" ElseIf Extr = "q" Then OutPut = OutPut & "Ö" ElseIf Extr = "w" Then OutPut = OutPut & "Õ" ElseIf Extr = "e" Then OutPut = OutPut & "Ë" ElseIf Extr = "r" Then OutPut = OutPut & "Þ" ElseIf Extr = "t" Then OutPut = OutPut & "Ý" ElseIf Extr = "y" Then OutPut = OutPut & "Û" ElseIf Extr = "u" Then OutPut = OutPut & "Ú" ElseIf Extr = "i" Then OutPut = OutPut & "å" ElseIf Extr = "o" Then OutPut = OutPut & "Î" ElseIf Extr = "p" Then OutPut = OutPut & "Í" ElseIf Extr = "[" Then OutPut = OutPut & "Ì" ElseIf Extr = "]" Then OutPut = OutPut & "" ElseIf Extr = "a" Then OutPut = OutPut & "Ô" ElseIf Extr = "s" Then OutPut = OutPut & "Ó" ElseIf Extr = "d" Then OutPut = OutPut & "í" ElseIf Extr = "f" Then OutPut = OutPut & "È" ElseIf Extr = "g" Then OutPut = OutPut & "á" ElseIf Extr = "h" Then OutPut = OutPut & "Ç" ElseIf Extr = "j" Then OutPut = OutPut & "Ê" ElseIf Extr = "k" Then OutPut = OutPut & "ä" ElseIf Extr = "l" Then OutPut = OutPut & "ã" ElseIf Extr = ";" Then OutPut = OutPut & "˜" ElseIf Extr = "'" Then OutPut = OutPut & "" ElseIf Extr = "z" Then OutPut = OutPut & "Ù" ElseIf Extr = "x" Then OutPut = OutPut & "Ø" ElseIf Extr = "c" Then OutPut = OutPut & "Ò" ElseIf Extr = "v" Then OutPut = OutPut & "Ñ" ElseIf Extr = "b" Then OutPut = OutPut & "Ð" ElseIf Extr = "n" Then OutPut = OutPut & "Ï" ElseIf Extr = "m" Then OutPut = OutPut & "Æ" ElseIf Extr = "," Then OutPut = OutPut & "æ" ElseIf Extr = "." Then OutPut = OutPut & "." ElseIf Extr = "/" Then OutPut = OutPut & "/" ElseIf Extr = "\" Then OutPut = OutPut & "" Else OutPut = OutPut & Extr End If Next ENkey2FA = OutPut End Function

واقعا كه بيكاري! :wink: Amaze

**amirjan**

:lol:

**amirjan**

:lol:

تازه مي خواستم FAkey2EN هم بنويسم !!!

Mamad2003

بابا چه جالب ! Amaze

راستي اميرجان چرا اينهمه Elseif نوشتي ؟؟؟؟
خوب بابا دل اون كسي كه select case رو چپوند تو بيسيك شيكوندي !! Amaze

**amirjan**

Mamad2003 نوشته است:بابا چه جالب !
راستي اميرجان چرا اينهمه Elseif نوشتي ؟؟؟؟
خوب بابا دل اون كسي كه select case رو چپوند تو بيسيك شيكوندي !!

آدم بيكار مخش هم خرابه ديگه !! Amaze

موضوعات مرتبط با این موضوع...
موضوع		نویسنده	پاسخ	بازدید	آخرین ارسال
	درخواست ساخت يك تلفن سندر جديد	ekrami	0	2,496	۲۱-شهریور-۱۳۸۶, ۱۳:۱۲:۵۶ آخرین ارسال: ekrami
	انتی پسورد سندر برای دوستان	impostor	23	16,212	۲۵-بهمن-۱۳۸۴, ۱۹:۲۴:۴۰ آخرین ارسال: impostor
	جي سندر 1.6 هم اومد!	kamran11958	1	2,117	۱۹-خرداد-۱۳۸۴, ۲۱:۱۵:۵۰ آخرین ارسال: ghassem
	جي سندر يه پي اس قوي!!	kamran11958	6	5,384	۲۲-فروردین-۱۳۸۴, ۱۴:۲۳:۱۸ آخرین ارسال: kamran11958
	سورس برنامه نمايان كننده پاسورد ياهو مسنجر در وي بي!	kamran11958	50	27,282	۱۵-بهمن-۱۳۸۳, ۱۷:۴۲:۴۲ آخرین ارسال: Kouros

حالت موضوعی \| حالت خطی پاسورد سندر قوي.
نویسنده	پیام