gecko-dev/webtools/bonsai/trapdoor

11 строки
293 B
Perl
Executable File

#!/usr/bin/perl -wT
if (!defined $ARGV[0]) {
print "Usage: trapdoor PASSWORD\n";
exit 2;
}
# XXX We are using salt as 'aa' for now, but ideally it should be
# something like:
# chr(int (rand 26) + 65) . chr(int (rand 26) + 65);
my $salt = 'aa';
print crypt($ARGV[0], $salt) . "\n";