Selasa, 06 Maret 2012

Enkripsi Dan Deskripsi Teks Visual Basic 6.0

Untuk kali ini, ge browsing-browsing diinternet saya ge cari tugas, dapat artikel yang bagus untuk tugas Kriptograpi Enkripsi Dan Deskripsi Teks Visual Basic 6.0 . 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


kemudian 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

Selamat Mencoba Ya...Dalam Hal Ini Saya Sendiri Masih Belajar ^^^^

sumber: http://ojelhtc.blogspot.com/2010/09/enkripsi-dan-deskripsi-teks-visual.html

0 komentar:

Posting Komentar

AHMAD TAUFIK SIREGAR
 
;