Sup!

s s^s<DATA>se;s (([^\s]))(ord($1)%2?
chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
__END__
uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

Ist das http://info.astrian.net/jargon/terms/v/voodoo_programming.html ?

Meine Perl-Bücher haben mich den Kram schon FAST durchschauen lassen. Das benutzen des Special-Token __END__ und des Filehandles <DATA> ist natürlich ziemlich advanced, der ternäre Operator ? ist auch immer wieder gerne gesehen, und der exzessive Gebrauch von regulären Ausdrücken hoher Komplexität ist eine relative Gemeinheit für reverse engineering Versuche.

Hast Du Dir das selbst ausgedacht?

Gruesse,

Bio