kampung hijau

# Membuat Enkripsi di Visual Basic.
Pada Project VBP tambahkan 1 Form, 2 textbox dan 1 command button.
Kemudian beri listing program berikut :

Private Sub Command1_Click()
Text2.Text = Crypt(Text1.Text)
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Public Function Crypt(ByVal InputString As String) As String
Dim X As Integer
Dim SingleChar As String
Dim CharNum As Integer
Dim RandomInt As Integer
Dim RndKey As Integer
Dim OutString As String
Dim i, j As Integer

On Error GoTo EncryptError
RndKey = Len(InputString)
OutString = ""
X = Rnd(-RndKey)
For i = 1 To Len(InputString)
SingleChar = Mid$(InputString, i, 1)
CharNum = Asc(SingleChar)
For j = 0 To 15
RandomInt = Int(4 * Rnd)
Next j
CharNum = CharNum Xor RandomInt
SingleChar = Chr$(CharNum)
OutString = OutString + SingleChar
Next i
Crypt = OutString
Exit Function

EncryptError:
Crypt = ""
End Function