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