http://qs1969.pair.com?node_id=117768

$r=497851*2**3;$r.=76523*5**2;$r.=4801*2**4;$r.=7753*29*43; $r.=15222657971*3;$r.=254215755597*3;for($i=0;$i<48;$i+=2){ $k=substr$r,$i,2;print chr($k+unpack("C","#"))}