RSS

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 :)


Ohya, baca juga artikel: Nissan X-trail Mobil SUV Tangguh dan Sporty Terbaik

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

3 komentar:

Adhit mengatakan...

program visual basic yang terbaru ada gax gan???

zf_1221 mengatakan...

banyak kok.
tapi kebetulan ja skrg lg saya lg banyak kerjaan offline, makanya jarang update artikel di blog ini. tunggu ja ych?!

Anonim mengatakan...

saya ingin belajar buat2 program
namun saya buta banget
bingung baca2 sana sini, ada yg buat program pakai java, ada vb, dan lain2,,,tapi gak mudeng gunanya gmn,.
jika ada yg berkenan untuk mengajari saya, saya ucapkan trima kasih
saya harus mulai darimana saya gak ngerti
ini no hp saya 085297777535 id ym dan email aigluz@ymail.com

Posting Komentar