[ISENG] Membuat Program Enkripsi dan Dekripsi di VB6

Dalam bidang CODER, terdapat bagian Sekuriti, Dan Sekuriti pada salah satu materinya adalah Basic Mission 7 yaitu tentang enkripsi – enkripsi. Teknik yang digunakan dalam persandiannya adalah menggunakan pergeseran nilai ASCII dari karakter sesuai dengan posisi yang ia tempati.

Kita dapat mengetahui bahwa metode ini menggunakan nilai ASCII dengan cara masukkan huruf a sebanyak – banyaknya hingga dirasa cukup, kemudian tekan tombol Enkripsi. Maka akan muncul kotak – kotak yang bukan berupa huruf maupun simbol tapi berupa kotak – kotak yang di dalamnya terdapat angka. Dari situ dapat kita ketahui bahwa pergeserannya adalah menggunakan nilai ASCII.

Melalui Microsoft Visual Basic 6.0, kita dapat mengambil nilai ASCII dari sebuah karakter, adalah dengan menggunakan perintah ASC(). Sedangkan untuk mengembalikan karakter dari sebuah nilai, kita gunakan perintah CHR().

Metode Enkripsi dan Dekripsi ini dapat kita gunakan untuk mengirimkan pesan rahasia, pesan pribadi, dan lain-lain. Cukup dengan memiliki program Enkripsi dan Dekripsi yang sama, kita dapat mengirimkan pesan yang hanya dapat diterjemahkan oleh kita. Pergeseran Nilai ASCII nya pun dapat kita ubah sesuai dengan keinginan kita agar lebih private.

Referensi aslinya dapet dari sini http://acid.it-kosongsatu.com/2009/08/basic-mission-7/  tapi sedikit di otak-atik, jadi ada fitur baru yaitu bisa pake kode kunci (key), jadi logikanya ketika kita enkripsi dengan key 5 namun ketika didekripsi dengan key mis. 9 tidak akan mengembalikan nilai aslinya, intinya key ketika di enkripsi dan didekripsi harus sama.


codingnya:

Private Sub cmdencrypt_Click()
Text2.Text = Empty
a = Len(Text1.Text)
For i = 0 To (a - 1)
B = Asc(Mid(Text1.Text, i + 1, 1))
C = B + i + Val(Text3)
d = Chr(C)
If Text3.Text = "" Then
MsgBox "Silahkan Masukkan Key!"
End If
Text2.Text = Text2.Text + d
Next i
End Sub

Private Sub cmddecrypt_Click()
Text2.Text = Empty
a = Len(Text1.Text)
For i = 0 To (a - 1)
B = Asc(Mid(Text1.Text, i + 1, 1))
C = B - i - Val(Text3)
d = Chr(C)
If Text3.Text = "" Then
MsgBox "Silahkan Masukkan Key!"
End If
Text2.Text = Text2.Text + d
Next i
End Sub

Tapi berhubung cuma iseng, jadi masih banyak bug ==a nanti kapan-kapan lanjut dikembangin lagi :)


contoh outputnya:


Kalimat "I Love You :)" dienkripsi menggunakan key 5

Selanjutnya ketika hasil enkripsi tadi didekripsi dengan key 7

Hasilnya jadi aneh wkwkwk


Dan terakhir ketika didekripsi menggunakan key yang sama ketika dienkripsi yaitu 5

Sekian iseng saya (halah ==a) semoga bermanfaat..