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    177 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 11.05.2016, 21:37:54 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorum Sayısı:1,020 Konu Sayısı:444 Üyelik Tarihi:07.01.2016 Rep Puanı: 664

PHP Kod:
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.
İmage
İletişim İçin Facebook;

linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.


Ö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!



İmage






 

         

Paylaşım Tarihi: 11.05.2016, 21:38:42 #2
422lizard42 Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:12 Konu Sayısı:1 Üyelik Tarihi:07.05.2016 Rep Puanı: 1

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









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

Konuyu görüntüleyenler:
1 Misafir