Hi,
sicher noch Verbesserungswürdig ( ) aber Funktioniert
Dim $in = 'Hallo welt'
ClipPut (CheckME($in))
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)
For $i = 1 To $Len Step 10
$Out[$i] &= Asc(StringMid($in, $i, 1)) & Asc(StringMid($in, $i + 1, 1))
Next
For $i = 1 To $Len-1
$Out[0]&=$Out[$i]
Next
Return $Out[0]
EndFunc
Es erstellt eine (zu lange ) Checksume von Dateien /Texten
lg PCeumel