[ LUGOS-PROG ] Generiranje nakljucnega gesla

[Branko F. Graèner]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

sicer ne vem, zakaj perl ne bi bil dober ... ampak vseeno :)

sub random_password {
 my ($dolzina)=@_;
 my $password,$ascii;
 while ($dolzina >0) {
  $ascii=rand(74)+48;
  if ( !(($ascii>90)&&($ascii<97)) && ! (($ascii>57)&&($ascii<63)) )
{
   $password=$password.chr($ascii);
   --$dolzina;
  }
 }
 return $password;
}

tole vrne naključno generiran password poljubne dolžine ... ok, sej
je bol tko algoritem, ampak hej, dela :P

brane

-----BEGIN PGP SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>

iQA/AwUBOtr9Du9q7Ci83GJUEQKXlwCgiRa/v26D5t7M0/GiWWga/ybWkKEAoMeN
sX8lGe+UzJ2jGV6GmazMaipx
=xKwH
-----END PGP SIGNATURE-----