Help for this page

Select Code to Download


  1. or download this
    AAA => 0
AAC => 1
...
ACA => 4
...
TTT => 63
  2. or download this
    #! /usr/bin/perl -w

...
}

print "decoded: $dec\n";
  3. or download this
    #! /usr/bin/perl -w

...
$dec = substr( $dec, 0, -$pad ) if $pad;

print "decoded: $dec\n";