Every line of this script violates good programming practices.
@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
Be sure to include the final quotation mark (")
#!/usr/bin/perl $ == _ eq _; $ -= ( ) = qw; ( );; $ -= ( ) = qw(( )); $ *= $ -* $ -* $ -; $ /= $ -+ $ * ; _: $ " .= chr $ /+ $ *** $ -; $ /= $ / >> $ = || $ ** $ -; $ /= $ / &~ $ */ $ - and goto _; print $ "," "
@ARGV=split//,"/:L"; map{print substr crypt($_,ord pop),2,3}qw"PerlyouC READPIPE provides"
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Token Abuse Japh
by chargrill (Parson) on Feb 10, 2006 at 21:15 UTC | |
by liverpole (Monsignor) on Feb 10, 2006 at 22:52 UTC | |
Re: Token Abuse Japh
by Errto (Vicar) on Feb 10, 2006 at 20:05 UTC | |
Re: Token Abuse Japh
by wulvrine (Friar) on Feb 12, 2006 at 22:15 UTC |
Back to
Obfuscated Code