Hallo Scaevola!

... (auf deutsch: hab ihn von CK geklaut),

ich hab ihn mir auch mal ausgeliehen....

s s^s<DATA>se;s b([^\s])bord($1)%2?
chr(ord($1)-5):chr(ord($1)-3)bsieg;s e^e$_eee;
__END__
uwlsy%'Ghlp%sdhfmvyhs%Yrs%lvy%hv%<%Xmw%7;%Plsxyhs%xsi%65%VhnxsihsasPlvy1%vfmrs%zlhihw%{hwuhssy$'>

nene... so nicht, sondern so:

s--
<DATA>-e;
s+(.)+chr(ord($1)
     ^   (ord($1)
& 1 ? 5 : 9))+eg;
s--
$_-ee;

__END__
uwkq'H|cnlzqhkalk%~wa%|d%5:?1:)%|ka%~hw%ZlicZlwslw$_l`q('

Gruss,
 Carsten