Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Kennwortgenerator
Autor: Franz
Datum: 03.01.02 20:01
So hab mich hingesetzt und das hier geprogt. Könntet ihr mir sagen ob der Code so gut ist? Randomize Dim zahl, kennwort kennwort = "" lstKennwörter.Clear lstKennwörter.Visible = False For n = 1 To txtAnzahl.Text If Check1.Value = 1 Or Check2.Value = 1 Or Check3.Value = 1 Or Check4.Value = 1 Then Do Until Len(kennwort) = txtLänge.Text DoEvents zahl = Int((Rnd * 128) + 1) If Check1.Value = 1 Then If zahl >= 65 And zahl <= 90 Then kennwort = kennwort & Chr(zahl) End If End If If Check2.Value = 1 Then If zahl >= 97 And zahl <= 122 Then kennwort = kennwort & Chr(zahl) End If End If If Check3.Value = 1 Then If zahl >= 48 And zahl <= 57 Then kennwort = kennwort & Chr(zahl) End If End If If Check4.Value = 1 Then If zahl >= 33 And zahl <= 47 Or zahl >= 58 And zahl <= 64 _ Or zahl >= 123 And zahl <= 126 Then kennwort = kennwort & Chr(zahl) End If End If Loop lstKennwörter.AddItem kennwort kennwort = "" End If Next n lstKennwörter.Visible = True CU Franz

Kennwortgenerator	129	Franz	02.01.02 14:10
Re: Kennwortgenerator	540	Dieter	02.01.02 15:21
Re: Kennwortgenerator	104	Franz	03.01.02 20:01
Re: Kennwortgenerator	439	Dieter	03.01.02 23:49

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen