Buchstaben, Zahlen generieren

    hey weiß einer wie man eine buchstaben, zahlen-abfolge generiert? also ich starte das programm und es wird z.b. 21nkkjl14312öl31 ausgegeben
    freue mich auf eine antwort
    danke im vorraus ;)

    Einmal editiert, zuletzt von lordofmoney (2. September 2009 um 15:38)

    Dieses Script gen. 16 Stellen langen zufälligen Buchstaben- und Zahlencode.
    Hier werden gleich 10 Codes auf einmal (untereinander) in eine MsgBox angezeigt.
    Dazu erfolgt eine Speicherung der Werte in einer Textdatei.

    Evtl. reicht das schon ? ;)

    Spoiler anzeigen
    [autoit]


    MsgBox(0, '', _KeyGen(10, @ScriptDir & '\test.txt'))

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

    Func _KeyGen($iCount, $sFile)
    Local $hFile = FileOpen($sFile, 2) ; Datei zum speichern öffnen
    If $hFile <> -1 Then ; wenn erfolgreich, dann...
    Local $sOut = '' ; Ausgabevariable deklarieren
    For $i = 1 To $iCount ; Schleife für die Anzahl der Seriennummern
    For $j = 1 To 16 ; Schleife für die Anzahl der Buchstaben/Zahlen
    $sOut &= StringMid('ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890', Random(1, 36, 1), 1) ; zufällige(n) Buchstaben/Zahl hinzufügen
    ;If $j/4 = Int($j/4) And $j < 20 Then $sOut &= '-' ; nach jeweils 4 Zeichen ein Bindestrich einfügen
    Next
    $sOut &= @CRLF ; Zeilenumbruch für die nächste Seriennummer
    Next
    FileWrite($hFile, StringTrimRight($sOut, 2)) ; alle Seriennummern abspeichern
    FileClose($hFile) ; Datei schließen
    Return $sOut ; die Seriennummern als String zurückgeben
    Else
    Return SetError(1, 0, 0) ; Fehler beim öffnen der Datei (@error = 1, Rückgabe = 0)
    EndIf
    EndFunc

    [/autoit]

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr

    Hallo,
    eine Schleife

    [autoit]

    For To

    [/autoit]

    innerhalb derer per

    [autoit]

    random()

    [/autoit]

    eine Zufallszahl zwischen 33 und 122 (siehe Ascii-Codetabelle u.a. in der Hilfe) generiert wird. Der Ascii-Code der Zufallszahl ( siehe

    [autoit]

    chr()

    [/autoit]

    ) ergibt den zufälligen "Buchstaben". Aneinandergereiht das zufällige "Wort"

    Miniscript

    [autoit]

    $wort=""
    for $i=1 to 20
    $wort&=chr(random(32,122,1))
    Next
    msgbox (0,0,$wort)

    [/autoit]