#!/bin/sh
# from itod v1.0 - copyright (c) alec muffett, 1996
perl -nle 'setpwent;crypt($_,$c)eq$c&&print"$u $_"while(($u,$c)=getpwent);' $@