X-Git-Url: https://git.saurik.com/apple/security.git/blobdiff_plain/80e2389990082500d76eb566d4946be3e786c3ef..d8f41ccd20de16f8ebe2ccc84d47bf1cb2b26bbb:/libsecurity_transform/misc/base32alpha2vals diff --git a/libsecurity_transform/misc/base32alpha2vals b/libsecurity_transform/misc/base32alpha2vals deleted file mode 100755 index eb89d1bf..00000000 --- a/libsecurity_transform/misc/base32alpha2vals +++ /dev/null @@ -1,29 +0,0 @@ -#!/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); -}