Contoh Encrypt Dan Decrypt Pada Variable String VB6

Berikut ini adalah cara melakukan encrypt dan decrypt pada suatu string di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 2 Commandbutton
2. Copy-kan coding berikut ke editor form yang bertalian.

          'Tombol Command1 akan mengencrypt string.
          'Untuk menormalkan string tersebut, klik tombol Command2.

          Dim Code As String, DataString As String, Temp As String

          Sub Translate()
          Dim I As Integer

          Dim location As Integer
            Temp$ = ""
            For I% = 1 To Len(DataString$)
              location% = (I% Mod Len(Code$)) + 1

              Temp$ = Temp$ + Chr$(Asc(Mid$(DataString$, I%, 1)) Xor _
              Asc(Mid$(Code$, location%, 1)))
            Next I%
          End Sub

          Private Sub Command1_Click()
            'Code di bawah adalah rumus pengenkripsian. Ganti 'abcdefghijk'
            'dengan string apapun yang Anda inginkan, bahkan Anda dapat
            'mengubah panjang dari string Code ini.

            Code = "abcdefghijk"
            'Ganti 'djiesoft' dengan string yang akan Anda encrypt.
            DataString = "djiesoft"
            Translate

            MsgBox (Temp$)
          End Sub

          Private Sub Command2_Click()

            DataString = Temp$
            Translate
            MsgBox (Temp$)
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module