Encryptor/Decryptor

Root / Submissions / [.]

12Me21Created: ~8 years ago

Download:4R34P3ED

Version:Size:

The code:

INPUT F$,K$RANDOMIZE 0,LEN(K$)F$="TXT:"+F$T$=LOAD(F$,0)FOR I=0TO-1+LEN(T$)E=ASC(T$[I])XOR ASC(K$[RND(LEN(K$))])IF E-13THEN T$[I]=CHR$(E)ENDIF:NEXT:SAVE F$+".",T$'12Me21

(I'll upload it later) It uses XOR encryption, but instead of using each character of the key sequentially, it randomizes them, using the length of the password as a seed.

Instructions:

Put the program inside the project folder, then run it. INPUT the file name, password It will save the program as NAME$+"." To decrypt, do the same thing.

incvoid #1

lets hope they dont' change the rnd function anytime soon, or else the returned seed could be different next update

~8 years agoEdited ~8 years ago by incvoid

12Me21 #2

Replying to:

incvoid

lets hope they dont' change the rnd function anytime soon, or else the returned seed could be different next update

I doubt that will happen.

~8 years ago

SquareFingers #3

I think the loop should begin FOR I=0TO, and I think the guard on the IF should be E=13.

~8 years ago

12Me21 #4

Replying to:

SquareFingers

I think the loop should begin FOR I=0TO, and I think the guard on the IF should be E=13.

Oh, yeah I made a typo in the FOR statement. (fixed) The IF statement checks if E is NOT 13, IF E!=13 THEN (encrypt character) But to save space, I changed it to E-13, which equals 0 only if E is 13, and uses 1 less character.

~8 years agoEdited ~8 years ago by 12Me21