uudecode by yshl

/f(%stdin)(r)file def f 30 string readline 65{f read 0 0 f 60 string readline
pop{32 sub 64 mod or exch 6 sub 8 mod dup -6 ne{( )dup 0 127 5 index 5 index
bitshift and put print}if exch 6 bitshift}forall}repeat

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


return to the top page