Description |
Prüft, ob cVgl eine Verschlüsselung von cText ist.
Beispiel:
PROCEDURE TestUser(file, id, pw : STRING) : INTEGER
/* Funktion zur Überprüfung einer id-pw-Kombination.
file: passwd-Datei, die mit htpasswd (Apache) unter Linux erzeugt wurde
Rückgabewert: 1 : User okay
0 : No match
*/
VAR t : INTEGER = reset(file)
VAR l, vgl : STRING
WHILE NOT EOT(t) DO
IF pos(id+':',l:=readln(t)) THEN
close(t)
IF testpw(pw,l[length(id)+2,255])
THEN RETURN 1
ELSE RETURN 0
END
END
END
close(t)
RETURN 0
ENDPROC
|