[apple/security.git] / OSX / libsecurity_transform / misc / base32alpha2vals

#!/usr/bin/perl

# Quick & dirty, gennerate the Base32XVals for a given alphabet

use strict qw(vars);

if (1 != @ARGV) {
	die "usage: $0 base32alphabet\n";
}
my $alphabet = $ARGV[0];
if (32 != length($alphabet)) {
	die "alphabet needs exactly 32 charactors";
}

my @vals = (0xff) x 256;
$vals[ord('=')] = 0xee;

for(my $i = 0; $i < length($alphabet); $i++) {
	my $ch = substr($alphabet, $i, 1);
	my $v = ord($ch);
	print "$i: $ch $v\n";

	$vals[$v] = $i;
}

for(my $i = 0; $i < @vals; $i++) {
	printf "0x%02x, ", $vals[$i];
	print "\n" unless (($i-2) % 11);
}
Commit	Line	Data
b1ab9ed8 A	1	#!/usr/bin/perl
	2
	3	# Quick & dirty, gennerate the Base32XVals for a given alphabet
	4
	5	use strict qw(vars);
	6
	7	if (1 != @ARGV) {
	8	die "usage: $0 base32alphabet\n";
	9	}
	10	my $alphabet = $ARGV[0];
	11	if (32 != length($alphabet)) {
	12	die "alphabet needs exactly 32 charactors";
	13	}
	14
	15	my @vals = (0xff) x 256;
	16	$vals[ord('=')] = 0xee;
	17
	18	for(my $i = 0; $i < length($alphabet); $i++) {
	19	my $ch = substr($alphabet, $i, 1);
	20	my $v = ord($ch);
	21	print "$i: $ch $v\n";
	22
	23	$vals[$v] = $i;
	24	}
	25
	26	for(my $i = 0; $i < @vals; $i++) {
	27	printf "0x%02x, ", $vals[$i];
	28	print "\n" unless (($i-2) % 11);
	29	}