<?
 ###############################################################################
 function uudecode_data_block($data){
 if (preg_match("!begin [^\s]+ [^\s]+\n(.*)\nend\n!s", $data, $matches)){
 return uudecode_data($matches[1]);
 }
 }
 ###############################################################################
 function uudecode_data($data){
 $data = preg_replace('![^\x20-\x5f\n]!', '', $data);
 $buffer = '';
 $lines = explode("\n", $data);
 foreach($lines as $line){
 $len = ord($line{0}) - 0x20;
 $cursor = 1;
 while($cursor < strlen($line)){
 $b1 = ord($line{$cursor+0});
 $b2 = ord($line{$cursor+1});
 $b3 = ord($line{$cursor+2});
 $b4 = ord($line{$cursor+3});
 $b1 -= 0x20;
 $b2 -= 0x20;
 $b3 -= 0x20;
 $b4 -= 0x20;
 # b1 b2 b3 b4
 # 87654321 87654321 87654321 87654321 
 # 
 # A: b1(654321)b2(65)
 # B: b2(4321)b3(6543)
 # C: b3(21)b4(654321)
 $a = (($b1 << 2) & 0xFC) | (($b2 >> 4) & 0x03);
 $b = (($b2 << 4) & 0xF0) | (($b3 >> 2) & 0x0F);
 $c = (($b3 << 6) & 0xC0) | (($b4 >> 0) & 0x3F);
 $buffer .= chr($a).chr($b).chr($c);
 $cursor += 4;
 }
 }
 return $buffer;
 }
 ###############################################################################
?>