Enkripsi dan dekripsi sederhana pada VB6

Fungsi enkripsi pada sebuah aplikasi menjadi sebuah kebutuhan yang primer guna menghindari pada hacker untuk masuk dalam aplikasi yang kita buat. Pada kesempatan ini kita akan membahas cara membuat enkripsi dan dekripsi yang sangat sederhana dengan memnggunakan visual basic 6.0.

Langkah pertama kita buat form seperti lay out dibawah ini, untuk mempermudah penjelasan fungsi enkripsi dan dekripsi.
 

 Pada form tersebut kita menggunakan 4 buah text box dan 2 buah command. penjeasannya adalah text1 untuk kata yang akan di enkripsi dan text2 untuk hasil dari enkripsi text1. untuk text 3 merupakan kata yang akan di dekripsi dan text4 untuk hasil dari dekripsi text3.

untuk membuat enkripsi dan dekripsi kita menggunakan function, untuk sourcenya sepeti berikut:

Public Function Encrypt(strText as String) as String
dim i as integer
fEncript=""
For i =1 to Len(Trim(strText))
  fEncript=fEncript & Chr(Asc(Mid(strText,i,1)) + (Len(strText))+1)
Next i
text2.text=fEncript
end Function

Untuk fungsi dekripsinya seperti berikut:

Public Function Decrypt(strText as String) as String
dim i as integer
fDecript=""
For i =1 to Len(Trim(strText))
  fDecriptt=fDecript & Chr(Asc(Mid(strText,i,1)) - (Len(strText))+1)
Next i
text4.text=fDecript
end Function

Untuk pemanggilan fungsi tersebut pada command1 kita tinggal pangil fungsi tersebut menggunakan source sbb:

Call Encrypt(text1.text)
atau
Call Decrypt(text3.text)

Hasil dari enkripsi dan dekripsi tersebut kita menggunakan visualisasi dari text2 dan text4. Fungsi ini masih sederhana, tetapi dasar dari pembuatan enkripsi dan dekripsi kurang lebih seperti ini. Semoga dapat membantu.

Tweet