[JaxPM] .Sig War!

[Bill Jones]

On the Jax.PM jacksonville-pm-list;
"Bill Jones" <bill at fccj.org> wrote -


Cute :)

> ($_ = "010010100111010101110011
> 01110100001000000110000101101
> 11001101111011101000110100001
> 10010101110010001000000010001
> 10010000100101111011101010111
> 00110111001000101111011000100
> 11010010110111000101111011100
> 00011001010111001001101100001
> 00000011010000110000101100011
> 01101011011001010111001000100
> 001") =~ s/([0|1]{8})/pack("C", unpack
> ("N", pack("B32", substr("0" x 32 . $1,
> -32))))/ge; print;


Actually -

print unpack("u*",
q{M(R$O=7-R+V)I;B]E;G8 at 8'1Y<&4@<&5R;"!\("]U<W(O8FEN+V-U="`M9C,@*+60G("=@("UW
5```});


seek DATA,0,1;print<DATA>;
__DATA__   -Sneex-  :]
Just Another Perl Monger...
_________________________________________________________________________
Bill Jones  | Data Security Specialist | http://www.fccj.org/cgi/mail?dss
FCCJ  |  501 W State St  |  Jacksonville, FL 32202  |  1 (904) 632-3089

$_="JOIN THE JAX PERL MONGERS J zbjrnmuhkkd Pdqk Mnmfdqr J\n";
tr/za-y/a-z/; / ((.)) /; do { print substr($_,25); }
while ( s/((.).{23}) $2 (.)(.*) (.)$/$1$5 $2 $4 $3/ )


The Jacksonville Perl Monger's Group is operated by -
Bill -Sneex- Jones ( sneex at usa.net ),
to whom send all praises, complaints, or comments...