çok basit şifreleme yöntemi

[FONT=Courier New][COLOR=blue][B]Function[/B][/COLOR] MySifrele(kelime)
[COLOR=blue][B]Dim[/B][/COLOR] key_alfabe [COLOR=blue][B]As[/B][/COLOR] [COLOR=blue][B]String[/B][/COLOR]
key_alfabe = [COLOR=red]"ab#cç$de1fg2ğh3ıi4jk5lm6no7öp8rs9şt0uü%vy&zx!qw ^?"[/COLOR]
[COLOR=blue][B]For[/B][/COLOR] i = 1 [COLOR=blue][B]To[/B][/COLOR] [COLOR=blue][B]Len[/B][/COLOR](kelime)
harf = [COLOR=blue][B]Mid[/B][/COLOR](kelime, i, 1)
tmpyer = Split(key_alfabe, harf)
a1l1 = [COLOR=blue][B]Left[/B][/COLOR](tmpyer(1), 2)
a1sn = [COLOR=blue][B]Mid[/B][/COLOR](a1l1, 2, 1)
cvp = cvp & a1sn
[COLOR=blue][B]Next[/B][/COLOR] i
MySifrele = cvp
[COLOR=blue][B]End[/B][/COLOR] [COLOR=blue][B]Function[/B][/COLOR]

[COLOR=blue][B]Function[/B][/COLOR] MySifreleme(kelime)
[COLOR=blue][B]Dim[/B][/COLOR] key_alfabe [COLOR=blue][B]As[/B][/COLOR] [COLOR=blue][B]String[/B][/COLOR]
key_alfabe = [COLOR=red]"ab#cç$de1fg2ğh3ıi4jk5lm6no7öp8rs9şt0uü%vy&zx!qw ^?"[/COLOR]
[COLOR=blue][B]For[/B][/COLOR] i = 1 [COLOR=blue][B]To[/B][/COLOR] [COLOR=blue][B]Len[/B][/COLOR](kelime)
harf = [COLOR=blue][B]Mid[/B][/COLOR](kelime, i, 1)
tmpyer = [COLOR=blue][B]InStr[/B][/COLOR](1, key_alfabe, harf) - 2
a1sn = [COLOR=blue][B]Mid[/B][/COLOR](key_alfabe, tmpyer, 1)
cvp = cvp & a1sn
[COLOR=blue][B]Next[/B][/COLOR] i
MySifreleme = cvp
[COLOR=blue][B]End[/B][/COLOR] [COLOR=blue][B]Function[/B][/COLOR]

[COLOR=blue][B]Private[/B][/COLOR] [COLOR=blue][B]Sub[/B][/COLOR] Command1_Click()
Text2 = MySifrele(Text1.[COLOR=blue][B]Text[/B][/COLOR])
[COLOR=blue][B]End[/B][/COLOR] [COLOR=blue][B]Sub[/B][/COLOR]

[COLOR=blue][B]Private[/B][/COLOR] [COLOR=blue][B]Sub[/B][/COLOR] Command2_Click()
[COLOR=blue][B]MsgBox[/B][/COLOR] MySifreleme(Text2.[COLOR=blue][B]Text[/B][/COLOR])
[COLOR=blue][B]End[/B][/COLOR] [COLOR=blue][B]Sub[/B][/COLOR][/FONT]