Opened by MartinR at 2010-03-03 12:43
ungetestet:
Code: (dl
)
1
2
3
4
5
6
7
8
function hex2bin{
my $data=shift;
my $newdata='';
while($data){
$newdata .= pack("C",hex(substr($data,0,2,'')))
}
return $newdata;
}