crypt unter perl

[Frank Schönmann]

hi!

$pass = [das gewünschte Passwort];
@set = ('a'..'z');

Damit schließt du allerdings nur einen Teil der möglichen verwendbaren ein.

for ($i = 0; $i < 2; $i++) {
  $randum_num = int(rand($#set + 1));
  $salt .= @set[$randum_num];
}
$crypt = crypt($pass, $salt);

Kürzer:
=== cut ===
    my $salt = join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64];
    my $crypt = crypt $pass, $salt;
=== cut ===

bye, Frank!