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

[Mago]

$_=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
[e-mail]

[jdalbec]

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;