07-04-2003, 07:46 AM
Yes i know it's been 6 days since the last post and that this thread is most likely dead but i have a very bad encryption program. and i want to post it
Yes very simple. but if you are dumb it may take you a minute or two to figure it out. j/k. :wink:
Code:
CLS
INPUT text$
x$ = " ~!@#$%^&*()_+{}|:<>?`-=[]\;',./1234567890qetuoadgjlxvnwryipsfhkzcbmMBCZKHFSPIYRWNVXLJGDAOUTEQ"
x2$ = "QETUOADGJLXVNWRYIPSFHKZCBMmbczkhfspiyrwnvxljgdaouteq0987654321/.,';\][=-`?><:|}{+_)(*&^%$#@!~"
FOR i = 1 TO LEN(text$)
tmp = INSTR(x$, MID$(text$, i, 1))
IF tmp <> 0 THEN
tmp2$ = MID$(x2$, tmp, 1)
f$ = f$ + tmp2$
END IF
NEXT
PRINT f$
Yes very simple. but if you are dumb it may take you a minute or two to figure it out. j/k. :wink: