Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

My Frist J.A.P.H. or Obfuscation Code

by Mago (Parson)
on Feb 21, 2005 at 08:23 UTC ( [id://432973]=obfuscated: print w/replies, xml ) Need Help??

$_=join(' ',reverse(map(ucfirst,split(',',do{%a=('gbckdrzqfrlzbmotgdrz +iwst','+i-j])/j/;+u-y])/u/;+z])/,/;+a-b])/a/;+m-n])/n/;+g-h])/h/;+z]) +/ ,/;+p-q])/p/;+d-f])/e/;+f])/e/;+z])/,/;+g])/h/;+b])/a/;+d])/e/;');$a=j +oin('',keys(%a));for(1..14){$a{$a}=~s/\+/<PM*BRASIL>/;}for(1..14){$a{ +$ a}=~s/<P/\$a/;$a{$a}=~s/M/=~s\//;$a{$a}=~s/\*/\(/;$a{$a}=~s/BRASIL>/\[ +/;}eval($a{$a});$_=$a})))).', ';print;


Mago
mago@rio.pm.org


Replies are listed 'Best First'.
Re: My Frist J.A.P.H. or Obfuscation Code
by jdalbec (Deacon) on Feb 21, 2005 at 15:04 UTC
    Mago, your homework assignment is to read up on the /g modifier in man perlop.
    $_ = join ( ' ', reverse( map( ucfirst, split ( ',', do { %a = ( 'gbckdrzqfrlzbmotgdrziwst', # Nice obfuscation here. Talk about hiding in plain sight... # $a=s/([i-j])/j/; 'gbckdrzqfrlzbmotgdrzjwst', # $a=s/([u-y])/u/; 'gbckdrzqfrlzbmotgdrzjust', # $a=s/([z])/,/; 'gbckdr,qfrlzbmotgdrzjust', # $a=s/([a-b])/a/; 'gackdr,qfrlzbmotgdrzjust', # $a=s/([m-n])/n/; 'gackdr,qfrlzbnotgdrzjust', # $a=s/([g-h])/h/; 'hackdr,qfrlzbnotgdrzjust', # I assume the extra newline was unintentional? # $a=s/([z])/ # ,/; "hackdr,qfrl\n,bnotgdrzjust", # $a=s/([p-q])/p/; "hackdr,pfrl\n,bnotgdrzjust", # $a=s/([d-f])/e/; "hacker,pfrl\n,bnotgdrzjust", # $a=s/([f])/e/; "hacker,perl\n,bnotgdrzjust", # $a=s/([z])/,/; "hacker,perl\n,bnotgdr,just", # $a=s/([g])/h/; "hacker,perl\n,bnothdr,just", # $a=s/([b])/a/; "hacker,perl\n,anothdr,just", # $a=s/([d])/e/; "hacker,perl\n,another,just", '+i-j])/j/;+u-y])/u/;+z])/,/;+a-b])/a/;+m-n])/n/;+g-h])/h/;+z])/ ,/;+p-q])/p/;+d-f])/e/;+f])/e/;+z])/,/;+g])/h/;+b])/a/;+d])/e/;' ); $a = join ( '', keys(%a) ); for ( 1 .. 14 ) { $a{$a} =~ s/\+/<PM*BRASIL>/; } # Looks like a file glob, doesn't it? Guess again! # '<PM*BRASIL>i-j])/j/;<PM*BRASIL>u-y])/u/;<PM*BRASIL>z])/,/;<PM*BRASI +L>a-b])/a/;<PM*BRASIL>m-n])/n/;<PM*BRASIL>g-h])/h/;<PM*BRASIL>z])/ # ,/;<PM*BRASIL>p-q])/p/;<PM*BRASIL>d-f])/e/;<PM*BRASIL>f])/e/;<PM*BRA +SIL>z])/,/;<PM*BRASIL>g])/h/;<PM*BRASIL>b])/a/;<PM*BRASIL>d])/e/;' for ( 1 .. 14 ) { $a{ $a } =~ s/<P/\$a/; # '$aM*BRASIL>i-j])/j/;$aM*BRASIL>u-y])/u/;$aM*BRASIL>z])/,/;$aM*BRASI +L>a-b])/a/;$aM*BRASIL>m-n])/n/;$aM*BRASIL>g-h])/h/;$aM*BRASIL>z])/ # ,/;$aM*BRASIL>p-q])/p/;$aM*BRASIL>d-f])/e/;$aM*BRASIL>f])/e/;$aM*BRA +SIL>z])/,/;$aM*BRASIL>g])/h/;$aM*BRASIL>b])/a/;$aM*BRASIL>d])/e/;' $a{$a} =~ s/M/=~s\//; # '$a=~s/*BRASIL>i-j])/j/;$a=~s/*BRASIL>u-y])/u/;$a=~s/*BRASIL>z])/,/; +$a=~s/*BRASIL>a-b])/a/;$a=~s/*BRASIL>m-n])/n/;$a=~s/*BRASIL>g-h])/h/; +$a=~s/*BRASIL>z])/ # ,/;$a=~s/*BRASIL>p-q])/p/;$a=~s/*BRASIL>d-f])/e/;$a=~s/*BRASIL>f])/e +/;$a=~s/*BRASIL>z])/,/;$a=~s/*BRASIL>g])/h/;$a=~s/*BRASIL>b])/a/;$a=~ +s/*BRASIL>d])/e/;' $a{$a} =~ s/\*/\(/; # '$a=~s/(BRASIL>i-j])/j/;$a=~s/(BRASIL>u-y])/u/;$a=~s/(BRASIL>z])/,/; +$a=~s/(BRASIL>a-b])/a/;$a=~s/(BRASIL>m-n])/n/;$a=~s/(BRASIL>g-h])/h/; +$a=~s/(BRASIL>z])/ # ,/;$a=~s/(BRASIL>p-q])/p/;$a=~s/(BRASIL>d-f])/e/;$a=~s/(BRASIL>f])/e +/;$a=~s/(BRASIL>z])/,/;$a=~s/(BRASIL>g])/h/;$a=~s/(BRASIL>b])/a/;$a=~ +s/(BRASIL>d])/e/;' $a{$a} =~ s/BRASIL>/\[/; # '$a=~s/([i-j])/j/;$a=~s/([u-y])/u/;$a=~s/([z])/,/;$a=~s/([a-b])/a/;$ +a=~s/([m-n])/n/;$a=~s/([g-h])/h/;$a=~s/([z])/ # ,/;$a=~s/([p-q])/p/;$a=~s/([d-f])/e/;$a=~s/([f])/e/;$a=~s/([z])/,/;$ +a=~s/([g])/h/;$a=~s/([b])/a/;$a=~s/([d])/e/;' } eval( $a{$a} ); $_ = $a; } ) ) ) ) . ', '; print;

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (8)
As of 2024-03-28 11:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found