sub dectobin {
        join '', unpack "B32", pack "N", shift;
    }