10 lines
265 B
Perl
10 lines
265 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
srand (time());
|
||
|
|
my $randletter = "(int (rand (26)) + (int (rand (1) + .5) % 2 ? 65 : 97))";
|
||
|
|
my $salt = sprintf ("%c%c", eval $randletter, eval $randletter);
|
||
|
|
my $plaintext = shift;
|
||
|
|
my $crypttext = crypt ($plaintext, $salt);
|
||
|
|
|
||
|
|
print "${crypttext}\n";
|