Cara Membuat Encrypt dan Decrypt Menggunakan VB6

Baca Juga :

Dikesempatan pembuatan artikel kali ini admin akan sedikit menjelaskan tentang Encrypt dan Decrypt yang nantinya akan dituangkan ke dalam sebuah source code Visual Basic 6.0 (VB6). Didalam bahasa Indonesia Encrypt dapat disebut Enkripsi merupakan sebuah proses pengolahan data plain text (karakter yang bisa dibaca dan dipahami) menggunakan sebuah algoritma pemrograman yang telah dilengkapi coding-coding kunci-kunci tertentu sehingga plain text tersebut menjadi sebuah susunan karakter yang hampir tidak bisa terbaca (chipertext). Sedangkan Decrypt / Dekripsi merupakan kebalikan dari Encrypt / Enkripsi yaitu memproses chipertext menggunakan algoritma untuk membuat sebuah output plain text.

Buka Ms. Visual Basic 6.0 (VB6) buatlah sebuah form dan tambahkan beberapa komponen seperti dibawah ini

TextBox

- Text1 ubah name menjadi txtInput

- Text2 ubah name menjadi txtEncrypt

- Text3 ubah name menjadi txtDecrypt

CommandButton

- Command1 ubah name menjadi cmdEncrypt

- Command2 ubah name menjadi cmdDecrypt

Selanjutnya tambahkan juga 1 buah module untuk mendelarasikan variabel-variabel dan fungsi Encrypt dan Decrypt, kemudian copykan coding dibawah in ke dalam module tadi.

Option Explicit
#Const CASE_SENSITIVE_PASSWORD = False
Public Function EncryptText(strText As String, ByVal strPwd As String) As String
Dim i As Long, C As Long
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then
strPwd = UCase$(strPwd)
#End If
If Len(strPwd) Then
For i = 1 To Len(strText)
C = Asc(Mid$(strText, i, 1))
C = C + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(C And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function

Public Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Long, C As Long
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then
strPwd = UCase$(strPwd)
#End If
If Len(strPwd) Then
For i = 1 To Len(strText)
C = Asc(Mid$(strText, i, 1))
C = C - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(C And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function

Jika telah selesai untuk selanjutnya double klik pada tombol cmdEncrypt dan copykan coding dibawah ini

txtEncrypt.Text = EncryptText(txtInput.Text, "123456789")

Begitu juga pada tombol cmdDecrypt double klik kemudian copykan coding dibawah ini

txtDecrypt.Text = DecryptText(txtEncrypt.Text, "123456789")

Coba sekarang kira run/F5 dan inputkan karakter pada txtInput kemudian klik tombol cmdEncrypt dan klik juga tombol cmdDecrypt

Akhir kata cukup sekian uraian singkat mengenai artikel Cara Membuat Encrypt dan Decrypt Menggunakan VB6 semoga dapat bermanfaat dan terima kasih banyak atas kunjungannya.

0 Response to "Cara Membuat Encrypt dan Decrypt Menggunakan VB6"

Post a Comment