String/Passwort Generator

  • Hi ,

    ich suche jemanden der mir ein String/Pw Generator schreibt.
    Er sollte ein Passwort mit einer Länge von 40 Zeichen generieren, es sollte aus a-z, A-Z, 0-9 & Sonderzeichen bestehen.
    Das besondere dabei - auf einen klein Buchstabe darf kein klein Buchstabe folgen - auf einen großen keinen großen auf eine Zahl keine Zahl.
    Wäre das realisierbar?
    100 Dank im Vorraus :D


    Gruß
    Silverlight

  • Ich hab es zwar noch nicht ausreichend getestet, sollte aber seinen Dienst vollbringen.


    Spoiler anzeigen
    [autoit]


    $pw = ""
    For $x = 1 To 40

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $pw &= Chr(Random(33,126))

    [/autoit] [autoit][/autoit] [autoit]

    ; Zahlenfolge
    If StringIsDigit(StringRight($pw,1)) And StringIsDigit(StringRight($pw,2)) Then
    $pw = StringTrimRight($pw,1)
    $x -= 1
    ContinueLoop
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    ; große Buchstaben
    If StringIsUpper(StringRight($pw,1)) And StringIsUpper(StringRight($pw,2)) Then
    $pw = StringTrimRight($pw,1)
    $x -= 1
    ContinueLoop
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    ; kleine Buchstaben
    If StringIsLower(StringRight($pw,1)) And StringIsLower(StringRight($pw,2)) Then
    $pw = StringTrimRight($pw,1)
    $x -= 1
    ContinueLoop
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    Next

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    MsgBox(0,"",$pw)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]