Re: Base64 Decode issues


Your skill will accomplish what the force of many cannot
	PerlMonks

Re: Base64 Decode issues

by zentara (Archbishop)

on Dec 21, 2008 at 22:25 UTC ( [id://731931]=note: print w/replies, xml )

Need Help??

in reply to Base64 Decode issues

If you have random non-base64 chars in the string, maybe it isn't base64encoded? Or else it is a clever attempt at encryption by obfuscation? Anyways, this will do it.

#!/usr/bin/perl 
use warnings;
use strict;

my $str = '&#x54;&#x6f;n&#x69';
print "$str\n";
$str =~ tr#A-Za-z0-9+/##cd;  # remove non-base64 chars
print "$str\n";
exit;
[download]

I'm not really a human, but I play one on earth Remember How Lucky You Are