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.InstructionsPut 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.