vigenere ile kodlanmıs sifeyi cozmek

[can-can]

merhaba arkaslar, sorum su mesela faruk isimini farklı harfler ile yazsam misal:
faruk:rtkyp yani f:r oluyor. bunun gibi .tekrardan eski haline getirebilirmiyim. veya elimde bulunan sifreyi normal kelimeye cevirebilirmiyim ?internette arastırdım bunu buldum ne yaptıysam da calıstıramadım yardımcı olacak arkadaslara simdiden tesekkurler.

[CODE]

Sub sifrele() 'Hazırlayan evren Gizlen 'evrengizlen@hotmail.com 'Şifreyi a1 hücresine yazar Dim i As Integer, k As Byte, deg As String, deg2 As String ReDim myarr(1 To 33, 1 To 3) myarr(1, 1) = "A": myarr(1, 2) = "as": myarr(1, 3) = "hf" myarr(2, 1) = "B": myarr(2, 2) = "vc": myarr(2, 3) = "ts" myarr(3, 1) = "C": myarr(3, 2) = "qw": myarr(3, 3) = "ip" myarr(4, 1) = "D": myarr(4, 2) = "gf": myarr(4, 3) = "il" myarr(5, 1) = "E": myarr(5, 2) = "sa": myarr(5, 3) = "nb" myarr(6, 1) = "F": myarr(6, 2) = "zs": myarr(6, 3) = "df" myarr(7, 1) = "G": myarr(7, 2) = "pl": myarr(7, 3) = "re" myarr(8, 1) = "H": myarr(8, 2) = "xn": myarr(8, 3) = "vb" myarr(9, 1) = "I": myarr(9, 2) = "uy": myarr(9, 3) = "fd" myarr(10, 1) = "J": myarr(10, 2) = "qa": myarr(10, 3) = "üo" myarr(11, 1) = "K": myarr(11, 2) = "we": myarr(11, 3) = "yt" myarr(12, 1) = "L": myarr(12, 2) = "gf": myarr(12, 3) = "xb" myarr(13, 1) = "M": myarr(13, 2) = "gs": myarr(13, 3) = "jh" myarr(14, 1) = "N": myarr(14, 2) = "lk": myarr(14, 3) = "gb" myarr(15, 1) = "O": myarr(15, 2) = "te": myarr(15, 3) = "jt" myarr(16, 1) = "P": myarr(16, 2) = "qm": myarr(16, 3) = "kc" myarr(17, 1) = "Q": myarr(17, 2) = "xp": myarr(7, 3) = "zl" myarr(18, 1) = "R": myarr(18, 2) = "xh": myarr(18, 3) = "öx" myarr(19, 1) = "S": myarr(19, 2) = "wp": myarr(19, 3) = "tb" myarr(20, 1) = "T": myarr(20, 2) = "ğş": myarr(20, 3) = "ye" myarr(21, 1) = "U": myarr(21, 2) = "çm": myarr(21, 3) = "bv" myarr(22, 1) = "V": myarr(22, 2) = "fs": myarr(22, 3) = "rw" myarr(23, 1) = "W": myarr(23, 2) = "zs": myarr(23, 3) = "kd" myarr(24, 1) = "X": myarr(24, 2) = "qş": myarr(24, 3) = "bq" myarr(25, 1) = "Y": myarr(25, 2) = "sz": myarr(25, 3) = "kh" myarr(26, 1) = "Z": myarr(26, 2) = "nb": myarr(26, 3) = "dd" myarr(27, 1) = "Ç": myarr(27, 2) = "za": myarr(27, 3) = "ıu" myarr(28, 1) = "Ş": myarr(28, 2) = "df": myarr(28, 3) = "lç" myarr(29, 1) = "Ö": myarr(29, 2) = "si": myarr(29, 3) = "nc" myarr(30, 1) = "Ğ": myarr(30, 2) = "if": myarr(30, 3) = "ga" myarr(31, 1) = " ": myarr(31, 2) = "kö": myarr(31, 3) = "yü" myarr(32, 1) = "Ü": myarr(32, 2) = "dv": myarr(32, 3) = "rn" myarr(33, 1) = "İ": myarr(33, 2) = "sl": myarr(33, 3) = "ğo" deg = InputBox("METİN GİRİNİZ :", "ŞİFRE") If deg = "" Then Exit Sub For i = 1 To Len(deg) For k = 1 To 33 If UCase(Replace(Replace(Mid(deg, i, 1), "i", "İ"), "ı", "I")) = myarr(k, 1) Then deg2 = deg2 & myarr(k, 2) & myarr(k, 3) End If Next k Next i MsgBox "Şifreniz : " & deg2 Range("A1").Value = deg2 End Sub[/CODE]