• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

Visual Basic Anahtarlı Metin Şifreleme ve Çözme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ByClxon

Süper Üye
Katılım
7 Ocak 2016
Mesajlar
955
Beğeni Puanı
4
Yaş
22
PHP:
PublicClassForm1 
Private Sub btnSifrele_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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 k = 0 To Strings.Len(metin) - 1 




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.




j = j + 1 




If j = Strings.Len(anahtar) Then j = 0 '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
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt