Register
Email: Password:
Forum » ROT###! v0.5

ROT###! v0.5

E_net4 15 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.
#
MageKing17 15 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.
#
Forum » ROT###! v0.5

Post Reply


Your email:
Your name: