23 mayo 2014

Base64pl.pl Encode/Decode strings usando base64

Autor: Dual
Descripción: Encode / Decode strings usando base64
Nombre: base64pl.pl

#!/usr/bin/env perl -w

# base64pl.pl - Encodes/decodes string(s) using base64
# by dual

use strict;
use MIME::Base64;

my $opt;
my $usage = "base64pl.pl -
Encodes or decodes a string using base64
Usage: perl base64pl.pl <-e d="d"> 
-e => encode
-d => decode
";

print $usage and exit unless (defined($opt = shift) && $opt =~ /^(-e|-d)$/);
print $usage and exit unless ($#ARGV > -1);

if ($opt =~ /e/) {
  my $enc_ref = \&encode;
  for my $enc_str (@ARGV) {
    $enc_ref->($enc_str);
  }
}
else {
  my $dec_ref = \&decode;
  for my $dec_str (@ARGV) {
    $dec_ref->($dec_str);
  }
} 

sub encode {
  my $string = $_[0];
  my $encoded = encode_base64($string);
  chomp($encoded);
  print "$string: $encoded\n";
}

sub decode {
  my $string = $_[0];
  my $decoded = decode_base64($string);
  chomp($decoded);
  print "$string: $decoded\n";
}


Tomado de: https://github.com/getdual

2 comentarios:

Oscar Gentilezza dijo...

No entiendo, acaso el que escribió esto no conoce el comando base64 :P ?

$ echo "hola" | base64
aG9sYQo=
$ echo "aG9sYQo=" | base64 -d
hola

Vampii dijo...

Teniendo en cuenta que el comando "base64" es del 2013, y yo lo publique mucho despues de que lo encontre, antes del 2013 era totalmente valido tener que scriptear algo que lo haga... Y ese script hace muchos años que lo venia usando...