#!/usr/bin/perl
#this script will never work!
open(F,$0);while(<F>){$a=$1 if(m#^\#([^!].*)#)}close(F);$t='2A0D0A0100
+120B030B080F52570707064C4E031502074505';$m=',....,.,.,,.,.,..,.,,,.,'
+;while($t){($b,$t)=($t=~/(.{2})(.*)/g);push @trans,hex($b);}@m=map{($
+_ eq'.')?1:0}split //,$m;foreach(split(//,substr($a,0,24))){print chr
+(ord()+(shift(@trans)*((shift(@m)==1)?1:-1)));}
[download]

thoughts?