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 :

Zurück zur Übersichtsseite