Encrypt - Descrypt Function

bukanintrik

Friday, September 10, 2010

Baca Juga

Fungsi yang digunakan untuk melakukan Encrypt maupun Descrypt.



Function XORPass(ByVal Pass As String) As String
        Dim PassBuffer As String, l As Long
        PassBuffer = Space$(Len(Pass))
        For l = 1 To Len(Pass)
               Mid$(PassBuffer, l, 1) = Chr$(Asc(Mid$(Pass, l, 1)) Xor 7)
        Next l
       XORPass = PassBuffer
End Function

*Contoh penggunaan:
Buka Form baru, tambahkan Komponen TextBox dan CommandButton

Copy Kode Fungsi Encrypt-Descrypt diatas ke form dan tambahkan juga kode perogam berikut ke Form:

Private Sub Command1_Click()
       Text1.Text = XORPass(Text1.Text)
End Sub

Jalankan Program, masukkan String yang akan kita encrypt/descrypt di TextBox, dan Klik CommandButton untuk melihat hasilnya.

Contoh Encrypt dari String "CYBER"

Labels: Pemrograman, VB Source Code

Thanks for reading Encrypt - Descrypt Function. Please share...!