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$..$/
Back to
Obfuscated Code