Metin Şifreleme
vb.net ile anahtar metin şifreleme olayından bahsedeceğim. Çok-satırlı bir metin kutusuna girilen bir metin, anahtar kelime kullanılarak şifrelenebilmektedir. Şifreleme, metnin her bir karakterinin ASCII koduna, anahtar kelimenin her bir karakterinin ASCII kodunun eklenmesi ile gerçekleşmektedir. Aşağıda, örnek üzerinden şifreleme algoritmasının açıklaması yapılmıştır:
Ekran görüntüsü şu şekildedir :
Ve son olarak kodlara gelecek olursak;
|
Public Class Form1
Private Sub BtnSifrele_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSifrele.Click
Dim metin As String = TxtMetin.Text
Dim anahtar As String = InputBox("Anahtar kelimeyi giriniz:")
Dim sifreli_metin As String = ""
Dim j As Byte = 0
For k = 0 To Strings.Len(metin) - 1 'Metni karakter karakter sonuna kadar tara.
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
TxtSifreliMetin.Text = sifreli_metin
End Sub
End Class
|
Metin şifreleme olayında kodlar üzerinde açıklamalar mevcuttur. İnceleyip direk olarak çalıştırıp deneyebilirsiniz. İyi çalışmalar
