Its nothing special by any means, its my first attempt at obfuscation. 
#!/usr/bin/perl -w

$_=   '$m   ess
age   ="i   fmm
p!";$mess   age
=~tr/b-y/   a-z
/;p   rin   t$m
ess   age   ;';

s/\s//g;eval;

[download]

Replies are listed 'Best First'.
Re: Greetings.
by Len (Friar) on Jul 02, 2002 at 13:46 UTC
    A varation on your theme... 
    #!/usr/bin/perl -w

$_=   '$_   ="g
dkk   n*s   n*x
nt*snn**L   dm*
";y+a-x+b   -y+
;s~   \*~   $/~
g;p   rin   t';

s-\s--g;eval;

    [download]
    Len
[reply]
[d/l]

Back to Obfuscated Code