VB-Homepage Tipp 088

einfache Passwortverschlüsselung

Wenn Sie zum Beispiel für die Berechtigung ein Programm zu starten oder für einen Bildschirmschoner ein Paßwort in einer Datei ablegen möchten um dieses bei Bedarf mit der Usereingabe zu vergleichen, hab ich hier eine recht einfache Möglichkeit für Sie. Für einen kleinen Test öffnen Sie ein neues VB Projekt. Fügen Sie nun folgendes untereinander Textbox ( Text1.Text - zur Eingabe des zu verschlüsselnden Paßwortes ) Commandbutton (Command1 - Aktiviert die Verschlüsselung ) Textbox ( Text.Text - enthält nach Aktion das verschlüsselte Paßwort ) Commandbutton (Command2 - Aktiviert die Entschlüsselung ) Textbox (Text3.Text - enthält nach Aktion das zurück entschlüsselte Paßwort ) Fügen Sie nun folgenden Code hinzu Command1_Click Text1.Text = UCase(Trim(Text1.Text)) 'damit Eingabe eindeutig wird For i = 1 To Len(Text1.Text) 'Schleife so lang wie der eingegebene Text ist    zeichen$ = Mid(Text1.Text, i, 1) 'holt sich alle eingegebenen Zeichen    Text2.Text = Text2.Text + Chr$(Asc(zeichen$) + i * 3) 'und codiert diese Next i Command2_Click Private Sub Command2_Click() For i = 1 To Len(Text2.Text)    zeichen$ = Mid(Text2.Text, i, 1)    Text3.Text = Text3.Text + Chr$(Asc(zeichen$) - i * 3) Next i Durch das variieren des ermittelten codierten Zeichens werden auch gleiche Zeichen nicht als gleiche Zeichen erkennbar sein. Anstelle der Ausgabe in eine Textbox, müßten Sie nun noch die Ausgabe in eine Datei definieren.

Tipp-Download

Quelle :