perl -le'$;=3;$;=~s/./$&?30:3/eg for 3..pop;print length$;' 12
[download]

Can you see how it works?

-- Frank

print(map{chr}(map{$/=$_+$_[$;-!$_];$;=$_?++$;:$_*($/=32);
$/-32*!($.++%13)}map{-46+ord}split//,q,0B>7.';:71!&.62=/.,
),@_[$~..5],44)if$;=$.=$~=0or@_=map{ord}split//,q;hackerz;
[download]

This is my first attempt at obfuscated Perl. It really rubbed me the wrong way to write it, since I'm such a stickler for maintaintable, readable code. I currently use this as my .signature.

perl -le '$"=$,,@_=(1)x4,@a=(0,4,5,4),map{$_<<=6,$_+=13}@_;for(0..
3){$_[$_]+=1<<$a[$_]if$_;$_[$_]+=$a[$_]}$_[3]+=10,print map chr,@_'
[download]

I worked pretty hard on getting it as short and obfuscated as possible. There's a neat trick I used in there with the @a array. It happened to work out mathematically in my favor.

I welcome feedback and/or improvements. :)

UPDATE 9/21/2009

Big UPDATE:

Run this on linux text console only. It won't work in an xterm or similar. (Update:) This looks better if you stand far from the monitor.

clear;perl -we 'ioctl STDIN,19296,$t=pack a8888;while(++$o){select"","
+","",0.01;print"\e[H";for$v(0..19){$x=0.5*$_+3e-2*$v*($_-39)+0.5*$o,p
+rint vec($t,8-$x%9+8*int(0.9*$v+1.5-3e-3*($_-39)**2)+256*ord substr("
+Just another Perl hacker  ",$x/9%26),1)?"#":" "for 0..78;print$/}}'
[download]

This is a reimplementation of a japh I have written and lost long ago. Speed depends on the speed of your computer somewhat.

my $s=' ';say 'N'~&'K','t'~|'a','w'~&'s','v'~&'u',$s,'i'~&'e','l'~|'b'
+,'m'~|'b','p'~|'d','x'~&'i','g'~&'m'~'z'~&'s',$s,'c'~&'v','o'~&'y','p
+'~|'d','v'~|'a','m'~&'y','r'~|'a','d'~|'a',$s,'n'~|'a','c'~&'z','d'~|
+'b','t'~|'a','r'~|'a','b'~|'a','i'~&'c','v'~&'u','k'~&'y','n'~|'a','l
+'~|'b';
[download]

Hi,

I had some free time and I was bored, so I decided to hone my Perl-fu with my second ever JAPH. It's quite simple, but I think it looks neat and I had lots of fun doing it. I had the chance to test it only with Perl 5.8.8, but I think hope it'll work with 5.10 too.. At least I can't see why it wouldn't.

To run it, place it in any file and make sure there are no empty lines before the first actual code line.

  $"="032";($:=++$|)*=4;open+0;sub  #074117115116
   _{$_=<0>;~/.*#(.+)(?{$,.=$+.$"   #097110111116104101114
    ;$:--?_():0})/}_;$,=~s/.$//;    #080101114108
     map{print chr}$,=~/(...)/g     #104097099107101114046010
[download]

(fixed, should work with 5.10 now. Thanks wazoox!)

If anybody wants me to, I can post a de-obfuscated version or some commentary, but I hardly think it's necessary.

Please let me know what you think! :-)

sub _{($:,$,,$;)=@_;$;=$;?$;:1;($:>$,)?_($:-1,$,,$;*$:/($:-$,)):$;;}
sub __{($:,$;)=@_;$;++;for($,=1;$:>$;;$:--){$,*=$:/($:-$;)}$,;};
[download]

$x = '3336703366667337000033670003'
     ;$d=sub {chr unpack('N',pack (
     'B32',substr(('0'x32).((shift)
     * (shift)),-32) )) ;};print ${
     dx( $d, $x) }; sub dx{ while (
     $_[1]=~/(\d{6})(\d{1})/g){$out
     .= &{ $_[0]}($1 ,$2); }\$out;}
[download]