Enkripsi SederHana

nih prend enkripsi sederhana untuk mengenkripsi masukkan(karakter) yang kita masukkan dalam textbox.

buat sebuah project terserah anda nama projectnya, kemudian buat form seperti dibawah ini:

codenya :


Public Class Form1

Dim a As String = ""
Dim c As String


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

If CheckBox1.Checked Then
For i As Integer = 0 To TextBox1.TextLength - 1

If Asc(TextBox1.Text.Chars(i)) >= 122 Then

c = Chr(Asc(TextBox1.Text.Chars(i)) - 26 + 1)
Else
c = Chr(Asc(TextBox1.Text.Chars(i)) + 1)
End If

a += c
Next
TextBox2.Text = a
End If

a=""

End Sub
End Class

deskripsi:
dalam code ini akan memajukan karakter sebanyak 1 misal : a -->b, c-->d , sebelumnya kita haris mencontreng checkbox1 dahulu, maka hasil enkripsi akan keluar pada textbox2.

untuk button menyimapan dalam array silahkan anda buat sebuah array dua dimensi misalnya : arr(2,3) dimana 2 = kolom, 3 = baris, jika anda ingin membuat array yang akan menambah sebuah baris secara otomatis makan anda harus me-redim

redim arr(2,arr.GetUpperbound(1)+1)