Binär zu Dezimal Funktion

    Hi,
    habe mal eine Funktion geschrieben, die es ermöglicht Binär in Dezimal umzuwandeln...(Ich weiss.. der Windows Taschenrechner kann das auch...)
    Aber vllt. brauch es ja mal wer ;)

    Spoiler anzeigen
    [autoit]

    func _BinToDez($bin)
    Dim $dez
    For $x = 0 To (stringlen($bin) - 1)
    $b = stringmid($bin, stringlen($bin) - $x, 1)
    If ($b < 0 Or $b > 1) Then return "Nur 1 und 0 erlaubt"
    $dez = $dez + $b * 2 ^ $x
    Next
    return $dez
    EndFunc

    [/autoit]