پاسورد سندر قوي.

[amirjan]

آقا كامي من جمله اميرجان رو از زباني كه اون باهاش نوشته ترجمه مي كنم به فارسي : 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