Program Caesar Chiper dengan VB

Caesar Chiper merupakan salah satu metode penyadian pesan yang cukup terkenal. Konsep Caesar Chiper adalah dengan melakukan pergeseran huruf ke kanan atau ke kiri dalam susunan alphabet sesuai dengan kunci yang ditentukan baik Enkripsi maupun Dekripsi.

Sebagai contoh, huruf “A” dengan kunci=3 digantikan dengan huruf “D”, huruf “B” dengan kunci=5 digantikan dengan huruf “G” dan seterusnya.

Setiap karakter yang dimasukan kedalam komputer akan dikonversi ke dalam bilangan binner (1 dan 0). Berdasarkan ASCII (American Standard Code for Information Interchange) karakter memiliki nilai desimal yang seterusnya dikonversi ke bilangan binner. Khusus karakter alphabet kapital A-Z bernilai 65-90 sedangkan alphabet a-z bernilai 97-122.

Sekarang mari membuat program sederhana untuk melakukan Enkripsi atau Dekripsi terhadap pesan yang memiliki kunci.

Langkah-langkah membuat program:

1. Rancang dahulu form pada VB seperti berikut:

 

1.     Pada tombol Command1, ketik kode program berikut:

Private Sub Command1_Click()

Dim i As Long

Dim c As Integer

Dim pi As Integer

Dim ci As Integer

Dim k As Integer

k = Val(nShift)

hsl = ""

For i = 1 To Len(strPText)

c = Asc(Mid$(strPText, i))

If ((c >= 65) And (c <= 90)) Then

    pi = c - 65

    ci = (pi + k) Mod 26

    d = ci + 65

    hsl = hsl + Chr(d)

ElseIf ((c >= 97) And (c <= 122)) Then

    pi = c - 97

    ci = (pi + k) Mod 26

    d = ci + 97

    hsl = hsl + Chr(d)

End If

Next i

End Sub

2.     Pada tombol Command2, ketik kode program berikut:

Private Sub Command2_Click()

Dim i As Long

Dim c As Integer

Dim pi As Integer

Dim ci As Integer

Dim k As Integer

k = Val(nShift)

hsl = ""

For i = 1 To Len(strPText)

c = Asc(Mid$(strPText, i))

If ((c >= 65) And (c <= 90)) Then

    pi = c - 65

    ci = (pi - k) Mod 26

    d = ci + 65

    hsl = hsl + Chr(d)

ElseIf ((c >= 97) And (c <= 122)) Then

    pi = c - 97

    ci = (pi + k) Mod 26

    d = ci + 97

    hsl = hsl + Chr(d)

End If

Next i

End Sub

3.     Pada tombol Command3, ketik kode program berikut:

Private Sub Command3_Click()

strPlaintext = ""

nShift = ""

hsl = ""

strPText.SetFocus

End Sub

4.     Pada tombol Command3, ketik kode program berikut:

Private Sub Command4_Click()

End

End Sub

Maka Hasil dari program diatas adalah:

Download Artikel