ايران ويج

hc hdk jd` fvk,hli ih cdhni

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

مرسي متوجه شدم :wink:

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

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

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

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

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

خوب بدي گفتن از چيزي آسونه! اينم چند تا از خصوصيات پي اس شما:
1- از متد Get استفاده ميكنه! اي بابا مال من كه بهتر بود Post بود! حالا شما تو History يه نگاه بنداز تمام آي دي ها و پاس ها و ... هست. :twisted:
2- فايل ميل شما هم www.khazama.com/bps.aspx بود (اينو تو فايل ديدم!!)
3 شما واسه فرستادن ميل يه پنجره رو باز ميكني بعدشم مخفي ميكني (فك ميكنم) كه باعث شد ظاهر همه IE ها عوض شه! در ضمن حسابي سرعت سيستم رو آورد پايين مجبور شدم ريستارت كنم (جدي ميگم).
4- استارت آپ نشد!! چند بار اجرا كردم ولي بازم استارت آپ نشد!! شما هم از همون مسير رجستري كريشنا استفاده كرديد ولي متاسفانه واسه من كار نميكنه(اينم تو فايل ديدم!)
5- حتما تو ورژن جديد همه اينها حل شده! اون جوري كه ميگفتي روشت واسه ميل توسط فايروال شناسايي نميشه گفتم حتما يه تابع جديد هست و من نميدونم فك كردم با PostMessage ميل ميزني!!!
6- در ضمن شما هم URLDownloadToFile تو پي اس استفاده كردي كه فورا فايروال گير ميده (واسه اون بخش دانلودر پي اس)
فقط نميدونم اين فايل yd.exe چيه كه تو اشتراك Ripway شما هست ولي الان نيست!!(اينم تو MeM برنامه لود شده بود)
خسته نباشيــــــــد به قول شما اين روش ميل زدنت خيلي تابلو بود!! :wink:

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

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

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

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

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

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:

:lol:

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

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

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

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