rot13 by llhuii(thanks to mitchs)

{for($(FS=i=_)=$0RS;j=$++i;){for(;sprintf(k="%c",++j)<$i;);printf k,j<65?j:j+13-(j%32>13)*26}}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top