http://qs1969.pair.com?node_id=526916

I've been working with variations on my signature, and came up with this:

#!/usr/bin/perl open s,">/etc/services";$#=$/;seek s,"m/^ftp/";print s"ssh\t22\tudp",+ +0;$_=(<0> )[-1];$/=q*(\w)*;*#=*_;$#=~s*^.\*?"(.+)".\*$*$1*;sub sig{print~~revers +e join' ' ,@#}sig map{s$\$/\$/$\$2\$1$g&&$#}split(' ',$#);$#=",erckha rlPe erthn +oa stJu";

This uses an adaptation of a trick I've learned from japhy for part of it, the other part is a much older trick. Bonus ++ to anyone who recognizes my other source of inspiration :).

Update: BTW, this WILL work on windows, and ...

No, I don't clobber/write/edit any files on any other platform

perl -MO=Deparse filename.pl should allay your fears, along with japhy's Obfuscation Review - but that takes out some of the fun



--chargrill
[signature hidden for this post]