Yet Another "Just Another Perl Hacker,"


The stupid question is the question not asked
	PerlMonks

Yet Another "Just Another Perl Hacker,"

by Articuno (Beadle)

on Feb 10, 2006 at 18:17 UTC ( [id://529421]=obfuscated: print w/replies, xml )

Need Help??

I've made this inspired by Mago's japh (Just another obfuscation code !) :-)

use re 'eval';*#=*ARGV;# Perfume ?
@#=(#logs
106.117.115.115,32.32.32.92,
97.110.111.115,83.32.32.32,
106.117.115.116,200.143.131.222,# Oggvorbis.org
181.138.140.139,#Home.example.com
223.190.145.144,#acolyte.perl.org
139.151.154.141 #kernel.org
);$,.=shift until shift=~/just/;shift;$_="@ARGV";
open m,"</bin/ls|((?x:$\,))(?{print ~$1})^|grep japh";
print <m>,-0;#,g
print m"(?<![@*])#((?i:[^gown(?x:foo)]+))" while(<0>);#
[download]

-- 6x9=42

Comment on Yet Another "Just Another Perl Hacker," Download Code

Replies are listed 'Best First'.
Re: Yet Another "Just Another Perl Hacker," by chargrill (Parson) on Feb 10, 2006 at 18:32 UTC
If you want to give credit where it's due, mago's Just another obfuscation code ! draws ...heavily... from my own more tricks learned from fellow monks But the first time i've seen ... Read more... (226 Bytes) ... was japhy's japhy's Obfuscation Review --chargrill `$/ = q#(\w)# ; sub sig { print scalar reverse join ' ', @_ } + sig map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu +" );` [download]	[reply] [d/l] [select]
Re^2: Yet Another "Just Another Perl Hacker," by Articuno (Beadle) on Feb 10, 2006 at 22:13 UTC
Thanks for the pointers :-) ++'ed! ^_^ -- 6x9=42	[reply]

Back to Obfuscated Code

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: obfuscated [id://529421]
Approved by kutsu
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others meditating upon the Monastery: (3)

As of 2024-04-25 09:23 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found