JAPE Hall of Fame

Index: $jape[0]
Author: Lee Holmes
Date: June 6th, 2007
Link: http://www.leeholmes.com/blog/2007/06/06/obfuscated-powershell/

$ofs="";
'"$(0'+
  '..(0'+
    'xa*['+
      'Math'+
        ']::R'+
          'ound'+
            '([Ma'+
              'th]:'+
                ':Pi/'+
                  '2,1)'+
                    ')|%{'+
                      '[cha'+
                        'r][i'+
                          'nt]"'+
                            '"$($'+
                              '("""'+
                                '"0$('+
                                   '1838'+
                                   '1589'+
                                '*726'+
                              '371*'+
                            '60)$'+
                          '(877'+
                        '7365'+
                      '981*'+
                    '263*'+
                  '360)'+
                '$(22'+
              '2330'+
            '793*'+
          '1442'+
        '99)$'+
      '(310'+
    '9*37'+
  ') ""'+        '"")[' + '($_*' + '3)..' +
'($_*'+        '3+2)' + '])""' + ' })"'|iex

================================================

Index: $jape[1]
Author: Carlo
Date: October 9th, 2015
Link: http://www.happysysadm.com

([regex]::Matches(",{0}S{1}I{2}U{3}T{4}E{5}L{6}E{7}S{8}E{9}
O{10} {11}E{12}T{13}N{14} {15}S{16}J" -f 'T!A$S!H$N! $L!H$R
!W$P!R$H!O$A!T$U'.split('!|$',[System.StringSplitOptions]::
RemoveEmptyEntries),'.','RightToLeft')|%{$_.value}) -join''

================================================

Index: $jape[2]
Author: Pete Maan
Date: October 20th, 2015

(([char[]][int[]]((87..65) | ?{$_ -notmatch '66|67|68|70|71|75|77|81' }
)[10,2,4,3,1,-1,-7,-8,-12,-3,-2,-10,1,6,7,0,-2,5,4,12,13,9,9,1,-2,-7,
-12,-3,-13,-11,-4,-1,-11,-12] -join''
) -replace [char](90177536/1mb),[char](1kb/32)) -replace '$',','

================================================

Index: $jape[3]
Author: Max Kozlov
Date: October 28th, 2015

'&[%c5oI'+     'n8v~eo'+      'rm'+
'to]z: :('+   'T7o''BNa'+      'Ns'''+
'eG'+  '6p'+ '4D'+              'S~'+
'to'+  'ro'+ 'iy'+               'n>'+
'g.(N$~2>'+   ')(-XcGrZ'+         'ez'+
'p\lza?c'+     '?eQ''K[,a'+        'G-{'+
'zA0'+              ' -.9-]'+     ' +.''>'+
'->r'+                'heC'+      'pz'+
'lNa'+      '''cGez''{\|+'+     'R'''+
'*,k'''+     'v /''R-krB'+     'e='+
'pjl a coem''o=n+Y''q,J ''''S,j'''|%{$2=$_}{$$,$2=(
[char[]]$_).where({($2++)%2},5)}{$$-join''|iex}

================================================

Index: $jape[4]
Author: Max Kozlov
Date: October 31th, 2015

(&{($myinvocation|fl *Pa*,Sc*,Pi*,Di*,J*,W*,L*|out-string)[253,6,18,15,19,
10,7,5,15,44,14,11,19,9,5,256,14,11,18,44,14,64,64,19,14,7,15,44,6,18,61,
10,18,15,258]})-join''

================================================

Index: $jape[5]
Author: Max Kozlov
Date: October 31th, 2015

'IE;FAMNJhWJMmYMQ@IY~KT:YMAISLyUR@YJBD^M$'|%{$nul,$shr,$shl,$lt,$char,$join,
$byte,[byte[]]$eq=[char[]]$_}-en{($iex="$nul$lt")}|%{$ne,$gt,$eq=$eq}-en{$nul
}|%{iex((gdr *unc*).($byte,$char,$join,$shr-join,$null),'eq($eq){$ge,$eq=',
'$eq',$shl,$iex,'($ge-gt$gt){$ge-=$gt/2',$shl,'(1-shl5)}',$shl,'($ne=$ne+$ge-
$gt+2+($gt-shr2))',$shl,$iex,'($eq){eq -eq $eq}}'-join,[char](1-shl5))}-en{
$gt}|%{($ne,(eq -eq $eq)|%{$_|%{[char]$_}})-join,$null}