Visual Basic Anahtarlı Metin Şifreleme ve Çözme


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: ByClxon    1 Yorum    236 Görüntüleme

Paylaşım Tarihi: 11.05.2016, 21:37:54 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorumları:1,012 Konuları:442 Kayıt Tarihi:07.01.2016 Rep Puanı: 667

PublicClassForm1 
Private Sub btnSifrele_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles btnSifrele.Click




Dim metin 
As String textBox1.Text




Dim anahtar 
As String textBox3.Text 




Dim sifreli_metin 
As String ""




Dim j As Byte 0




For 0 To Strings.Len(metin) - 




sifreli_metin 
sifreli_metin Strings.Chr((Strings.Asc(metin(k)) + Strings.Asc(anahtar(j))) Mod 255)




'Şifreli metni, her bir karakterinin koduna anahtar kelimenin sıradaki karakterinin kodunu ekleyerek bul.




'
Neden Mod 255Çünkü toplam 255 değerini aşabilir.









If Strings.Len(anahtarThen j 'Anahtar kelimenin indisi ayrı tutulmalı. Yoksa indisde değer aşımı olur.




Next




textBox2.Text = sifreli_metin




End Sub 




Private Sub btnSifreCoz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSifreCoz.Click




Dim sifreli_metin As String = textBox1.Text




Dim anahtar As String = textBox3.Text




Dim metin As String = ""




Dim kod As Integer 




Dim j As Byte = 0




For k = 0 To Strings.Len(sifreli_metin) - 1




kod = Strings.Asc(sifreli_metin(k)) - Strings.Asc(anahtar(j))




If kod <= 0 Then kod = kod + 255 Else kod = kod Mod 255




metin = metin + Strings.Chr(kod) 




j = j + 1




If j = Strings.Len(anahtar) Then j = 0




Next




textBox2.Text = metin




End Sub








EndClass 

Kullanıcı İmzası
#fenerbahçeA.A.K.
nErB8V.png
İletişim İçin Facebook;

https://www.facebook.com/profile.php?id=100012991933980


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



LQgldG.png






 

         


Paylaşım Tarihi: 11.05.2016, 21:38:42 #2
422lizard42 Yeğen
Aktif Üye
Status: Çevrimdışı Yorumları:12 Konuları:1 Kayıt Tarihi:07.05.2016 Rep Puanı: 1

Baya uzun yazmışsın saol ben anlamam ama + vercem.




Önceki Konu Sonraki Konu





Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi