Encode & Decode Base64 Muy Fácil

Encode & Decode Base64 muy Fácil

---

No se me ha ocurrido mucho que hacer el dia de hoy pero aun asi decidí hacer algo de programación por ahora solo esto en perl...

Código:

#!/usr/bin/perl

#By Dedalo

use MIME::Base64;

print "Texto pa Encode:";

$encod = <STDIN>;

print "texto pa Decode:";

$decod = <STDIN>;

$encode = encode_base64($encod);

$decode = decode_base64($decod);

print "$encode\n";

print "$decode";



Bueno mm creo que esta facil no?



si quieren solo Encode

Código:

#!/usr/bin/perl

#By Dedalo

use MIME::Base64;

$encode = encoded_base64('Texto a Encriptar');

print $encode;



Si solo quieren Decode:

Código:

#!/usr/bin/perl

#By Dedalo

use MIME::Base64;

$decode = decoded_base64('Texto a Desencriptar xD');

print $decode;



espero que esto les sirva.




Saludos

Dr.White