Hi ALL,
it is puzzling. I am trying to generate passwords,
but it is not working, it generates but no
authetication
when I put the string in to postfix db.
Any idea.
-Mehmet
#!/usr/bin/perl -w
$pwin=<STDIN>;
@pool=(('a'..'z'), ('A'..'Z'),('0'..'9'), ".", "/");
$salt="";
[EMAIL PROTECTED](@pool)].$salt;
[EMAIL PROTECTED](@pool)].$salt;
print "$salt \n";
$pw=crypt($pwin,$salt);
print "$salt, $pw\n";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
