Tasarımı Bana Ait Olan string Şİfreleme (visual Basic 6)

Y

yuski

Uzman üye
1 Şub 2011
1,010
0
Gerekenler :

! adet textbox
2 adet comandbutton

1.si :şifreleme
2.si :çözme

Desteklediği Karakterler (A-Z,a-z)

Kod: 
Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, "a", "@")
Text1.Text = Replace(Text1.Text, "b", "!")
Text1.Text = Replace(Text1.Text, "c", "^")
Text1.Text = Replace(Text1.Text, "ç", "&")
Text1.Text = Replace(Text1.Text, "d", "+")
Text1.Text = Replace(Text1.Text, "e", "$")
Text1.Text = Replace(Text1.Text, "f", "™")
Text1.Text = Replace(Text1.Text, "g", "=")
Text1.Text = Replace(Text1.Text, "ğ", "}")
Text1.Text = Replace(Text1.Text, "h", "]")
Text1.Text = Replace(Text1.Text, "ı", "[")
Text1.Text = Replace(Text1.Text, "i", "{")
Text1.Text = Replace(Text1.Text, "j", "<")
Text1.Text = Replace(Text1.Text, "k", ">")
Text1.Text = Replace(Text1.Text, "l", "|")
Text1.Text = Replace(Text1.Text, "m", ":")
Text1.Text = Replace(Text1.Text, "n", ",")
Text1.Text = Replace(Text1.Text, "o", "~")
Text1.Text = Replace(Text1.Text, "ö", "¨")
Text1.Text = Replace(Text1.Text, "p", "´")
Text1.Text = Replace(Text1.Text, "r", "?")
Text1.Text = Replace(Text1.Text, "s", "%")
Text1.Text = Replace(Text1.Text, "ş", "-")
Text1.Text = Replace(Text1.Text, "t", "*")
Text1.Text = Replace(Text1.Text, "u", "+")
Text1.Text = Replace(Text1.Text, "ü", "_")
Text1.Text = Replace(Text1.Text, "v", "")
Text1.Text = Replace(Text1.Text, "y", "®")
Text1.Text = Replace(Text1.Text, "z", "©")
Text1.Text = Replace(Text1.Text, "x", "±")
Text1.Text = Replace(Text1.Text, "q", "»")
Text1.Text = Replace(Text1.Text, "A", "@")
Text1.Text = Replace(Text1.Text, "B", "!")
Text1.Text = Replace(Text1.Text, "C", "^")
Text1.Text = Replace(Text1.Text, "Ç", "&")
Text1.Text = Replace(Text1.Text, "D", "+")
Text1.Text = Replace(Text1.Text, "E", "$")
Text1.Text = Replace(Text1.Text, "F", "™")
Text1.Text = Replace(Text1.Text, "G", "=")
Text1.Text = Replace(Text1.Text, "Ğ", "}")
Text1.Text = Replace(Text1.Text, "H", "]")
Text1.Text = Replace(Text1.Text, "I", "[")
Text1.Text = Replace(Text1.Text, "İ", "{")
Text1.Text = Replace(Text1.Text, "J", "<")
Text1.Text = Replace(Text1.Text, "K", ">")
Text1.Text = Replace(Text1.Text, "L", "|")
Text1.Text = Replace(Text1.Text, "M", ":")
Text1.Text = Replace(Text1.Text, "N", ",")
Text1.Text = Replace(Text1.Text, "O", "~")
Text1.Text = Replace(Text1.Text, "Ö", "¨")
Text1.Text = Replace(Text1.Text, "P", "´")
Text1.Text = Replace(Text1.Text, "R", "?")
Text1.Text = Replace(Text1.Text, "S", "%")
Text1.Text = Replace(Text1.Text, "Ş", "-")
Text1.Text = Replace(Text1.Text, "T", "*")
Text1.Text = Replace(Text1.Text, "U", "+")
Text1.Text = Replace(Text1.Text, "Ü", "_")
Text1.Text = Replace(Text1.Text, "V", "")
Text1.Text = Replace(Text1.Text, "Y", "®")
Text1.Text = Replace(Text1.Text, "Z", "©")
Text1.Text = Replace(Text1.Text, "X", "±")
Text1.Text = Replace(Text1.Text, "Q", "»")



End Sub

Private Sub Command2_Click()

Text1.Text = Replace(Text1.Text, "@", "a")
Text1.Text = Replace(Text1.Text, "!", "b")
Text1.Text = Replace(Text1.Text, "^", "c")
Text1.Text = Replace(Text1.Text, "&", "ç")
Text1.Text = Replace(Text1.Text, "+", "d")
Text1.Text = Replace(Text1.Text, "$", "e")
Text1.Text = Replace(Text1.Text, "™", "f")
Text1.Text = Replace(Text1.Text, "=", "g")
Text1.Text = Replace(Text1.Text, "}", "ğ")
Text1.Text = Replace(Text1.Text, "]", "h")
Text1.Text = Replace(Text1.Text, "[", "ı")
Text1.Text = Replace(Text1.Text, "i", "{")
Text1.Text = Replace(Text1.Text, "j", "<")
Text1.Text = Replace(Text1.Text, ">", "k")
Text1.Text = Replace(Text1.Text, "|", "l")
Text1.Text = Replace(Text1.Text, ":", "m")
Text1.Text = Replace(Text1.Text, ",", "n")
Text1.Text = Replace(Text1.Text, "~", "o")
Text1.Text = Replace(Text1.Text, "¨", "ö")
Text1.Text = Replace(Text1.Text, "´", "p")
Text1.Text = Replace(Text1.Text, "?", "r")
Text1.Text = Replace(Text1.Text, "%", "s")
Text1.Text = Replace(Text1.Text, "-", "ş")
Text1.Text = Replace(Text1.Text, "*", "t")
Text1.Text = Replace(Text1.Text, "+", "u")
Text1.Text = Replace(Text1.Text, "_", "ü")
Text1.Text = Replace(Text1.Text, " ", "v")
Text1.Text = Replace(Text1.Text, "®", "y")
Text1.Text = Replace(Text1.Text, "©", "z")
Text1.Text = Replace(Text1.Text, "±", "x")
Text1.Text = Replace(Text1.Text, "»", "q")

End Sub
 
Son düzenleme:
R

RedHour

Kıdemli Üye
22 Eki 2012
4,097
2
Sivas
teşekkürler senmi yazdın hepsini :D tekini yazdınmı zaten gerisi yazılır dimi :D sagol biliyodum ama
 
HAKOPS

HAKOPS

Kıdemli Üye
11 Tem 2011
4,199
6
Izmir
Tebrik Ediyorum Kardeşim :) Bu Kadar Uğraşılırmı 4 Satır Kodla Halleder 10 Satır Kodla Sağlaması Alınırdı Bunun :)
 
Y

yuski

Uzman üye
1 Şub 2011
1,010
0
Aynen abi ama baktim gidiyo devam edyim dedim bunu for next yenileceyem
 
R

RedHour

Kıdemli Üye
22 Eki 2012
4,097
2
Sivas
yuski kötü bişey demedikki evet ben yazdım hepsini tek tek sinire gerek yok :D

biliyom zaten senin yazdıgını :)
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.