Xor Kullanarak Şifreleme (Encryption) Metodu

Merhaba arkadaşlar. Bu makalemizde Xor metodunu kullanarak basit bir şifreleme örneği göreceğiz.

Şekil 1

Şekil 2

Form1.vb

Public Class Form1

    Private Sub EncryptDecrypt()

        Dim i As Integer

        Dim karakter As Char

        Dim gecici As String = ""

        For i = 0 To TextBox1.TextLength - 1

            karakter = TextBox1.Text.Chars(i)

            gecici += Chr(Asc(karakter) Xor 128)

        Next i

        TextBox1.Text = gecici

    End Sub

    ' Textboxta yazılı olan mesajı kriptoluyoruz.

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        EncryptDecrypt()

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN