#!/usr/bin/perl

    # --- highly optimized obfuscation coder ----------------------------------
    #
sub encode(@)
{
    local $_ = q/
    M(PHC($YO=&AI;F<@:7,@87,@:70@<V5E;7,N+BXN+@HC"B,@4&QE87-E(&)E
    M(&%W87)E('1H870@=&AE(&9O;&QO=VEN9R!C;V1E(&ES(&AI9VAL>2!O8F9U
    M<V-A=&5D('1O"B,@:&ED92!T:&4@9&5T86EL<R!O9B!I=',@:6UP;&5M96YT
    M871I;VX@9G)O;2!T:&4@<75E<W1I;F<@97EE+@HC"B,@4F5A9&EN9R!I="!M
    M87D@:6YD=6-E(&-O;F9U<VEO;BP@=&5M<&]R87)Y(&)L:6YD;F5S<R!A;F0@
    M<&%R=&EA;`HC(&EN<V%N:71Y+B!";&%C:R!H;VQE<R!H879E(&)E96X@:VYO
    M=VX@=&\@;W!E;B!U<"!A;F0@<W=A;&QO=R!T:&4*(R!R96%D97(N($%N9"!E
    M=F5N('1H;W5G:"P@86-C;W)D:6YG('1O(&UO9&5R;B!S8VEE;F-E+"!I;B!S
    M=6-H(&$*(R!C87-E(&YO="!A;&P@:6YF;W)M871I;VX@:7,@;&]S="P@:70@
    M=VEL;"!B92!C:&%N9V5D(&)E>6]N9"!D96-R>7!T:6]N+@HC"B,@4V\@8F4@
    H=V%R;F5D.B`*(R!.;W1H:6YG(&ES(&%S(&ET('-E96US+BXN+@HC"@``/;
    s/^\s+//gm;splice@_,$_[0]=~/^#\s*!/?1:0,0,unpack'u',$_;
    join'',@_;
}

    # --- process all files ---------------------------------------------------
    #
foreach (@ARGV)
{
    if (open my $fp, $_) { print encode<$fp>         }
    else                 { warn "can't open $_:$!\n" }
}

__END__
=head1 NAME

obfucoder  --  Obfuscate files for all but the most daring readers

=head1 SYNOPSIS

obfucode filename ...

=head1 DESCRIPTION

This coder reads the files that are pased to it on the command line
and encode them using an obfuscation method based on modern advances
in science and psychology, so that only the most hardened, daring and
curious hacker will attempt to read more than the first couple of
lines.

=head1 AUTHOR

Red "Service" Lemon