Driftmoon Adventure RPG

ROT###! v0.5

E_net4 16 years ago

Here's my latest program. ROT###! encyphers text with either a partial ASCII table and a value of the number of places to "shift" each character or the standard ROT13 method.
Download Here

There may be some bugs in the program. Do report if you find one.

# quote

MageKing17 16 years ago

I like mine.

Rot(a,b)
Func
local c
seq(char(mod(ord(a[c]+b,256)),c,1,dim(a))->a
Return join(a,"")
EndFunc

Yes, that is TI-BASIC. It only calls one non-built-in function, and that's "join" which is not at all complicated to make.

Let's see if I can recall it from memory...

Join(a,b)
Func
local c
""->c
While dim(a)>0
c&b&a[1]->c
right(a,dim(a)-1)->a
EndWhile
Return c
EndFunc

Actually, I don't think that's the method I used before, but I can't imagine why. This one's probably faster.

# quote

Forum » ROT###! v0.5


Your email:
Your name:

ROT###! v0.5

Post Reply