[þÍÄ TSTTOAST 1.43b, UTC diff:5, Local tijd: Mon Apr 19 18:07:02 1999 ÄÍþ]

Hoi!

al 2 bbs sysops hier in de buurt hadden een password generator nodig om een
echter random password te maken (rammen op het toetsenbord is wat minder:)

dusseh... in qbasic : (bah:)



ON ERROR GOTO terror
RANDOMIZE TIMER
CLS
COLOR 3
PRINT : PRINT "Simpele (FBB) Password Generator in Q(uick) Basic door NL1RRS": PRINT
INPUT "Hoelang moet het password zijn? ", lengte
INPUT "Welke karakters mogen er niet in voorkomen (bijvoorbeeld $) ? ", nope$
INPUT "Hoeveel (verschillende) passworden maken? ", hoeveel
INPUT "Naam van het bestand ? ", phile$
deel = 50 / hoeveel
COLOR 7
LOCATE 9, 1: PRINT "Ú"; STRING$(12, 196); "ÄÍþ[Working:     % done]þÍÄ"; STRING$(12, 196); "¿"
LOCATE 10, 1: PRINT "³"; SPACE$(51); "³"
LOCATE 11, 1: PRINT "À"; STRING$(51, 196); "Ù"
COLOR 15
PRINT
OPEN phile$ FOR OUTPUT AS #1
   PRINT #1, "Iedere regel is 1 password. ascii's <32 zitten er niet in. - NL1RRS PWD GEN"
   FOR t = 1 TO hoeveel
     LOCATE 10, 2: PRINT STRING$(deel * t + 1, 254)
     d = INT(deel * t) * 2 + 2: IF d > 100 THEN d = 100
     LOCATE 9, 26: PRINT d
     FOR l = 1 TO lengte
1
       g$ = CHR$((RND * (255 - 32)) + 32)
       FOR a = 1 TO LEN(nope$)
         IF MID$(nope$, a, 1) = g$ THEN GOTO 1
       NEXT a
       s$ = s$ + g$
     NEXT l
     PRINT #1, s$
     s$ = ""
   NEXT t
CLOSE #1
COLOR 3
PRINT : PRINT : PRINT "Done!": END
END
terror:
CLS
PRINT "AAAAAAAAh een error": END


kweet trouwens niet of het al bestaat... maarja.

groetjes,

roel.





úÄÄÍþAx.25 Mail þ NL1RRS@NL3LEI - TCP/IP Mail þ NL1RRS@packet.cistron.nlþÍÄÄú
  Ü       Ü  ÜÜ  ÜÜ  ÜÜ     ÜÜ         ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 ÛÛÛÜ  ÜÛÛÛ ÛÛÛßÞÛÛ ÛÛÛÛÜ  ÛÛÛÛÜ ÜÛÛÛß ³Roel de NL1RRS uit Sassenheim, JO22GF
ÞÛÛÛÛÛÝÛÛÛÝÞÛÛÛ ÛÛÛÞÛÛ ÛÛÝÞÛÛ ÛÛÝÛÛß   ÃÄú                       
ÛÛÛßÞÛÛÛÛÛ ÛÛÛ ÞÛÛÛÞÛÛÝÛÛ ÞÛÛÝÛÛ ßÛÛÛÝ |PaCKeTiNG on:                        
ÛÛÛ  ÛÛÛÛÝÞÛÛÛ   ÛÛÞÛÛÛÛß ÞÛÛÛÛß  ÞÛÛÛ |
ÛÛÛ  ÞÛÛÛ ÛÛÛÝ   ÛÛ ÛÛ ÛÛÜ ÛÛ ÛÛÜ  ÛÛÛ :DAï640 - PCTïC, PII-350 - 32 MB SDRAM
ÛÛÛÝ  ÛÛß ÛÛÛÛÛÜ ÛÛÞÛÛ ÞÛÛÝÛÛ ÞÛÛÝÛÛÛÝ ú1.2 GiG LiNuX, 6.8 GiG DoS
 ßÝ           ßÛ  ß ßÛ  ÞÛ ßÛ  ßÛ ÛÛÝ    
  þ            Þ  ß  Þ  Þ   Ý   Þ Þß    oNAiR aT 27.3150 MHz. / 1200 baud
               ß     ß            þ