Pada artikel kali ini saya akan membagikan sebuah tips bagaimana cara membuat Encrypsi pesan dengan menggunakan Visual Basic 6.0.
Sebenarnya istilah encrypsi mempunyai lawannya yaitu descrypsi.Istilah keduanya merupakan istilah yang digunakan dalam kriptografi untuk mengamankan informasi dan komunikasi melalui penggunaan kode.
Istilah Encrypsi dan Decrypsi mempunyai perbedaan yang berlawanan, dimana Encrypsi adalah berfungsi mengubah plaintext (informasi yang dapat dibaca) menjadi ciphertext (informasi yang tidak dapat dibaca) dengan menggunakan algoritme enkripsi. Hal ini dilakukan untuk melindungi data yang sensitif misalnya Password dan lain sebagainya yang dianggap rahasia.
Sedangkan Descrypsi sebaliknya di mana cipherteks diubah kembali ke bentuk plainteks aslinya menggunakan algoritme dekripsi.
 |
| Encrypsi Pesan |
Dalam postingan kali ini saya akan membuat proses Encrypsi dan Descrypsi suatu pesan dengan menggunakan visual basic 6.0.
Berikut adalah langkah-langkahnya :
1. Buka Form VB6 Standar EXE
2. Pada Form tanamkan 2 Textbox dan 2 Commandbutton
3. Kemudian ketik kode dibawah ini :
Dim icChar As String
Dim i As Integer
Function Encrypt(ByVal icText As String) As String
Dim icLen As Integer
Dim icNewText As String
icChar = ""
icLen = Len(icText)
For i = 1 To icLen
icChar = Mid(icText, i, 1)
Select Case Asc(icChar)
Case 65 To 90
icChar = Chr(Asc(icChar) + 127)
Case 97 To 122
icChar = Chr(Asc(icChar) + 121)
Case 48 To 57
icChar = Chr(Asc(icChar) + 196)
Case 32
icChar = Chr(32)
End Select
icNewText = icNewText + icChar
Next
Encrypt = icNewText
End Function
Function Decrypt(ByVal icText As String) As String
Dim icLen As Integer
Dim icNewText As String
icChar = ""
icLen = Len(icText)
For i = 1 To icLen
icChar = Mid(icText, i, 1)
Select Case Asc(icChar)
Case 192 To 217
icChar = Chr(Asc(icChar) - 127)
Case 218 To 243
icChar = Chr(Asc(icChar) - 121)
Case 244 To 253
icChar = Chr(Asc(icChar) - 196)
Case 32
icChar = Chr(32)
End Select
icNewText = icNewText + icChar
Next
Decrypt = icNewText
End Function
Private Sub Command1_Click()
Text2.Text = Encrypt(Text1.Text)
End Sub
Private Sub Command2_Click()
Text2.Text = Decrypt(Text1.Text)
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
4. Lalu jalankan Project Anda, kemudian isikan kalimat atau pesan pada textbox pertama dan tekan tombol Encrypt.
Demikian artikel hari ini tentang Cara Membuat Program Encrypsi Pesan Dengan Menggunakan VB6.
Semoga arikel ini bermanfaat buat kita semua, Amin.
Selamat mencoba semoga sukses,
No comments:
Post a Comment