More actions
A perl japh is an obfuscated perl program that prints out the message Just another Perl Hacker or Just another Perl Programmer.
Here's my first ever attempt at creating a japh.
#!/usr/bin/env perl
# John's first japh!
use MIME::Base64;use Compress::Zlib;$s='blue23';$p='japh';@k=split
'',crypt($p,$s);%h=('1'=>'CEgt','Y'=>'CNk=','0'=>'UUjM','Q'=>'Ti0C
','w'=>'SEzO','l'=>'Ki0u','2'=>'SC1S','3'=>'yy/J','U'=>undef,'7'=>
undef,'x'=>'ylHw','N'=>'AG8p','b'=>'eJzz');$japh;foreach (@k){next
unless $h{$_};$japh.=$h{$_};};print uncompress(decode_base64($japh
))."\n";
When run it output:
./japh.pl Just another Perl Hacker