Public Class vernam
Private Sub vernam_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
plainteks.Text = ""
kunci.Text = ""
chiperteks.Text = ""
End Sub
Private Sub BtnEn_Click(
ByVal
sender
As System.Object,
ByVal e
As
System.EventArgs)
Handles BtnEn.Click
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
sKata = plainteks.Text
jum = Len(sKata)
sKey = kunci.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
nEnc =
((nKata + nKunci) Mod 26)
sPlain
= sPlain & Chr((nEnc) + 65)
Next
i
chiperteks.Text = sPlain
End Sub
Private Sub plainteks_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
plainteks.KeyPress
e.KeyChar = UCase(e.KeyChar)
Dim
tombol As Integer
= Asc(e.KeyChar)
If
Not (((tombol >= 65) And (tombol <= 90)) Or (tombol
= 8)) Then
e.Handled
= True
End
If
End Sub
Private Sub kunci_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
kunci.KeyPress
e.KeyChar = UCase(e.KeyChar)
Dim
tombol As Integer
= Asc(e.KeyChar)
If
Not (((tombol >= 65) And (tombol <= 90)) Or (tombol
= 8)) Then
e.Handled = True
End
If
End Sub
End Class
2.vigenere
Public Class Form1
Private Sub BtnProses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnProses.Click
Chiperteks.Text =
Enkripsi(Plainteks.Text, Kunci.Text)
End Sub
Function enkripsi(ByVal teks As String, ByVal kunci As String) As String
Dim
a As Integer
Dim
b 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
a = 0
b = Len(teks)
sPlain = ""
sKey = kunci
sKata = teks
For
i = 1 To b
If a = Len(sKey) Then
a = 1
Else
a = a + 1
End If
nKata =
Asc(Mid(sKata, i, 1))
nKunci
= Asc(Mid(sKey, a, 1))
nEnc =
((nKata + nKunci) Mod 256)
sPlain
= sPlain & Chr((nEnc))
Next
i
enkripsi = sPlain
End Function
Private Sub BtnHapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnHapus.Click
Plainteks.Text = ""
Chiperteks.Text = ""
Kunci.Text = ""
End Sub
Private Sub BtnKeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnKeluar.Click
Close()
End Sub
End Class
3.gronsfeld
Class Gronsfeld
Private Sub BtnEn_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnEn.Click
Dim
x As String
Dim
CI As Integer
chiperteks.Text = ""
For
i = 1 To Len(plainteks.Text)
x =
Microsoft.VisualBasic.Mid(plainteks.Text, i, 1)
CI =
Asc(x)
CI =
(plainteks.Text + kunci.Text) Mod 26
x =
Chr(CI)
chiperteks.Text = chiperteks.Text & x
Next
chiperteks.Text =
enkripsi(plainteks.Text, kunci.Text)
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnDeskripsi.Click
Dim
x As String
Dim
CI As Integer
Dim
KI As Integer
Dim
PI As Integer
chiperteks.Text = ""
For
i = 1 To Len(plainteks.Text)
x =
Microsoft.VisualBasic.Mid(plainteks.Text, i, 1)
PI =
Asc(x)
PI =
(CI - KI) Mod 26
x =
Chr(PI)
chiperteks.Text = chiperteks.Text & x
Next
End Sub
Function enkripsi(ByVal teks As String, ByVal kunci As String) As String
Dim
a As Integer
Dim
b 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
a = 0
b = Len(teks)
sPlain = ""
sKey = kunci
sKata = teks
For
i = 1 To b
If a = Len(sKey) Then
a = 1
Else
a = a + 1
End If
nKata =
Asc(Mid(sKata, i, 1))
nKunci
= Asc(Mid(sKey, a, 1))
nEnc =
((nKata + nKunci) Mod 26)
sPlain
= sPlain & Chr((nEnc))
Next
i
enkripsi = sPlain
End Function
Private Sub Gronsfeld_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
chiperteks.Text = ""
plainteks.Text = ""
kunci.Text = ""
End Sub
End Class
4.caesar
Public Class Caesar
Private Sub BtnEn_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnEn.Click
Dim
x As String
Dim
bil As Integer
Chiperteks.Text = ""
For
i = 1 To Len(Plainteks.Text)
x =
Microsoft.VisualBasic.Mid(Plainteks.Text, i, 1)
bil =
Asc(x)
bil =
bil + 3 Mod 26
x =
Chr(bil)
Chiperteks.Text = Chiperteks.Text & x
Next
End Sub
Private Sub Caesar_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Chiperteks.Text = ""
Plainteks.Text = ""
End Sub
Private Sub BtnDes_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnDes.Click
Dim
x As String
Dim
bil As Integer
Chiperteks.Text = ""
For
i = 1 To Len(Plainteks.Text)
x =
Microsoft.VisualBasic.Mid(Plainteks.Text, i, 1)
bil =
Asc(x)
bil =
bil - 3 Mod 26
x =
Chr(bil)
Chiperteks.Text = Chiperteks.Text & x
Next
End Sub
End Class
