Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Obfu or another method?

by cristian (Hermit)
on Aug 25, 2005 at 22:07 UTC ( #486737=obfuscated: print w/replies, xml ) Need Help??

This code is dedicated to all perl community.

The 20 of august ZlR(FRANCE) arrived to (CHILE)cristian to contact me by cel phone and ready.

Lets go drink beer much much beer and listen much and good rock and roll.

it great. regards to all mongers

Upgrade code more very short solution

This code is runing in perl v5.8.4

Version 2

$*=\&(|<>,@=={$}=>,%\,%\}.$*,*_=\$@, eval'&$->obfu',s<^(\w+)\s(...).*>!$2!,$.=$_, eval'@$->obfu',s+.*w..(.)... . (.)(.)..... .. ..(.).*+'$4$3$2$1'+; $,=" {print $_}",$,=~s/\n//g;$.=~s/\n//g; $=[0]=~s<(.).*~(\w{6})$>@"$. $1$2$,"@e.eval$=[0]&&s<.*>@&Howoorg@e;

Version 1

#!/usr/bin/perl $*=\&(|<>,@=={$}=>,%\,%\}.$*,*_=\$@, eval'&$->obfu',s<^(\w+)\s(...).*>!$2!,$.=$_, eval'@$->obfu',s+.(.)(.)'(.)\s(.).(.).\s.(.).(.)(.). "...(.)" ....... +. (.)..(.)... .(.) ..(.)...(.)*+'$13$9s$3 $1$2$8$3$7$6$12 $10$6$12$5 +$7$1$4$11$6$12'+,$,=" {print $_}",$=[0]=~s<(.).*~(\w{6})$>@"$.$1$2$," +@e.eval$=[0]&&s<.*>@&Howoorg@e;

Edit g0n - moved code tags to code only

Replies are listed 'Best First'.
Re: Obfu or another method?
by ZlR (Chaplain) on Aug 29, 2005 at 15:57 UTC
    Damn right !

    It was a great time in Santiago, it's a great city, and all considered it was quite amazing to meet cristian and his crew like this, thanks to perlmonks and to ... obfu code !! Maybe soon the obfu-monks travel-agency ?

    Eh ! I guess this is the other great thing about open source <:)

    keep rockin' !

Re: Obfu or another method?
by liverpole (Monsignor) on Aug 26, 2005 at 12:10 UTC
    Just to let you know, I'm getting an error running it under v5.8.6 (Linux):
    Bareword found where operator expected at (eval 8) line 1, near ")w" (Missing operator before w?)
    Apologies if I've merely cut-and-pasted it incorrectly somehow.
Re: Obfu or another method?
by jdalbec (Deacon) on Aug 27, 2005 at 23:52 UTC
    Same here.

    This is perl, v5.8.1-RC3 built for darwin-thread-multi-2level

    The problem seems to be that \&( is not evaluating to the CODE(...) address that the OP expects. The OP is looking for an address matching /0x...[02468][def][4567def][ace]/ and (in my case) the coderef address is 0x8012c4.

    Update: Version 2 gives the same error here. No "japh" message is printed. Is the OP running Perl on Microsoft Windows?

    Since \&( does not match the regex I posted, the value of $* ends in ~kw/org here rather than ~owoorg, so the substitution on $=[0] fails because \w doesn't match a /. Even if it succeeded, the subsequent eval would attempt to define the subroutine Hkw/org (giving a Search pattern not terminated error) instead of defining the subroutine Howoorg as the OP intended.
Re: Obfu or another method?
by cristian (Hermit) on Aug 29, 2005 at 13:55 UTC
    I was create new version with perl v5.8.4 More short and more easy. And error is nature into the thos obfu , but the result will be : version 1:just another perl hacker" version 2:"japh"
Re: Obfu or another method?
by ambrus (Abbot) on Aug 27, 2005 at 21:29 UTC

    I get the same error as liverpole reports, with perl 5.8.5 i686-linux.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://486737]
Approved by Arunbear
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2022-06-30 07:18 GMT
Find Nodes?
    Voting Booth?
    My most frequent journeys are powered by:

    Results (97 votes). Check out past polls.