Cara Membuat Encrypt Dan Decrypt Pada Visual Basic

Hallo sahabat telatngoding pada kesempatan kali ini saya akan berbagi tutorial Cara Membuat Encrypt Dan Decrypt Pada Visual Basic dengan mudah.

Sebenarnya tutorial ini dibuat untuk mengamankan sebuah aplikasi dari akses user lain atau pihak lain, atau bisa juga digunakan untuk akses login maupun untuk kepentingan lainnya. Encrypt adalah sebuah data atau kode yang sengaja di samarkan supaya tidak bisa dikenali dan Decrypt adalah sebuah alat untuk mengembalikan data yang sudah terenkripsi atau dikembalikan ke aslinya.

Jadi Encrypt dan Decrypt adalah sebuah pasangan yang saling berhubungan dimana encrypt untuk merubah suatu kata atau kode dan decrypt bertugas untuk mengembalikan data atau kode yang sudah terencrypt.

Pada kesempatan ini saya akan membuat aplikasi encrypt dan decrypt pada visual basic 6.0 dengan mudah, mungkin tutorial ini sudah jadul karena masih menggunakan visual basic 6.0. Tapi apa salahnya jika saya berbagi tutorial tersebut.

Untuk bisa membuat aplikasi encrypt dan decrypt pada visual basic sangatlah gampang kalian hanya perlu menambahkan modul ke dalam project yang kaian buat supaya aplikasi encrypt dan decrypt bisa berjalan tanpa eror. Untuk lebih lengkapnya silahkan simak tutorial cara membuat encrypt dan decrypt pada microsoft visual basic di bawah ini.

---

Cara Membuat Encrypt Dan Decrypt Pada Visual Basic

Untuk bisa membuat enkripsi dan dekripsi pada visual basic anda harus menyiapkan 2 Command dan 3 TexBox dan anda harus menambahkan sebuah modul.

Buatlah 3 TexBox dengan nama:

1. Text1 diganti dengan txtInput
2. Text2 diganti dengan txtEncrypt
3. Text3 diganti dengan txtDecrypt

Buatlah 2 Command Button dengan nama:

1. CommanButton1 di ganti dengan cmdEncrypt
2. CommanButton2 di ganti dengan cmdDecrypt

Buatlah Modul

Salin kode dibawah ini lalu pastekan kedalam modul tersebut

#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

'Encrypt string
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

'Decrypt string
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 sudah selanjutnya silahkan tekan 2 kali pada form encrypt dan decrypt lalu pastekan kode di bawah ini

Private Sub Command1_Click()
txtEncrypt.Text = EncryptText(txtInput.Text, "123456789")
End Sub

Private Sub Command2_Click()
txtDecrypt.Text = DecryptText(txtEncrypt.Text, "123456789")
End Sub

Silahkan jalankan aplikasi anda dan selamat aplikasi encrypt dan decrypt pada visual basic sudah anda buat.

Buat anda yang masih kebingungan dalam Membuat Encrypt Dan Decrypt Pada Visual Basic ini silahkan anda bisa mendownload source codenya dibawah ini.

Source Code.zip 512kb

https://www.mediafire.com/file/y5et66aqv886yng/Encrypt.rar/file

Silahkan anda kembangkan lagi aplikasinya. Sekian dulu tutorial tentang Cara Membuat Encrypt Dan Decrypt Pada Visual Basic, semoga bermanfaat dan selamat ngoding.

Baca juga :

Go to Link