password generator

[Robert Vojta]

Zdravim,
  nejsem sice perlista, ale kdysi se vytvoril neco takoveho, snad vam to nekomu
pomuze. Pouziva se to asi takhle:

use lib ".";
use Password;

$Passwd = new Password;
$nove_heslo = $Passwd->gennew();

  Pak je tam jeste funkce $Passwd->simple a ta zjistuje, jestli heslo neni
moc jednoduche - $Passwd->simple("heslo") vrati 1, protoze heslo je moc
jednoduche, vrati 0 kdyz neni jednoduche. Pokud pouzijete funkci simple
na heslo vygenerovane gennew mel by vzdy vracet 0, ale myslim, ze jsem ty
hesla trochu zjednodusil a uz to nedela.

  S pozdravem,
    Robert Vojta

P.S. Naleza se to na http://penguin.clark.cz/work/password/password.tgz

--

 Robert Vojta aka Penguin (Oo.oO)                           \)/ .-.
                                                             /,(o,o)
 Clark NetProject, spol. s r.o.                             ()  (w)
 Okruzni 29a                                         /_ ___  \\,=",
 63800 Brno                                          '-()-()   =/=\\
                                                    //\\||  ==== ()
 ICQ: 64746424, mobil: 0608-170783                   /`  \\|  ="=  `|
                                                   =="    `(0V0)    '--