Pada postingan kali ini Admin akan berbagi sebuah kode yaitu bagaimana cara meng-Enkripsi dan men-Deskripsi suatu file agar tidak bisa di baca oleh orang lain.
Tujuan meng-Enkripsi adalah melidungi data kita dari orang-oang jahil yang mau membaca atau membuka dokumen kita yang bersifat privasi dengan membuat kode kunci atau key sedangkan Deskripsi adalah sebaliknya untuk membuka suatu file yang ter-Enkripsi dengan kode kunci yang sudah kita buat saat meng-Enkripsi.
Berikut dibawah ini adalah hasil gambar File yang sudah di Enkripsi dan Deskripsi :
 |
| File terEnkripsi |
 |
| File terDeskripsi |
Berikut adalah langkah-langkah cara membuat Enkripsi dan Deskripsi File Dengan Menggunakan Visual Basic 6.0 (VB6) :
1. Buka Form VB6 Standar EXE
2. Pada Form1 tambahkan beberapa komponen berikut :
3 Label
3 TextBox
3 CommandButton, dan
1 CommonDialogControl
3. Desainlah Form seperti gambar dibawah ini :
 |
| Form Desain |
4. Setelah mendesain Form seperti diatas ketiklah kode dibawah ini :
Private Function EncryptFile(sourceFile As String, destFile As String, key As String) As Boolean
On Error GoTo ErrorHandler
Dim sourceNum As Integer
Dim destNum As Integer
Dim buffer() As Byte
Dim i As Long
Dim keyLen As Long
sourceNum = FreeFile
Open sourceFile For Binary Access Read As #sourceNum
ReDim buffer(LOF(sourceNum) - 1)
Get #sourceNum, , buffer
Close #sourceNum
keyLen = Len(key)
For i = 0 To UBound(buffer)
buffer(i) = buffer(i) Xor Asc(Mid(key, (i Mod keyLen) + 1, 1))
Next i
destNum = FreeFile
Open destFile For Binary Access Write As #destNum
Put #destNum, , buffer
Close #destNum
EncryptFile = True
Exit Function
ErrorHandler:
EncryptFile = False
End Function
Private Function DecryptFile(sourceFile As String, destFile As String, key As String) As Boolean
' Karena kita menggunakan XOR, proses dekripsi sama dengan enkripsi
DecryptFile = EncryptFile(sourceFile, destFile, key)
End Function
Private Sub Command1_Click()
Dim sourceFile As String
Dim destFile As String
Dim key As String
sourceFile = Text1.Text
destFile = Text2.Text
key = Text3.Text
If key = "" Then
MsgBox "Kunci tidak boleh kosong!", vbExclamation, "Info"
Exit Sub
End If
If EncryptFile(sourceFile, destFile, key) Then
MsgBox "File terenkripsi berhasil!", vbInformation, "Info"
Else
MsgBox "Terjadi kesalahan saat mengenkripsi file.", vbCritical, "Info"
End If
End Sub
Private Sub Command2_Click()
Dim sourceFile As String
Dim destFile As String
Dim key As String
sourceFile = Text1.Text
destFile = Text2.Text
key = Text3.Text
If key = "" Then
MsgBox "Kunci tidak boleh kosong!", vbExclamation, "Info"
Exit Sub
End If
If DecryptFile(sourceFile, destFile, key) Then
MsgBox "File terdekripsi berhasil!", vbInformation
Else
MsgBox "Terjadi kesalahan saat mendekripsi file.", vbCritical, "Info"
End If
End Sub
Private Sub Command3_Click()
CommonDialog1.Filter = "All Files (*.*)|*.*"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
Text2.Text = CommonDialog1.FileName
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.Locked = True
Text2.Locked = True
End Sub
No comments:
Post a Comment