home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Telecom / PASSWORD-GENERATE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  896 b   |  25 lines
  1. 10 REM *RANDOM PASSWORD GENERATOR*
  2. 11 POKE53280,14:POKE53281,6:PRINT""
  3. 12 PRINT"[147] RANDOM PASSWORD GENERATOR"
  4. 14 PRINT  " STEVE FISK - DECEMBER 1989."
  5. 16 PRINT  " [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  6. 18 INPUT" HOW MANY CHARACTERS IN PASSWORD";C:IFC<>INT(C)THENC=0
  7. 19 IFC>250THENPRINT" MAXIMUM IS 250 CHARACTERS.":GOTO18
  8. 20 IFC<1THENPRINT" INCORRECT INPUT - TRY AGAIN.":GOTO18
  9. 21 INPUT" HOW MANY PASSWORDS TO GENERATE";P:IFP<>INT(P)THENP=0
  10. 22 IFP>10THENPRINT" MAXIMUM IS 10 AT A TIME.":GOTO21
  11. 23 IFP<1THENPRINT" INCORRECT INPUT - TRY AGAIN.":GOTO21
  12. 24 PRINT" GENERATING";
  13. 25 FORX=1TOP:F=1
  14. 26 FORY=1TOC
  15. 27 CH=INT(TI*RND(1))+1
  16. 28 IFCH>90THENCH=INT(CH/2):GOTO28
  17. 29 E=0:IFCH<48ORCH>57THENE=1
  18. 30 IFCH>64ANDCH<91THENE=0:F=0
  19. 31 IFE=1ORF=1THEN27
  20. 32 PW$(X)=PW$(X)+CHR$(CH):PRINT".";:NEXTY:NEXTX
  21. 34 PRINT:PRINT" PASSWORD GENERATION COMPLETE."
  22. 36 PRINT " HERE ARE YOUR PASSWORDS:"
  23. 38 FORX=1TOP:PRINT"  ";PW$(X):NEXTX
  24. 40 END
  25.