I2P_Developers/i2p.scripts
3
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

64to32.pl

Browse Source
This commit is contained in:
zzz
2020-05-21 12:44:58 +00:00
parent f5f59f2616
commit 14c7e2c870
1 changed files with 26 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
b32/64to32.pl Executable file
View File

@ -0,0 +1,26 @@
#!/usr/bin/perl
#
# zzz 2020-05 CC0
#
use strict;
use MIME::Base64;
use Convert::Base32;
use Digest::SHA qw(sha256);
my $num_args = $#ARGV + 1;
if ($num_args != 1) {
print "Usage: 64to32.pl base64\n";
exit;
}
my $bb64 = $ARGV[0];
my $b64 = $bb64;
$b64 =~ s/-/+/g;
$b64 =~ s/~/\//g;
my $decoded = decode_base64($b64);
my $hash=sha256($decoded);
my $encoded = encode_base32($hash);
#print "Base64: " . $bb64 . "\n";
print "Base32: " . $encoded . ".b32.i2p\n";