Aplikasi encryption kryptographic

Aplikasi encryption kryptographic

Form dari beberapa Algoritma Kriptografi 

 

Form Caesar Chiper

 

Source Code Caesar Chiper

Public Class caesar_chiper

    Private Sub caesar_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        plaintxt.Text = ""

        chipertxt.Text = ""

    End Sub

Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.Click

        Dim jumlah As Double = Len(plaintxt.Text)

        Dim x As String

        Dim x_kalimat As String = ""

        Dim i As Double

        Dim bil As Integer

        For i = 1 To jumlah

            x = Mid(plaintxt.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            x_kalimat = x_kalimat + x

        Next i

        chipertxt.Text = x_kalimat

    End Sub

End Class