Admin at 21:35, 28 November 2024

2024-11-28T21:35:53Z

← Older revision		Revision as of 21:35, 28 November 2024
Line 3:		Line 3:
	Here's my first ever attempt at creating a japh.		Here's my first ever attempt at creating a japh.

	<~~pre~~>		<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";
	</~~pre~~>		</syntaxhighlight>

	When run it output:		When run it output:

Admin: Created page with "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'..."

2024-04-13T10:41:33Z

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'..."

New page

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'=>'AG8p','b'=>'eJzz');$japh;foreach (@k){next
unless $h{$_};$japh.=$h{$_};};print uncompress(decode_base64($japh
))."\n";
</pre>

When run it output:
./japh.pl
Just another Perl Hacker

[https://www.perlmonks.org/?node_id=412464 More info]

Japh - Revision history

Admin at 21:35, 28 November 2024