Program Enkripsi – Dekripsi dengan VB

Posted: 27 Februari 2010 in Pemrograman
Tag:, , , , , , ,

ini ada salah satu contoh program encryption
penggunaanya menggeses 1 bit/lebih

1. buat 1 Form, 3 Textbox, 2 Command Button
2. Copas source code di attachment.

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
x = x + Chr(Asc(Mid(Text1.Text, i, i)) + 1 Mod 255)
Next
Text2.Text = x
End Sub

Private Sub Command2_Click()
For i = 1 To Len(Text2.Text)
x = x + Chr(Asc(Mid(Text2.Text, i, i)) – 1 Mod 255)
Next
Text3.Text = x
End Sub

Komentar
  1. purnosidi mengatakan:

    izin belajar

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s