Saya akan coba ber-Main Enkripsi – Dekripsi Dengan Anda
1. Taruh syntax ini (Visual Basic) di modul atau Form Biasa juga bisa
Public Function Crypt(Text As String, CodeBin As Integer) As String
On Error Resume Next
Dim strTempChar As String
For I = 1 To Len(Text)
If Asc(Mid$(Text, I, 1)) < CodeBin Then
strTempChar = Asc(Mid$(Text, I, 1)) + (CodeBin)
End If
Mid$(Text, I, 1) = Chr(strTempChar)
Next I
Crypt = Text
End Function
2. Ambil 2 buah Command Button dan 3 Text Box dan taruh di form
Buat Seperti Gambar (klik gambar untuk memperjelas)
3. Taruh Syntax Berikut di tombol Command Button Enkripsi
Private Sub cmdEnkripsi_Click()
Me.Text2.Text = Crypt(Me.Text1.Text, 128)
End Sub
4. Tulis Huruf atau kata pada text awal (text1) lalu Klik Tombol Enkripsi
5. Lihat Hasilnya pada Text Hasil (Text2)
Post a Comment