0d1a7087ef
r=timeless git-svn-id: svn://10.0.0.236/trunk@187556 18797224-902f-48f8-a5cc-f745e15eee43
11 lines
293 B
Perl
Executable File
11 lines
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";
|