Кодування до base32 з оболонки

Я хочу кодувати вхідний рядок до кодування base32 безпосередньо з оболонки. Я хочу зробити це в ubuntu, але, думаю, аромат тут не має особливого значення.

Чи існують інструменти для Linux / unix, щоб просто це зробити?

Щось у напрямку:

-bash-3.2$ echo -n 'hello' | base32

Гм, швидкий пошук пакетів не дає нічого подібного до окремої автономної утиліти.

З іншого боку, це показує, що є відповідна бібліотека Perl, і досить просто зібрати швидкий сценарій Perl. Щось на зразок:

$ sudo apt-get install libmime-base32-perl

А потім такий сценарій, як base32enc.pl:

#!/usr/bin/perl

use MIME::Base32 qw( RFC );

undef $/;  # in case stdin has newlines
$string = <STDIN>;

$encoded = MIME::Base32::encode($string);

print "$encoded\n";

Тому:

$ echo -n "hello" | ./base32enc.pl
NBSWY3DP

Досить рідкий запис CPAN: http://search.cpan.org/~danpeder/MIME-Base32-1.01/Base32.pm

Отже, незначна зміна також дозволить робити декодування.

Просто вдосконалення cjc - чудова відповідь, тому ми можемо мати base32утиліту, яка працює аналогічно base64тому, як ми можемо кодувати та декодувати:

#! /usr/bin/perl

use MIME::Base32;
use strict;

undef $/;

my $string = <STDIN>;
my $changed;

if ( $ARGV[0] eq "-d" ){
        $changed = MIME::Base32::decode($string);
}else{
        $changed = MIME::Base32::encode($string); 
}

if ( $changed =~ /\n$/ ) {
    printf $changed;
}else{
    printf $changed . "\n";
}

Тест:

$ base32 < <(echo -n 'abcdef')
MFRGGZDFMY
$ base32 -d < <(echo  'MFRGGZDFMY')
abcdef

Він встановлений за замовчуванням в Ubuntu 16.04 як частина coreutils :

$ which base32
/usr/bin/base32

Використання Python:

$ python
Python 2.7.14 (default, Sep 27 2017, 12:15:00) 
[GCC 4.2.1 Compatible Apple LLVM 9.0.0 (clang-900.0.37)] on darwin
Type "help", "copyright", "credits" or "license" for more information.
>>> import base64
>>> base64.b32encode('hello')
'NBSWY3DP'

1. Встановити perl-MIME-Base32.noarch:

   yum install perl-MIME-Base32.noarch
   

2. Збережіть скрипт у назві файлу bas32:

   #!/usr/bin/perl
   
   use MIME::Base32 qw( RFC );
   
   undef $/;  # in case stdin has newlines
   $ed=$ARGV[0];
   $string=$ARGV[1];
   if ($ed eq "-e")
   {
   $encoded = MIME::Base32::encode($string);
   print "$encoded\n";
   }
   elsif ($ed eq "-d")
   {
   $decoded = MIME::Base32::decode($string);
   print "$decoded\n";
   }
   else { print " please pass option also\n";
   exit;
   }
   
   chmod +x base32
   cp base32 /usr/bin/
   base32 -e string
   base32 -d "any encoded value"