Birazdan yeni web sitemize yönlendirileceksiniz...!!
 ----
Eğer yönlendirilmezseniz "Yeni web sitemize gitmek için buraya tıklayın..."


Visual Basic Dersleri

Metin Şifreleme

Vbnet 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 :
metin şifreleme
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 





Bu sayfa hakkında yorum ekle:
İsminiz:
E-mail adresiniz:
Siteniz:
Mesajın:

Bugün 25 ziyaretçikişi burdaydı!
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=