$Wort = "" For $i = 1 to 5 $Buchstabe = Random(48,122, 1) If $Buchstabe > 57 AND $Buchstabe < 65 OR $Buchstabe > 90 AND $Buchstabe < 97 Then $i -= 1 Else $Wort &= Chr($Buchstabe) EndIf Next MsgBox(0, '', $Wort)
$code = "" For $a = 0 To 4 $ran = Random(0,1,1) If $ran = 0 Then $code = $code & Chr(Random(97,122,1)) Else $code = $code & Chr(Random(65,90,1)) EndIf Next