fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Einfachstpasswortgenerator

Uploader:	Sebastian
Datum/Zeit:	05.02.2008 17:16:39

'Einfachstpasswortgenerator



CONST Laenge = 8

CONST WieViele = 5



DIM AS INTEGER i, b, j

DIM AS STRING Z=""

DIM AS UBYTE Q(1 TO 62)



FOR i = 1 TO 26

    Q(i) = 64+i

NEXT i

FOR i = 27 TO 52

    Q(i) = 70+i

NEXT i

FOR i = 53 TO 62

    Q(i) = i-5

NEXT i



RANDOMIZE TIMER*100^3



FOR j = 1 TO WieViele

    Z=""

    FOR i = 1 TO Laenge

        DO

            b = INT(RND*62)+1

            IF (b >= 1) AND (b <= 62) THEN EXIT DO

        LOOP

        Z += CHR(Q(b))

    NEXT i

    PRINT Z

NEXT j



SLEEP

END

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.