vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
Re: Kennwortgenerator 
Autor: ModeratorDieter (Moderator)
Datum: 03.01.02 23:49
Hallo Franz,

wenn ich mich recht entsinnde, dann wolltest Du:

Check1 (Grossbuchstaben erlaubt)
Check2 (Kleinbuchstaben erlaubt)
Check3 (Zahlen erlaubt)
Check4 (Sonderzeichen erlaubt)

Wenn man das berücksichtigt, dann sollte der Code zum autom. Generieren von Kennwörtern so aussehene: 
<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Command1_Click()
 
  <font color=#000099>Dim</font> intZahl <font color=#000099>As</font> <font _
    color=#000099>Integer</font>
  <font color=#000099>Dim</font> strKennwort <font color=#000099>As</font> _
  <font color=#000099>String</font>
  <font color=#000099>Dim</font> n <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
 
  Randomize -Timer
 
  strKennwort = ""
  lstKennwörter.Clear
  lstKennwörter.Visible = <font color=#000099>False</font>
 
  <font color=#000099>For</font> n = 1 <font color=#000099>To</font> _
    txtAnzahl.Text
    <font color=#000099>If</font> Check1.Value = 1 <font _
    color=#000099>Or</font> Check2.Value = 1 <font color=#000099>Or</font> _
    Check3.Value = 1 <font color=#000099>Or</font> Check4.Value = 1 <font _
    color=#000099>Then</font>
      strKennwort = ""
      <font color=#000099>Do</font> <font color=#000099>Until</font> Len( _
        strKennwort) = txtLänge.Text
        DoEvents
 
        <font color=green>' Zufallszahl im Bereich 32 - 128</font>
        <font color=green>' (nur druckbare Zeichen)</font>
        intZahl = Int((128 - 32 + 1) * Rnd + 32)
 
        <font color=#000099>If</font> (Check1.Value = 1) <font _
          color=#000099>And</font> (intZahl >= 65 <font _
          color=#000099>And</font> intZahl <= 90) <font _
          color=#000099>Then</font>
          <font color=green>' Grossbuchstaben erlaubt</font>
          strKennwort = strKennwort & Chr(intZahl)
        <font color=#000099>ElseIf</font> (Check2.Value = 1) <font _
          color=#000099>And</font> (intZahl >= 97 <font _
          color=#000099>And</font> intZahl <= 122) <font _
          color=#000099>Then</font>
          <font color=green>' Kleinbuchstaben erlaubt</font>
          strKennwort = strKennwort & Chr(intZahl)
        <font color=#000099>ElseIf</font> (Check3.Value = 1) <font _
          color=#000099>And</font> (intZahl >= 48 <font _
          color=#000099>And</font> intZahl <= 57) <font _
          color=#000099>Then</font>
          <font color=green>' Zahlen</font>
          strKennwort = strKennwort & Chr(intZahl)
        <font color=#000099>ElseIf</font> (Check4.Value = 1) <font _
          color=#000099>Then</font>
          <font color=green>' Sonderzeichen erlaubt</font>
          strKennwort = strKennwort & Chr(intZahl)
        <font color=#000099>End</font> <font color=#000099>If</font>
      <font color=#000099>Loop</font>
 
      lstKennwörter.AddItem strKennwort
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>Next</font> n
  lstKennwörter.Visible = <font color=#000099>True</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>
Cu
Dieter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Kennwortgenerator129Franz02.01.02 14:10
Re: Kennwortgenerator540ModeratorDieter02.01.02 15:21
Re: Kennwortgenerator104Franz03.01.02 20:01
Re: Kennwortgenerator440ModeratorDieter03.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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel