Your Ad Here

Kali ini kita akan membuat sebuah program enkripsi sederhana pada VB6, dengan memanfaatkan fungsi XOR. Langsung saja, Untuk membuat program enkripsi pada VB silakan ikuti penjelasan dibawah ini.

Langkah Pertama



  • Buatlah sebuah proyek baru dengan VB6, dan pilih proyek jenis standardEXE.


    Langkah Kedua



  • Pada form proyek, tambahkan beberapa komponen diantaranya :



  • 3 buah textbox




  • 3 buah label




  • dan 1 buah CommandButton




  • Sekarang edit properties dari masing2 komponen, dengan parameter seperti dibawah ini:


  • ubah properties text1, hapus caption dan pada setingan multiline berikan nilai true




  • ubah properties text2, hapus caption dan pada setingan multiline berikan nilai true




  • ubah properties text3, hapus caption dan pada setingan multiline berikan nilai true




  • ubah properties label1, ganti captionnya agar menjadi PlainText.




  • ubah properties label2, ganti captionnya agar menjadi Key.




  • ubah properties label3, ganti captionnya agar menjadi Ciphertext.




  • ubah properties dari command1, ganti caption dengan Enkripsi.



    • Sehingga akan menjadi seperti gambar dibawah ini.

    Membuat Program Enkripsi Pada VB


    Langkah Ketiga

    Nah sekarang masuk dalam tahap memasukan source code proyek kita. OK lanjut...


  • Masukan script seperti dibawah ini pada form proyek kita.

    Public Function XORFunc(strKodeIn As String, strDataIn As String) As String

    Dim lon1 As Long
    Dim intXOR1 As Integer
    Dim intXOR2 As Integer
    Dim strDataOut As String

    For lonI = 1 To Len(strDataIn)
    intXOR1 = Asc(Mid$(strDataIn, lonI, 1))
    intXOR2 = Asc(Mid$(strKodeIn, _
    ((lonI Mod Len(strKode)) + 1), 1))

    strDataOut = strDataOut + Chr(intXOR1 Xor intXOR2)
    Next lonI

    XORFunc = strDataOut

    End Function



  • Kemudian tambah kode script seperti dibawah ini tepat diatas dari kode diatas.

    Dim strPlain As String
    Dim strPlainBaru As String
    Dim strCipher As String
    Dim strKode As String





  • Sekarang masukan script dibawah ini pada tombol enkripsi,,,

    Private Sub Command1_Click()
    strPlain = text1.Text
    strKode = text2.Text
    strCipher = XORFunc(strKode, strPlain)
    text3.Text = strCipher
    End Sub



    Nah selesai, silakan kamu coba dengan menjalankannya...
    moga bemanfaat,,,