Berbagi Ilmu..: kriptografi

KRIPTOGRAFI

Public Class Form2

Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click
Form1.MdiParent = Me
Form1.Show()

End Sub

Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click
form3.MdiParent = Me
form3.Show()
End Sub

Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronsfeldToolStripMenuItem.Click
form4.MdiParent = Me
form4.Show()

End Sub

Private Sub KriptografiVigenareToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVigenareToolStripMenuItem.Click
Form5.MdiParent = Me
Form5.Show()

End Sub

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
Close()

End Sub

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

End Sub
End Class

kriptografi caesar

Public Class Form1

Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.Click
Dim x As String = ""
Dim xkalimat As String = ""
For i = 1 To Len(plain.Text)
x = Mid(plain.Text, i, i)
x = Chr(Asc(x) + 3)
xkalimat = xkalimat + x

Next
chiper.Text = xkalimat
End Sub

Private Sub Btndiskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndiskripsi.Click
Dim X As String = ""
Dim XKALIMAT As String = ""

For i = 1 To Len(chiper.Text)
X = Mid(chiper.Text, i, i)
X = Chr(Asc(X) - 3)
XKALIMAT = XKALIMAT + X
Next
plain.Text = XKALIMAT
End Sub
End Class

Kriptografi Vernam

Public Class form3

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

plainteks.Text = ""

kunci.Text = ""

chiperteks.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 = 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)

e.KeyChar = UCase(e.KeyChar)

Dim tombol As Integer = Asc(e.KeyChar)

If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

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

KRIPTOGRAFI GRONSFELD

Public Class form4

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

plainteks.Text = ""

kunci.Text = ""

chiperteks.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 = 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)) - 48

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

If ((e.KeyChar >= "0" And e.KeyChar <= "9") And e.KeyChar <> vbBack) Then e.Handled = True

End Sub

Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

End Sub

End Class

KRIPTOGRAFI VIGENARE

Public Class Form5

Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
plainteks.Text = ""
chiperteks.Text = ""
kunci.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 = 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
End Class