Membuat Form Kriptografi

Berikut ini adalah salah satu contoh form kriptografi denagn menggunakan VB.net 2008

Public Class Form1

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

    End Sub

    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 teks 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 nEnc As Integer

        j = 0

        jum = Len(teks)

        sPlain = ""

        sKey = kunci

        sKata = teks

        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

            nEnc = ((nKata + nKunci) Mod 26) + 65

            sPlain = sPlain & Chr((nEnc))

        Next i

        Enkripsi = sPlain

    End Function

End Class