Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 071016dad7
Fetching contributors…

Cannot retrieve contributors at this time

executable file 21 lines (15 sloc) 0.303 kB
#!/usr/bin/perl
$| = 1;
print "plaintext> ";
while (<>) {
chomp;
$result = &mkpasswd($_);
print "\t$result\n";
print "plaintext> ";
}
sub mkpasswd {
my $what = $_[0];
my $salt = chr(65+rand(27)).chr(65+rand(27));
$salt =~ s/\W/x/g;
return crypt($what, $salt);
}
Jump to Line
Something went wrong with that request. Please try again.