#!/usr/bin/perl -w $one = "\xD8\xA6\xCD\x4E\x04\x0A\x3C"; $two = "\xBE\x21\x03\x15\x1F\x2C\x6A"; sub bin2dec { my $zahl = unpack("N", pack("B32", substr("0" x 32 . $_[0], -32))); return $zahl; } sub dec2bin { my $zahl = unpack("B32", pack("N", $_[0])); $zahl =~ s/^0+(\d+)/$1/; return $zahl; } $key = ""; for ($i=0; $i