Ideal random uniquie password geneartor - here!

agat 27.09.2002 18:10

Etot nabor macrosov sozdaet i zapisivaet v DB opredelennoye argumentom kolichestvo password'ov.

@crypt[rnd]
#zdes mozhet ne hvatat sporta - ne obessudte - ya poka bolshe ne 
#umeyu...:)..
$s[^math:crypt[$rnd;^$apr1^$]]
$s[^s.match[(\^$apr1\^$)(\w)][gi]{$match.2}]
$s[^s.match[([\.|\^$|/])][gi]{}]
$result[^s.upper[]]

@getUniqueRND[count]
$new[^hash::create[]]
$used[^hash::sql{select code,id from cards}]
^for[x](1;$count){
$rnd[^math:random(1000000000)]
$n[^crypt[$rnd]]
^while(def $used.[$n] && def $new.[$n]){
   $n[^crypt[^rnd.inc[]]]
}
$new.[$n][1]
}
^new.foreach[key;value]{
#zdes idet zapis(dobavlenie) novih paroley v DB
#vi mozhete eto vse delo pisAt, kuda vam vzdumaetsa..:)..
        ^void:sql{insert into cards (code) values ('$key')}
}

Vizivat nado ^getUniqueRND[kol-vo trebuemih paroley]...

V razrabotke ispolzovani soveti tovarischa Luzhnikovskogo - za chto emu ogromnoe spasibo!

---