hi all,I have made an encypter that uses ascii and rnd to encrypt data!
P.S. im still working on the decrypter, but im almost done!
SET TEXT SIZE 7
input "name of file: ";filename$
open to write 1,filename$
open to write 2,"image"
input "to encrypt: ";sentence$
for begin= 1 to len(sentence$)
random=rnd(10000)
let$=mid$ (sentence$,begin)
value=asc(let$)
print let$
newvalue=value*random
print newvalue;"X";random
write byte 1,newvalue
next begin
write string 1,"X"
write float 1,random
close file 1
print "saved: ";filename$;".dat"
wait key
