file read and write NO decryption - no error if changed only read and encrypt and comparison... (I wrote earlier, I use) (it is only good if it's OK to see the details - but they can not change. eg. game score etc.)
!code: GR.OPEN 255, 0, 0, 0 GR.SCREEN w,h psw$=str$(2*w*h) % or whatever DIM dat$,kd$ %number of datas (now 6) fname$="proba20.rfo"
dataread: file.exists a,fname$ if a=0 then goto ide3 TEXT.OPEN R, FN1, fname$ for n= 1 to 6 TEXT.READLN FN1, dat$[n] TEXT.READLN FN1, kd$[n] encrypt psw$,dat$[n],kd3$ if kd3$<>kd$[n]then a=0 if a=0 then f_n.break next n TEXT.CLOSE FN1
ide3: if a=0 then %file not exist or changed / add values dat$= "...." dat$= "...." dat$= "...." gosub writedata ENDIF ! use original loaded values dat$ !... !... end writedata: TEXT.OPEN W, FN1, fname$ for n= 1 to 6 encrypt psw$,dat$[n],kd$[n] TEXT.WRITELN FN1, dat$[n] %uncoded data TEXT.WRITELN FN1, kd$[n] %coded data next n TEXT.CLOSE FN1 return
_________________ "Unfortunately I only BASIC to understand. Everything else I need strong help..."
Users browsing this forum: No registered users and 1 guest
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot post attachments in this forum