Defenisi dan Konsep Algoritma Kritografi Caesar

Desain Gambar seperti dibawah ini :

Tampilan

masukkan listing programnya :

 Public Class Form1

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        chipertext.Text = enkripsi(plaintext.Text, kunci.Text)
    End Sub

    Function enkripsi(ByVal text As String, ByVal kunci As String) As String
        Dim j As Integer
        Dim jum As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As Integer
        Dim sKata As String
        Dim sPlain As String
        Dim nEns As Integer
        j = 0
        jum = Len(text)
        sPlain = ""
        sKey = kunci
        sKata = text
        For i = 1 To jum
            If j = Len(sKey) Then
                j = 1
            Else
                j = j + 1
            End If
            nKata = Asc(Mid(sKata, i, 1)) - 65
            nKunci = Asc(Mid(sKey, j, 1)) - 65
            nEns = ((nKata + nKunci) Mod 26) + 65
            sPlain = sPlain & Chr((nEns))
        Next i
        enkripsi = sPlain
    End Function

End Class

Maka akan seperti in tampilannya :

Hasil

Author : Unknown

Share this

Related Posts