Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

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

$*=\&(|<www.perlmonks.org>,@=={$}=>,%\,%\}.$*,*_=\$@, 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 $*=\&(|<www.perlmonks.org>,@=={$}=>,%\,%\}.$*,*_=\$@, 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
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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2022-01-22 15:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (63 votes). Check out past polls.

    Notices?