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


Buat yang sudah baca dan download file
* Tingalkan komentar dan follow blog sederhana ini ya!!!!!




Share:

0 comments:

Post a Comment

Powered by Blogger.

Online

files

Mengenai Saya

Follow by Email

Social Icons

twitterfacebookgoogle pluslinkedinrss feedemail