Archive for Juni 2013
Tugas Kriptografi
Public Class Formkriptografi
Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
CaesarChiperToolStripMenuItem.Click
Me.Hide()
Caesar_chiper.Show()
End Sub
Private Sub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
GronsfeldChiperToolStripMenuItem.Click
Me.Hide()
Gronsfeld.Show()
End Sub
Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
VernamChiperToolStripMenuItem.Click
Me.Hide()
Vernam_chiper.Show()
End Sub
Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
VigenereChiperToolStripMenuItem.Click
Me.Hide()
Vigenere_chiper.Show()
End Sub
Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles DesChiperToolStripMenuItem.Click
Me.Hide()
DES_chiper.Show()
End Sub
Private Sub RC4ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
RC4ToolStripMenuItem.Click
Me.Hide()
RC_4.Show()
End Sub
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KeluarToolStripMenuItem.Click
End
End Sub
End Class
Public Class Caesar_chiper
Private Sub Caesar_chiper_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Plainteks.Text = ""
Chiperteks.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(Plainteks.Text)
Dim x As String
Dim
xkalimat As String
= ""
Dim bil
As Integer
For i =
1 To jumlah
x = Mid(Plainteks.Text, i, 1)
bil = Asc(x) + 3
x = Chr(bil)
xkalimat = xkalimat + x
Next i
Chiperteks.Text = xkalimat
End Sub
Private Sub Btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnhapus.Click
Chiperteks.Text = ""
Plainteks.Text = ""
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub Btnkembali_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnkembali.Click
Me.Hide()
Formkriptografi.Show()
End Sub
End Class
Public Class Gronsfeld
Private Sub Gronsfeld_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Plainteks.Text = ""
Chiperteks.Text = ""
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 Plainteks_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Plainteks.TextChanged
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 Kunci_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Kunci.TextChanged
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 String
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))
Next i
Chiperteks.Text = sPlain
End Sub
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
End
End Sub
Private Sub btnkembali_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkembali.Click
Me.Hide()
Formkriptografi.Show()
End Class
Public Class Vernam_chiper
Private Sub Vernam_chiper_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Plainteks.Text = ""
Chiperteks.Text = ""
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 Plainteks_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Plainteks.TextChanged
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 kunci_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles kunci.TextChanged
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 = 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)) + 0
nKunci = Asc(Mid(sKey, J, 1)) + 0
nEnc = ((nKata + nKunci) Mod 256)
sPlain = sPlain & Chr((nEnc))
Next i
Chiperteks.Text = sPlain
End Sub
Private Sub btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus.Click
Plainteks.Text = ""
kunci.Text = ""
Chiperteks.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnkembali_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkembali.Click
Me.Hide()
Formkriptografi.Show()
End Sub
End Class
Public Class Vigenere_chiper
Private Sub Vigenere_chiper_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Plainteks.Text = ""
Chiperteks.Text = ""
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 Plainteks_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Plainteks.TextChanged
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 kunci_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles kunci.TextChanged
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 = 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)) + 0
nKunci = Asc(Mid(sKey, J, 1)) + 0
nEnc = ((nKata + nKunci) Mod 256)
sPlain = sPlain & Chr((nEnc))
Next i
Chiperteks.Text = sPlain
End Sub
Private Sub btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus.Click
Plainteks.Text = ""
kunci.Text = ""
Chiperteks.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnkembali_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkembali.Click
Me.Hide()
Formkriptografi.Show()
End Sub
End Class
Public Class DES_chiper
Private Sub btnenkripsi_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnenkripsi.Click
Dim
kunci As String,
kunciChar As String,
katabaru As String
Dim Pos
As Integer
Dim i As Integer, Side1 As String, Side2 As String
Dim
nEnc As Integer
Pos = 1
For i =
1 To Len(plainteks.Text)
plainteks.Text =
Mid(plainteks.Text, i, 1)
Kunci.Text = Mid(Kunci.Text, Pos,
1)
chiperteks.Text = chiperteks.Text
& Chr(Asc(Of Char)()
Xor Asc(Kunci.Text))
If
Pos = Len(Kunci) Then Pos = 0
Pos = Pos + 1
Next i
If
Len(chiperteks.Text) Mod 2 = 0 Then
Side1 =
StrReverse(Left(chiperteks.Text, (Len(chiperteks.Text) / 2)))
Side2 =
StrReverse(Right(chiperteks.Text, (Len(chiperteks.Text) / 2)))
chiperteks.Text = Side1 & Side2
End If
nEnc = chiperteks.Text
End Sub
Private Sub Btnhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnhapus.Click
plainteks.Text = ""
chiperteks.Text = ""
End Sub
Private Sub Btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnkeluar.Click
End
End Sub
Private Sub Btnkembali_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnkembali.Click
Me.Hide()
Formkriptografi.Show()
End Sub
End Class
Public Class RC_4
Private Sub RC_4_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
plainteks.Text = ""
chiperteks.Text = ""
Kunci.Text = ""
End Sub
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
End
End Sub
Private Sub Btnkembali_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnkembali.Click
Me.Hide()
Formkriptografi.Show()
End Sub
End Class
