trivial encoder by pooq

input""a$
if"decode"=a$do?chr$(dec(chr$(peek(0))+chr$(peek(0))));loop
1n=b
b=peek(0)
if!b<0?upper$(hex$(b));:goto 1
if n=52?"A"

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

download

return to the top page