perl -E "say 'WTF' if crypt('12345678', 'pm') eq crypt('123456789', 'pm')"