More actions
Created page with "A perl japh is an obfuscated perl program that prints out the message <code>Just another Perl Hacker</code> or <code>Just another Perl Programmer</code>. Here's my first ever attempt at creating a japh. <pre> #!/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'..." |
No edit summary |
||
| Line 3: | Line 3: | ||
Here's my first ever attempt at creating a japh. | Here's my first ever attempt at creating a japh. | ||
< | <syntaxhighlight lang="perl" line> | ||
#!/usr/bin/env perl | #!/usr/bin/env perl | ||
# John's first japh! | # John's first japh! | ||
| Line 12: | Line 12: | ||
unless $h{$_};$japh.=$h{$_};};print uncompress(decode_base64($japh | unless $h{$_};$japh.=$h{$_};};print uncompress(decode_base64($japh | ||
))."\n"; | ))."\n"; | ||
</ | </syntaxhighlight> | ||
When run it output: | When run it output: | ||
Latest revision as of 21:35, 28 November 2024
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