nph>perl -ne'BEGIN{print "Pass: "}; $S="ab"; print crypt($_, $S), "\nPass: "' Pass: test abpNYMT5RGuX6 Pass: test1 abW8wbI6pkG9g Pass: test12 abP627jOqenSg Pass: test123 abpwNzBDeyy9Y Pass: test1234 abP/cckPJaUqA Pass: test12345 abP/cckPJaUqA Pass: test123456 abP/cckPJaUqA Pass: