Now this is a japh!

Ok, as you've probably seen, my previous attempts at obfuscation have been severely lacking - mainly due to my level of skill regarding Perl has also been found lacking. I have been reading Programming Perl, and I found the world of pack(). I think this is a really cool function, and I have used it here to write a japh that actually looks fairly obfuscated. If you don't agree, remember the important thing here is that I learned a new function!


#!/usr/bin/perl

$j;$a;$p;$h;
$j=pack"cccc",106,117,115,116;
$a=pack"ccccccc",97,110,111,116,104,101,114;
$p=pack"cccc",112,101,114,108;
$h=pack"cccccc",104,97,99,107,101,114;
print "$j $a $p $h\n";
[download]

Azatoth a.k.a Captain Whiplash

Get YOUR PerlMonks Stagename here!
Want to speak like a Londoner?

Comment on Now this is a japh! Select or Download Code

Replies are listed 'Best First'.
Re: Now this is a japh! by tedv (Pilgrim) on Mar 06, 2001 at 02:22 UTC
Incidently, you can use formatting like "c4" in place of "cccc". This won't change the obfuscation any, except the code is tighter. It's a good habit to be in for coding in general though. By the way, shouldn't it be 'Perl', not 'perl'? -Ted	[reply]