Code: Alles auswählen
crypt_passwort$ = DESFingerprint("meinpasswort","meinkey")
OpenConsole()
Print("Gebe Dein Passwort ein : ")
eingabe$ = Input()
PrintN("")
Print("Gebe Dein Key ein : ") ;ätsch es reichen die ersten beiden zeichen...
key$ = Input()
PrintN("")
If DESFingerprint(eingabe$,key$) = crypt_passwort$
PrintN ("Richtig")
Else
PrintN ("Falsch")
EndIf
PrintN("Druecken Sie Escape zum Beenden.")
Repeat
KeyPressed$ = Inkey()
Until KeyPressed$ = Chr(27) ; Wartet, bis Escape gedrückt wird
Bei der Frage nach dem Passwort musst Du ganz genau meinpasswort eingeben bei der Frage Nach dem Key reichen schon die ersten Zwei Zeichen.
Also „me“, „mei“ oder auch „mein“ …
Nur „m“ allein funktioniert nicht…
Auch ist die GROSS und kleinschreibung sehr wichtig!