Enkripsi dan Deskripsi Teks dengan Visual Basic

Enkripsi dan Deskripsi Teks dengan Visual BasicEnkripsi dan deskripsi teks…ya itu yang akan kita coba kali ini. Prinsipnya sebuah teks yang bersifat rahasia seperti pesan rahasia atau bisa juga surat cinta yang takut dibaca orang lain..hehehe..bisa kita enkripsikan menjadi chipertext dengan pasword tertentu, kemudian untuk membacanya lagi kita harus menggunakan pasword yang sama pula untuk mengembalikan teks yang terenkripsi menjadi plaintext atau teks awal sebelum di enkripsi.


Sekarang.. mari kita coba membuat program enkripsi dan deskripsi tersebut dengan Visual Basic 6.0.

Pertama masuk ke Visual Basic 6.0, kemudian buat project baru yaitu Standard.exe. Lalu buatlah tampilan form dengan menambahkan 1 buah Label, 2 buah TextBox dan 2 buah CommandButton sehingga menjadi seperti gambar d bawah ini :
deskripsienkripsi1

Ganti properti caption dari Label dan CommandButton, kemudian kosongkan properti Text dari Text1 dan Text2, khusus Text1 atur properti MultiLine menjadi True sehingga tampilan menjadi seperti gambar di bawah ini :
deskripsienkripsi2

Jika user interface sudah selesai langkah terakhir adalah Copy Paste Kode di bawah ini ke Kode Editor Visual Basic :

‘==========ENKRIPSI

Function EncryptText(strText, ByVal strPwd)
Dim i, c
Dim strBuff
If strPwd <> “” And strText <> “” Then
strPwd = UCase(strPwd)
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
Else
strBuff = strText
End If
EncryptText = strBuff
Else
EncryptText = “”
End If
End Function

‘==========DESKRIPSI

Function DecryptText(strText, ByVal strPwd)
Dim i, c
Dim strBuff
If strPwd <> “” And strText <> “” Then
strPwd = UCase(strPwd)
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
Else
strBuff = strText
End If
DecryptText = strBuff
Else
DecryptText = “”
End If
End Function

Private Sub Command1_Click()
Text1.Text = EncryptText(Text1.Text, Text2.Text)
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Text1.Text = DecryptText(Text1.Text, Text2.Text)
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Form_Load()
Command2.Enabled = False
End Sub

Sekarang program tinggal dijalankan. Masukkan teks yang akan dienkripsikan kemudian masukkan password dan klik tombol ENKRIPSI maka teks akan terenkripsi seperti yang ditunjukkan oleh gambar berikut :

enkripsi

Untuk mendeskripsikan ke teks awal, dengan menggunakan password yang sama kemudian klik tombol DESKRIPSI, makan teks akan kembali menjadi plaintext semula seperti pada gambar berikut :

deskripsi

Selesai…
Selamat Mencoba :)



Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)


0 komentar to "Enkripsi dan Deskripsi Teks dengan Visual Basic"

Posting Komentar

Pages

Diberdayakan oleh Blogger.
Web hosting for webmasters