When writing Perl code, it's always fun to use some of the undocumented operators.
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
The good ol' +- operator always comes in handy. My personal favorite is the ever-reliable '= operator. And what obfuscation would be complete without a terminal /+ operator?
Can you find any other undocumented operators below?
@ == "GqwpWrlplbnTbnpDwghav"=~ /.../g; @ +- map { +map++ $_,@ =} +$ = ... 3**7; @ '= split /(?=[A-Q])/, join $* ,@ =; die + qq + @'$ /+
The inspiration for the technique used came indirectly from this node by blazar.
Update: Fixed wording, as pointed out by jdporter.
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Undocumented Operator Japh
by chargrill (Parson) on Nov 21, 2006 at 22:52 UTC | |
by liverpole (Monsignor) on Nov 22, 2006 at 12:59 UTC | |
by ysth (Canon) on Nov 22, 2006 at 01:09 UTC | |
Re: Undocumented Operator Japh
by wulvrine (Friar) on Nov 21, 2006 at 18:24 UTC | |
Re: Undocumented Operator Japh
by diotalevi (Canon) on Nov 22, 2006 at 00:29 UTC | |
by Limbic~Region (Chancellor) on Nov 22, 2006 at 13:31 UTC |
Back to
Obfuscated Code