[HaBo]

unction binl2hex(binarray)
{
  var hex_tab ="0123456789abcdef";
  var str = "";
  for(var i = 0; i < binarray.length * 4; i++)
  {
    str += hex_tab.charAt((binarray[i>>2] >> ((i%4)*8+4)) & 0xF) +
           hex_tab.charAt((binarray[i>>2] >> ((i%4)*8  )) & 0xF);
  }
  return str;
}

        function binl2hex($data) {
            
            $hex = "0123456789abcdef";
            $out = '';
            
            for ($i = 0; $i < strlen($data)*4;$i++) {
                $p = $i >> 2;
                $pos1 = ($data[$p] >> (($i%4)*8+4)) & 0xF;
                $pos2 = ($data[$p] >> (($i%4)*8  )) & 0xF;
                $out .= $hex[$pos1] + $hex[$pos2];
            }
            
            return $out;
        }