Vereinfachung des Codes

1. offizieller Beitrag

    hallo,
    hat jemand eine idee, wie man diesen Code vereinfachen kann?

    [autoit]


    Func _random( $length )
    Dim $a
    Dim $b
    Dim $return
    While $a < $length
    $b = Random( 1, 72, 1 )
    If $b = 1 Then $return = $return & "A"
    If $b = 2 Then $return = $return & "B"
    If $b = 3 Then $return = $return & "C"
    If $b = 4 Then $return = $return & "D"
    If $b = 5 Then $return = $return & "E"
    If $b = 6 Then $return = $return & "F"
    If $b = 7 Then $return = $return & "G"
    If $b = 8 Then $return = $return & "H"
    If $b = 9 Then $return = $return & "I"
    If $b = 10 Then $return = $return & "J"
    If $b = 11 Then $return = $return & "K"
    If $b = 12 Then $return = $return & "L"
    If $b = 13 Then $return = $return & "M"
    If $b = 14 Then $return = $return & "N"
    If $b = 15 Then $return = $return & "O"
    If $b = 16 Then $return = $return & "P"
    If $b = 17 Then $return = $return & "Q"
    If $b = 18 Then $return = $return & "R"
    If $b = 19 Then $return = $return & "S"
    If $b = 20 Then $return = $return & "T"
    If $b = 21 Then $return = $return & "U"
    If $b = 22 Then $return = $return & "V"
    If $b = 23 Then $return = $return & "W"
    If $b = 24 Then $return = $return & "X"
    If $b = 25 Then $return = $return & "Y"
    If $b = 26 Then $return = $return & "Z"
    If $b = 27 Then $return = $return & "1"
    If $b = 28 Then $return = $return & "2"
    If $b = 29 Then $return = $return & "3"
    If $b = 30 Then $return = $return & "4"
    If $b = 31 Then $return = $return & "5"
    If $b = 32 Then $return = $return & "6"
    If $b = 33 Then $return = $return & "7"
    If $b = 34 Then $return = $return & "8"
    If $b = 35 Then $return = $return & "9"
    If $b = 36 Then $return = $return & "0"
    If $b = 37 Then $return = $return & "A"
    If $b = 38 Then $return = $return & "C"
    If $b = 39 Then $return = $return & "E"
    If $b = 40 Then $return = $return & "G"
    If $b = 41 Then $return = $return & "I"
    If $b = 42 Then $return = $return & "K"
    If $b = 43 Then $return = $return & "M"
    If $b = 44 Then $return = $return & "O"
    If $b = 45 Then $return = $return & "Q"
    If $b = 46 Then $return = $return & "R"
    If $b = 47 Then $return = $return & "S"
    If $b = 48 Then $return = $return & "U"
    If $b = 49 Then $return = $return & "W"
    If $b = 50 Then $return = $return & "Y"
    If $b = 51 Then $return = $return & "1"
    If $b = 52 Then $return = $return & "3"
    If $b = 53 Then $return = $return & "5"
    If $b = 54 Then $return = $return & "7"
    If $b = 55 Then $return = $return & "9"
    If $b = 56 Then $return = $return & "B"
    If $b = 57 Then $return = $return & "D"
    If $b = 58 Then $return = $return & "F"
    If $b = 59 Then $return = $return & "J"
    If $b = 60 Then $return = $return & "L"
    If $b = 61 Then $return = $return & "N"
    If $b = 62 Then $return = $return & "P"
    If $b = 63 Then $return = $return & "R"
    If $b = 64 Then $return = $return & "T"
    If $b = 65 Then $return = $return & "V"
    If $b = 66 Then $return = $return & "X"
    If $b = 67 Then $return = $return & "Z"
    If $b = 68 Then $return = $return & "2"
    If $b = 69 Then $return = $return & "4"
    If $b = 70 Then $return = $return & "6"
    If $b = 71 Then $return = $return & "8"
    If $b = 72 Then $return = $return & "0"
    $a = $a + 1
    WEnd
    Return $return
    EndFunc

    [/autoit]
    [autoit]

    dim $ArReturn[72] = ["A","B","..."] ;hier alle 72 zeichen eintragen

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

    for $i=0 to $ArReturn[$i-1]
    if $b = $i+1 then $return &= $ArReturn[$i-1]
    next

    [/autoit]

    Oder so:

    Spoiler anzeigen
    [autoit]

    Func _Random($length)

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

    Local $return = "", $i
    While StringLen($return) < $length
    $i = Random(48,90,1)
    If ($i >= 48 And $i <= 57) Or ($i >= 65 And $i <= 90) Then $return &= chr($i)
    Wend

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

    Return $return
    EndFunc

    [/autoit]