Re: Encryption using perl core functions only


Perl-Sensitive Sunglasses
	PerlMonks

Re: Encryption using perl core functions only

by zentara (Archbishop)

on Nov 26, 2007 at 16:06 UTC ( [id://653019]=note: print w/replies, xml )

Need Help??

in reply to Encryption using perl core functions only

Here's another example from fokat

#!/usr/bin/perl
use warnings;
use strict;
#by fokat of perlmonks

my $string = 'justanotherperlhacker';
print "$string\n";

my $obscure =  pack("u",$string);
print "$obscure\n";

my $unobscure = unpack(chr(ord("a") + 19 + print ""),$obscure);

print "$unobscure\n";
[download]

I'm not really a human, but I play one on earth. Cogito ergo sum a bum