X-Git-Url: https://git.saurik.com/apple/security.git/blobdiff_plain/80e2389990082500d76eb566d4946be3e786c3ef..d8f41ccd20de16f8ebe2ccc84d47bf1cb2b26bbb:/Security/libsecurity_transform/misc/base32alpha2vals

diff --git a/Security/libsecurity_transform/misc/base32alpha2vals b/Security/libsecurity_transform/misc/base32alpha2vals
new file mode 100755
index 00000000..eb89d1bf
--- /dev/null
+++ b/Security/libsecurity_transform/misc/base32alpha2vals
@@ -0,0 +1,29 @@
+#!/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);
+}