"Checksum" Script

    Hi,
    sicher noch Verbesserungswürdig (:rofl: ) aber Funktioniert 8)8):D

    [autoit]

    Dim $in = 'Hallo welt'
    ClipPut (CheckME($in))

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

    Func CheckME ($in)
    If Not IsInt(StringLen($in) / 10) Then $in &= '0000000000'
    Dim $Len = StringLen($in), $Out[$Len + 1]
    ConsoleWrite('!DEBUG: Durchläufe : ' & $Len & @CR)

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

    For $i = 1 To $Len Step 10
    $Out[$i] &= Asc(StringMid($in, $i, 1)) & Asc(StringMid($in, $i + 1, 1))
    Next

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

    For $i = 1 To $Len-1
    $Out[0]&=$Out[$i]
    Next
    Return $Out[0]
    EndFunc

    [/autoit]


    Es erstellt eine (zu lange :rofl: ) Checksume von Dateien /Texten
    lg PCeumel