Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
$b=sprintf("%02X",ord("\n"));while(<DATA>)
{s/$b.*/$b/g;(split(//,$_));@a=();while(
...
20G22C2D3B20G2272E20G23A20G35F630A20G52E2D
203A5F2E225C2E5F2029203AG22D2220G20A20G52E
20G822G26D20226D20G30A20G52E2D22G32D220G52
  2. or download this
    #!/usr/local/bin/perl
$b=sprintf("%02X",ord("\n"));while(<DATA>)
{s/$b.*/$b/g;(split(//,$_));@a=();while(
...
20G22C2D3B20G2272E20G23A20G35F630A20G52E2D
203A5F2E225C2E5F2029203AG22D2220G20A20G52E
20G822G26D20226D20G30A20G52E2D22G32D220G52