note 15227 deleted from function.pack by felipe

Note Submitter: master at dreamphp dot com 

----

^-^ Simple version.

function bin2asc ($temp) {
  $len = strlen($temp);
  for ($i=0;$i<$len;$i+=8) $data.=chr(bindec(substr($temp,$i,8)));
  return $data;
}

function asc2bin ($temp) {
  $len = strlen($temp);
  for ($i=0; $i<$len; $i++) $data.=sprintf("%08b",ord(substr($temp,$i,1)));
  return $data;
}