Help for this page

Select Code to Download


  1. or download this
    $x = '3333373367037336703733337003'
     ;$d=sub {chr unpack('N',pack (
...
     dx( $d, $x) }; sub dx{ while (
     $_[1]=~/(\d{6})(\d{1})/g){$out
     .= &{ $_[0]}($1 ,$2); }\$out;}
  2. or download this
    $x = '3333373'
     ;$d=sub {chr unpack('N',pack (
...
     dx( $d, $x) }; sub dx{ while (
     $_[1]=~/(\d{6})(\d{1})/g){$out
     .= &{ $_[0]}($1 ,$2); }\$out;}