Auto Generator

[DataDoIt]

This is absolutely perfect Brian.  Thank you!

-Mike R.


|-----Original Message-----
|From: filepro-list-bounces at lists.celestial.com
|[mailto:filepro-list-bounces at lists.celestial.com]On Behalf Of Brian K.
|White
|Sent: Wednesday, March 24, 2004 6:43 PM
|To: filePro mailing list
|Subject: Re: Auto Generator
|
|
|@once:   if:
|       : then: x = rand("-1") ; end
|@keyp  :   if:
|       : then: pw(8,alnum) = ""
|nxtc   :   if: pw co " "
|       : then: pw = pw { chr(int(rand()*"76"/"32768")+"48") ; goto
|       nxtc :   if:
|       : then: msgbox pw ; end
|
|
|ok, @entsel was a bad recommendation in combination with code 
|that is run
|from an @key
|if you hit the @key several times in a raw, the @entsel keeps 
|re-seeding
|rand with the same time value until a second passes and you 
|get the same
|password several times in a row and the password changes only 
|about once
|every second.
|
|ask me how I know :)
|
|see to it that rand("-1") always gets run, but only gets run 1 time.
|
|since rand("-1") is a 5.0 feature anyways, I guess it's no 
|worse to also say
|to use it in @once, which works nicely I can report.
|
|Brian K. White  --  brian at aljex.com  --  http://www.aljex.com/bkw/
|+++++[>+++[>+++++>+++++++<<-]<-]>>+.>.+++++.+++++++.-.[>+<---]>++.
|filePro BBx  Linux SCO  Prosper/FACTS AutoCAD  #callahans Satriani
|
|_______________________________________________
|Filepro-list mailing list
|Filepro-list at lists.celestial.com
|http://mailman.celestial.com/mailman/listinfo/filepro-list
|