Dim Code As String
Dim CodeSchlüssel As String
Dim Verschlüsselt As String
Dim Entschlüsselt As String
 
Private Sub Command1_Click() 'Verschlüsseln
Dim Wert As Integer
Randomize
Wert = Int((10000 * Rnd) + 1)
Code = CStr(Wert)
Verschlüsselt = VernamCode(Text1.Text, Code)
CodeSchlüssel = Hex(Code)
 
WritePrivateProfileString "Test", "Schlüssel", CodeSchlüssel, App.Path & _
  "\ini.ini"
WritePrivateProfileString "Test", "Text", Verschlüsselt, App.Path & "\ini.ini"
End Sub
 
Private Sub Command2_Click() 'Entschlüsseln
Dim Test As String
CodeSchlüssel = GetIniString("Test", "Schlüssel", "", App.Path & "\ini.ini")
Code = CStr(CLng("&H" & CodeSchlüssel))
Test = GetIniString("Test", "Text", "", App.Path & "\ini.ini")
Entschlüsselt = VernamCode(Test, Code)
Text1.Text = Entschlüsselt
End Sub