Christian Kruse: mp3 streamingfähig?

Beitrag lesen

Hiho,

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'>

<span style="wtf:on">Kann mich nun endlich mal wer aufklären was das macht bzw. ist? Ich lese das jetzt schon zum
110.ten mal von dir und komme mir irgendwie hinter dem Mond lebend vor :(</span>

Das ist Perl-Code ;-) ein JAPH (Just Another Perl Hacker), um genau zu sein.
Fuehr ihn doch einfach mal aus?

Gruss,
 CK
 http://wwwtech.de

--
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'>