Chypertext Encryption With Subtitution Method In VB 6.0

Teknik enkripsi chypertext dengan menggunakan metode subtitution sebenarnya hanya sebuah metode sederhana yaitu hanya menaikan atau menurunkan nilai ascii saja.
Dengan menggunakan visual basic (vb 6.0) kita akan membuat sebuah program sederhana mengenai masalah enkripsi dengan menggunakan metode subtitution.

siapkanlah sebuah modul simpan dengan nama mdlchyper. kemudian ketikan script code dibawah ini :

Option Explicit

Public Function Encrypt(ByVal TextInput As String) As String
Dim NewLen As Integer
Dim NewTextInput As String
Dim NewChar As String
Dim i As Integer
NewChar = ""
NewLen = Len(TextInput)
For i = 1 To NewLen
NewChar = Mid(TextInput, i, 1)
Select Case Asc(NewChar)
Case 65 To 90
NewChar = Chr(Asc(NewChar) + 127)
Case 97 To 122
NewChar = Chr(Asc(NewChar) + 121)
Case 48 To 57
NewChar = Chr(Asc(NewChar) + 196)
Case 32
NewChar = Chr(32)
End Select
NewTextInput = NewTextInput + NewChar
Next
Encrypt = NewTextInput
End Function

Public Function Decrypt(ByVal TextInput As String) As String
Dim NewLen As Integer
Dim NewTextInput As String
Dim NewChar As String
Dim i As Integer
NewChar = ""
NewLen = Len(TextInput)
For i = 1 To NewLen
NewChar = Mid(TextInput, i, 1)
Select Case Asc(NewChar)
Case 192 To 217
NewChar = Chr(Asc(NewChar) - 127)
Case 218 To 243
NewChar = Chr(Asc(NewChar) - 121)
Case 244 To 253
NewChar = Chr(Asc(NewChar) - 196)
Case 32
NewChar = Chr(32)
End Select
NewTextInput = NewTextInput + NewChar
Next
Decrypt = NewTextInput
End Function

kalau sudah buatlah sebuah form dengan nama frmenkripsi kemudian siapkan 2 buah text box pada form lalu pada textbox 1 ketikan listing berikut :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = Encrypt(Text1.Text)
End If
End Sub

jalankan program dengan menekan tombol F5 kemudian isikan sebuah kata pada textboxt pertama lalu tekan Enter. nah nanti hasil enkripsi akan muncul pada textbox yang kedua..
well selamat mencoba....