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
Buchstaben, Zahlen generieren
-
- [ gelöst ]
-
lordofmoney -
2. September 2009 um 14:15 -
Geschlossen -
Erledigt
-
-
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]
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, '', _KeyGen(10, @ScriptDir & '\test.txt'))Func _KeyGen($iCount, $sFile)
[/autoit]
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 -
Hallo,
[autoit]
eine SchleifeFor 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=""
[/autoit]
for $i=1 to 20
$wort&=chr(random(32,122,1))
Next
msgbox (0,0,$wort) -
danke habt mir geholfen sollte das skript jetz hinkriegen^^