Membuat Program Enkripsi Dengan VB NET

sedikit sharing dan berbagi ilmu untuk para sobat sekalian,, ini ada sedikit tugas kuliah saya yang ingin saya bagikan untuk anda yang mungkin membutuhkan beberapa program, program ini saya sertakan source code sekalian biar sobat mencoba mengutak atik sendiri dirumah,, hehe,,

berikut ini desain antar muka dan listing programnya

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click

Dim kata As String, i As String

kata = TextBox1.Text

i = enkripsi(kata)

Label3.Text = i

End Sub

Function enkripsi(ByVal i As String) As String

Dim x As Integer, y As Integer, v(i.Length - 1) As Char

For x = 0 To (i.Length) - 1

y = (Asc(i.Chars(x)) - 65 + 3) Mod 26

v(x) = Chr(y + 65)

Next

Return v

End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click

End

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs)

End

End Sub

End Class

download file

semoga bermanfaat