sub to_dec {
    my $zahl = shift;
    $zahl = unpack("N",pack("B32",substr("0"x32 . $zahl,-32)));
    return $zahl;
}