home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / sys / handheld / 2438 < prev    next >
Encoding:
Internet Message Format  |  1992-11-19  |  1.9 KB
  1. Path: sparky!uunet!haven.umd.edu!darwin.sura.net!jvnc.net!netnews.upenn.edu!netnews.noc.drexel.edu!noc.ocs.drexel.edu!tslopez
  2. From: tslopez@mcs.Drexel.edu (Scott Lopez)
  3. Newsgroups: comp.sys.handhelds
  4. Subject: HP28S PW Generator
  5. Message-ID: <TSLOPEZ.92Nov20001210@queen.mcs.Drexel.edu>
  6. Date: 20 Nov 92 05:12:10 GMT
  7. Sender: news@netnews.noc.drexel.edu
  8. Distribution: usa
  9. Organization: Drexel University
  10. Lines: 31
  11.  
  12.  
  13. Ok, this is my first post so go easy on me.
  14. Anyway, I frequent BBS's in the area, and like a good user use a random
  15. password on them. Well I got tired of making up new ones (my head hurts)
  16. so I wrote up this little program on my HP28s to make it think for me.
  17. You can try it if you like, modify it, whatever. It currently will generate
  18. a 7 character password consisting of uppercase letters and numbers.
  19. Totally random (as random as the HP is). To get a new one, just press a
  20. key. Works fine, could be adjusted for length with a little modification.
  21. Enjoy...
  22.  
  23. 'Pass'   [8D8B]                 : My program name and checksum
  24. << RAND RDZ                     : Randomize the random seed
  25.    1 3 FOR i                    : Loop to generate pairs of characters
  26.     RAND 25 * IP 65 + CHR       : Generate a random uppercase letter
  27.     RAND 9 * IP ->STR +         : Generate a random number & convert to string
  28.    NEXT                         : Combine the pair and next iteration
  29.    RAND 25 + IP 65 + CHR        : Generate last random letter
  30.    + + +                        : Combine all charcters into 7 char password
  31. >>
  32.  
  33. Hope you like it, it's not much. But it does the trick. Any questions,
  34. comments, modifications are welcome!
  35.  
  36. Scott Lopez
  37.  
  38. --
  39. (__)                            |   Scott J. Lopez    tslopez@mcs.drexel.edu
  40. ( oo   _ The Cow Says "Arf!"    |                  or jspectre@aol.com
  41. /\_|  /                         |   
  42.                                 |      All unopened mail will be opened.
  43.