Help for this page
while (<INFILE>) { print CRYPTFILE $cipher->crypt($_); }
while (<INFILE>) { print CRYPTFILE $cipher->crypt( pack("H*",$_) ); }