File indexing completed on 2024-04-28 16:37:51 

0001 #!/usr/bin/perl -w
0002 
0003 use strict;
0004 
0005 my @encodingMap = ( 'A' .. 'Z', 'a' .. 'z', '0' .. '9', '+', '/' );
0006 my @decodingMap = (64) x 128;
0007 
0008 my $len = scalar @encodingMap;
0009 for ( my $i = 0 ; $i < $len ; $i++ ) {
0010     my $value = ord $encodingMap[$i];
0011     $decodingMap[$value] = $i;
0012 }
0013 
0014 for ( my $i = 0 ; $i < 128 ; $i += 16 ) {
0015     print "  ", join( ", ", @decodingMap[$i..($i+7)] ), ",  ",
0016                 join( ", ", @decodingMap[($i+8)..($i+15)] ), ",\n";
0017 }