Membuat Enkripsi dan Deskripsi di vb6

MEMBUAT

ENKRIPSI DAN DESKRIPSI DATA

DI VISUAL BASIC 6

• Siapkan Form Enkripsi dan Deskripsi

• Dengan Object Properti Seperti Berikut :

Object	Propertis	Keterangan
Form1	Caption	Enkripsi – Deskripsi
Command1	Caption	Enkripsi
Command2	Caption	Deskripsi
Text1	Name	Text1
Text2	Name	Text2

• Setelah Selesai Bukalah Form1 dan Salin kode di bawah ini kedalam form1 :

         Dim data As String

         Dim pos As Integer

         ‘-----------Isi Enkripsi ---------------------------------------------------------------------------------------

         Private Sub Command1_Click()

               data = Text1

              For pos = 1 To Len(data)

                   Mid(data, pos, 1) = Chr(((Asc(Mid(data, pos, 1)) * 2) \ 1) + 2)

              Next pos

              Text2 = data

          End Sub

          ‘------------------------------------------------------------------------------------------------------------------

          ‘------------Isi Deskripsi --------------------------------------------------------------------------------------

          Private Sub Command2_Click()

               For pos = 1 To Len(data)

                   Mid(data, pos, 1) = Chr((Asc(Mid(data, pos, 1)) - 2) \ 2)

               Next pos

               Text1 = data

          End Sub

          ‘------------------------------------------------------------------------------------------------------------