Program enkripsi dengan metode Caesar cheper

Program ini tadinya adalah tugas sewaktu masih kuliah, saya posting siapa tau ada yang membutuhkan program ini untuk belajar meode caesar cheper yang dibuat dengan program Visual Studi .Net 2003

No	Komponen	Properties	Value
1	MaskedTextBox1	Name	txtPlaintext
		ReadOnly	True
2	MaskedTextBox1	Name	txtCypertext
		ReadOnly	True
3	MaskedTextBox1	Name	txtEnkripsi1
		ReadOnly	False
4	MaskedTextBox1	Name	txtEnkripsi2
		ReadOnly	True
5	MaskedTextBox1	Name	txtDeskripsi1
		ReadOnly	True
6	MaskedTextBox1	Name	txtDeskripsi2
		ReadOnly	False
7	Beberapa label sesuai desain

Listing kodenya

Public Class FormCaesarChiper

    Private Sub btnProses1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses1.Click

        Dim I, J As Integer

        txtDeskrip1.Clear()

        txtEnskrip1.Text = LCase(txtEnskrip1.Text)

        For I = 1 To txtEnskrip1.Text.Length

            For J = 1 To txtPlaintext.Text.Length

                If (Mid(txtEnskrip1.Text, I, 1)) = Mid(txtPlaintext.Text, J, 1) Then

                    txtDeskrip1.Text = txtDeskrip1.Text & Mid(txtCypertex.Text, J, 1)

                ElseIf Mid(txtEnskrip1.Text, I, 1) = " " Then

                    txtDeskrip1.Text = txtDeskrip1.Text & " "

                    Exit For

                End If

            Next

        Next

        txtDeskrip2.Text = txtDeskrip1.Text

End Sub

Private Sub btnProses2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses2.Click

        Dim I, J As Integer

        txtEnskrip2.Clear()

        txtDeskrip2.Text = UCase(txtDeskrip2.Text)

        For I = 1 To txtDeskrip2.Text.Length

            For J = 1 To txtCypertex.Text.Length

                If (Mid(txtDeskrip2.Text, I, 1)) = Mid(txtCypertex.Text, J, 1) Then

                    txtEnskrip2.Text = txtEnskrip2.Text & Mid(txtPlaintext.Text, J, 1)

                ElseIf Mid(txtDeskrip2.Text, I, 1) = " " Then

                    txtEnskrip2.Text = txtEnskrip2.Text & " "

                    Exit For

                End If

            Next

        Next

End Sub

End Class

atau download aplikasi Program enkripsi dengan metode Caesar cheper

Buat yang sudah baca dan download file

* Tingalkan komentar dan follow blog sederhana ini ya!!!!!