Tampilan Menu Awal:
Syntax nya:
Public Class Form1
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KeluarToolStripMenuItem.Click
End
End Sub
Private Sub CaesarChToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
CaesarChToolStripMenuItem.Click
caesar_chiper.Show()
End Sub
Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
VernamChiperToolStripMenuItem.Click
vernam_chiper.Show()
End Sub
Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
VigenereChiperToolStripMenuItem.Click
vigenere_chiper.Show()
End Sub
Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
AutoKeyChiperToolStripMenuItem.Click
autokey_chiper.Show()
End Sub
Private Sub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
GronsfeldChiperToolStripMenuItem.Click
Des_chiper.Show()
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
End Class.
Tampilan
Menu Autokey_chiper :
Syntax nya :
Public Class autokey_chiper
Private Sub
autokey_chiper_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
plaintext.Text
= ""
kunci.Text = ""
chipertext.Text
= ""
End Sub
Private Function
AutokeyEncipher(ByVal strPlaintext As String, ByRef strKey As String) As String
Dim i As Long
Dim j As Long
Dim c1 As Integer
Dim strPlaintext2 As String
Dim strKey2 As String
Dim strCiphertext As String
Dim strCiphertext2 As
String
Dim diffKeyLen As Integer
Dim pAlphabet As Integer
Dim cAlphabet As Integer
Dim nShift As Integer
'1. Hilangkan semua karakter yang bukan alfabet dari
strPlaintext
' dan simpan sebagai strPlaintext2
strPlaintext2 =
""
For i = 1 To
strPlaintext.Length
c1 =
Asc(Mid(strPlaintext, i, 1))
If (c1 >= 65 And
c1 <= 90) Then
strPlaintext2 = strPlaintext2 & Chr(c1)
End If
Next i
'2. Hilangkan semua karakter yang bukan alfabet dari strKey
' dan simpan sebagai strKey2
strKey2 = ""
For i = 1 To
strKey.Length
c1 =
Asc(Mid(strKey, i, 1))
If (c1 >= 65 And
c1 <= 90) Then
strKey2
= strKey2 & Chr(c1)
End If
Next i
'3. Susun kunci baru strKey2 berdasarkan kunci awal strKey
kemudian
' ditambah plaintext
'perbedaan antara panjang plaintext dan kunci
diffKeyLen =
strPlaintext2.Length - strKey2.Length
For i = 1 To
diffKeyLen
'c1 = Asc(Mid(strPlaintext2, i, 1))
strKey2 =
strKey2 & Mid(strPlaintext2, i, 1)
Next i
'4. Geser masing-masing huruf pada plaintext
' dengan huruf yang terkait pada key
strCiphertext =
""
For i = 1 To
strPlaintext2.Length
c1 =
Asc(Mid$(strPlaintext2, i, 1))
nShift =
Asc(Mid$(strKey2, i, 1)) - 65
If ((c1 >= 65) And
(c1 <= 90)) Then
pAlphabet = c1 - 65 ' get the alphabet
sequence
cAlphabet = (pAlphabet + nShift) Mod 26 ' shifted alphabet
c1 =
cAlphabet + 65 ' get character in 65 ... 90
End If
strCiphertext = strCiphertext & Chr(c1)
Next i
'5. Susun strCiphertext sesuai dengan urutan strPlaintext
strCiphertext2
= ""
strKey = ""
j = 1
For i = 1 To
strPlaintext.Length
c1 =
Asc(Mid$(strPlaintext, i, 1))
If ((c1 >= 65) And
(c1 <= 90)) Then
strCiphertext2 = strCiphertext2 & Mid(strCiphertext, j, 1)
strKey
= strKey & Mid(strKey2, j, 1)
j = j +
1
Else
strCiphertext2 = strCiphertext2 & Chr(c1)
strKey
= strKey & " "
End If
Next i
Return strCiphertext2
End Function
Private Sub
btnkeluar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnkeluar.Click
Me.Close()
End Sub
Private Sub
btnhapus_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnhapus.Click
plaintext.Text
= ""
kunci.Text = ""
chipertext.Text
= ""
End Sub
Private Sub
btnenkripsi_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_Encipher.Click
chipertext.Text
= AutokeyEncipher(plaintext.Text, kunci.Text)
End Sub
Private Sub
plaintext_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
plaintext.TextChanged
End Sub
End Class.
Tampilan Menu Caesar_chiper :
Syntax
nya:
Public Class caesar_chiper
Private Sub
caesar_chiper_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
plaintext.Text
= ""
chipertext.Text
= ""
End Sub
Private Sub
btnenkripsi_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnenkripsi.Click
Dim jumlah As Double = Len(plaintext.Text)
Dim x As String
Dim xkalimat As String = ""
Dim i As Double
Dim bil As Integer
For i = 1 To jumlah
x =
Mid(plaintext.Text, i, 1)
bil =
Asc(x) + 3
x =
Chr(bil)
xkalimat =
xkalimat + x
Next i
chipertext.Text
= xkalimat
End Sub
Private Sub
btnhapus_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnhapus.Click
plaintext.Text
= ""
chipertext.Text
= ""
End Sub
Private Sub
btnkeluar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs)
End
End Sub
Private Sub
btnkeluar_Click_1(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnkeluar.Click
Me.Close()
End Sub
End Class.
Tampilan
Menu Des_chiper :
Syntax
nya :
Public Class Des_chiper
Private Sub
Des_chiper_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
plain.Text = ""
chip.Text = ""
End Sub
Private Sub
deskripsi_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
deskripsi.Click
Dim x As String = ""
Dim xkalimat As String = ""
For i = 1 To
Len(chip.Text)
x =
Mid(chip.Text, i, i)
x =
Chr(Asc(x) - 3)
xkalimat =
xkalimat + x
Next
plain.Text =
xkalimat
End Sub
Private Sub
hapus_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
hapus.Click
plain.Text = ""
chip.Text = ""
End Sub
Private Sub
keluar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
keluar.Click
Me.Close()
End Sub
End Class.
Tampilan Menu Vernam_chiper :
Syntax nya:
Public Class
vernam_chiper
Private Sub
vernam_chiper_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
plaintext.Text
= ""
kunci.Text = ""
chipertext.Text
= ""
End Sub
Private Sub
btnenkripsi_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnenkripsi.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 =
plaintext.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
chipertext.Text
= sPlain
End Sub
Private Sub
plaintext_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
plaintext.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
Private Sub
btnhapus_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnhapus.Click
plaintext.Text
= ""
kunci.Text = ""
chipertext.Text
= ""
End Sub
Private Sub
btnkeluar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnkeluar.Click
Me.Close()
End Sub
Private Sub
kunci_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
kunci.TextChanged
End Sub
End Class.
Tampilan Menu Vigenere_chiper:
Syntax nya
:
Public Class
vigenere_chiper
Private Sub
btnenkripsi_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnenkripsi.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))
nKunci =
Asc(Mid(sKey, j, 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
plaintext.Text
= ""
kunci.Text = ""
chipertext.Text
= ""
End Sub
Private Sub
btnkeluar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnkeluar.Click
Me.Close()
End Sub
Private Sub
vigenere_chiper_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class.
