Sorry your browser is not supported!

REM Project: 20-liner encode/decode functions
REM Created: 7/7/2006 4:31:56 PM
REM
REM ***** Main Source File *****
REM
`Muwahahaha! I have done this one in 8 lines ;P
`DO NOT USE THIS ON EXECUTABLE FILES! YOU ALSO MUST KNOW HOW MANY
`CHARACTERS ARE IN THE FILE.
`example
open to write 1,"test.txt" : write string 1,"This is a test encode/decode file." : write string 1,"This is meant to be encoded..." : close file 1 : print "Not messed with..." : open to read 1,"test.txt" : repeat : read string 1,text$ : print text$ : until file end(1)=1 : close file 1
encode("test.txt",0x5B,63) : print "Encoded." : open to read 1,"test.txt" : repeat : read string 1,text$ : print text$ : until file end(1)=1 : decode("test.txt",0x5B,63) : print "It has been decoded..." : suspend for key : end
function encode(file$,level#,amount#) : if file open(1)=1 : close file 1 : endif
if file exist("temp.bin")=1 : delete file "temp.bin" : endif : open to write 1,"temp.bin" : p#=0 : ready#=0 : repeat : byte#=read byte from file(file$,p#) : p#=p#+1 : write byte 1,byte#+level#
if p#=amount# : ready#=1 : endif : if p#>amount# : ready#=1 : endif : until ready#=1 : close file 1 : delete file file$ : rename file "temp.bin",file$ : endfunction
function decode(file$,level#,amount#) : if file open(1)=1 : close file 1 : endif : if file exist("temp.bin")=1 : delete file "temp.bin" : endif
open to write 1,"temp.bin" : p#=0 : ready#=0 : repeat : byte#=read byte from file(file$,p#) : p#=p#+1 : write byte 1,byte#-level# : if p#=amount# : ready#=1 : endif : if p#>amount# : ready#=1 : endif
until ready#=1 : close file 1 : delete file file$ : rename file "temp.bin",file$ : endfunction
`This has been created by dbuser2006+, for comments, email me at darktwilight@rock.com. This was made specifically for the
`20 line challenge (And for my games). You can use this however you like, though, if you use it in game, i would appreciate
`it if you mention my user name, or that it is not yours somewhere in the game. But it is not required. As for how you use it,
`uncompress this to make the programming a little easier to see, (For some reason 5.9 users can't run it like this, hopefully
`that has been fixed for 6.0, 6.1, or 6.2...), now you have yourself a program, go ahead and run it. The example allows you to
`easily understand how to use this. Now you just have to use encode(filename,levelofencoding,amountofencoding) or decode with
`the same syntax of encode. Now you can safely create your own saves! (and loads)

REM Project: 20-liner encode/decode functions
REM Created: 7/7/2006 4:31:56 PM
REM
REM ***** Main Source File *****
REM
`DO NOT USE THIS ON EXECUTABLE FILES! YOU ALSO MUST KNOW HOW MANY
`CHARACTERS ARE IN THE FILE.
`example
open to write 1,"test.txt"

write string 1,"This is a test encode/decode file."
write string 1,"This is meant to be encoded..."

close file 1

print "Not messed with..."

open to read 1,"test.txt"

repeat
   read string 1,text$
   print text$
until file end(1)=1

close file 1

encode("test.txt",0x5B,63)

print "Encoded."

open to read 1,"test.txt"

repeat
   read string 1,text$
   print text$
until file end(1)=1

decode("test.txt",0x5B,63)

print "It has been decoded..."
suspend for key
end

function encode(file$,level#,amount#)
   if file open(1)=1 then close file 1
   if file exist("temp.bin")=1 then delete file "temp.bin"
   open to write 1,"temp.bin"
   p#=0
   ready#=0
   repeat
      byte#=read byte from file(file$,p#) : p#=p#+1
      write byte 1,byte#+level#
      if p#=amount# : ready#=1 : endif
      if p#>amount# : ready#=1 : endif
   until ready#=1
   close file 1
   delete file file$
   rename file "temp.bin",file$
endfunction

function decode(file$,level#,amount#)
   if file open(1)=1 then close file 1
   if file exist("temp.bin")=1 then delete file "temp.bin"
   open to write 1,"temp.bin"
   p#=0
   ready#=0
   repeat
      byte#=read byte from file(file$,p#) : p#=p#+1
      write byte 1,byte#-level#
      if p#=amount# : ready#=1 : endif
      if p#>amount# : ready#=1 : endif
   until ready#=1
   close file 1
   delete file file$
   rename file "temp.bin",file$
endfunction

sync on
main:
perform checklist for files
max#=checklist quantity()
repeat
until scancode()=0
do
   cls
   b4$="" : b3$="" : b2$="" : b1$=""
   a1$="" : a2$="" : a3$="" : a4$=""
   if upkey()=1 : cur#=cur#-1 : wait 0100 : endif
   if downkey()=1 : cur#=cur#+1 : wait 0100 : endif
   if cur#<1 : cur#=1 : endif
   if cur#>max# : cur#=max# : endif
   b4#=cur#-4 : b3#=cur#-3 : b2#=cur#-2 : b1#=cur#-1
   a1#=cur#+1 : a2#=cur#+2 : a3#=cur#+3 : a4#=cur#+4
   if b4#<1 : else : b4$=checklist string$(b4#) : endif
   if b3#<1 : else : b3$=checklist string$(b3#) : endif
   if b2#<1 : else : b2$=checklist string$(b2#) : endif
   if b1#<1 : else : b1$=checklist string$(b1#) : endif
   if a1#>max# : else : a1$=checklist string$(a1#) : endif
   if a2#>max# : else : a2$=checklist string$(a2#) : endif
   if a3#>max# : else : a3$=checklist string$(a3#) : endif
   if a4#>max# : else : a4$=checklist string$(a4#) : endif
   cur$=checklist string$(cur#)
   ink rgb(128,128,128),0
   center text 320,20,b4$
   center text 320,40,b3$
   center text 320,60,b2$
   center text 320,80,b1$
   ink rgb(255,255,255),0
   center text 320,100,cur$
   ink rgb(128,128,128),0 
   center text 320,120,a1$
   center text 320,140,a2$
   center text 320,160,a3$
   center text 320,180,a4$
   sync
   if returnkey()=1 then goto _select
   if escapekey()=1 then end
loop

_select:
if cur#=1 then goto "C:"
if cur#=2 then goto ".."
if cur#>2
   if file exist(cur$)=0 : set dir cur$ : endif
   if file exist(cur$)=1 : execute file cur$ : endif
   goto main
endif
`If for some reason that i can't think of, select has failed
`to goto main, it will goto mian
goto main

function total_length(file$)
   if file open(1)=1 then close file 1
   open to read 1,file$
   length=0
   repeat
      read string 1,string$
      length=len(string$)
   until file end(1)=1
endfunction length

function total_length(file$)
   if file open(1)=1 then close file 1
   open to read 1,file$
   length=0
   repeat
      read string 1,string$
      inc length
   until file end(1)=1
endfunction length

length=len(string$)

length=length+len(string$)

REM Project: Encoder
REM Created: 7/12/06 8:27:58 AM
REM
REM ***** Main Source File *****
REM

sync on : sync rate 0

open to write 1,"Test.txt"
write string 1,"This file has been decrypted successfully!"
write string 1,"Goodbye..."
write string 1,"Hey wait!"
write string 1,"Actually don't wait. Bye."
close file 1

code as integer

sync
input "Enter file name: ",file$
sync
input "Enter password: ",pass$
sync
input "Enter code: ",code
code = int(code)

encodefile(file$,pass$,code)

sync

decodefile(file$+".saf",pass$,code)

sync

suspend for key

end

function encodefile(file$,password$,code)

   open to read 2,file$
   open to write 3,file$+".saf"

   length = file size(file$)

   bytenum as integer
   code$ = str$(code)

   max = len(password$)
   cmax = len(code$)
   pos = 1
   cpos = 1

   start = timer()
   count = 0

   for d = 1 to length

      newchange = asc(mid$(password$,pos))
      codchange = val(mid$(code$,cpos))
      read byte 2,bytenum
      inc bytenum,newchange+codchange
      while bytenum > 255
         dec bytenum,256
      endwhile
      write byte 3,bytenum
      inc pos
      inc cpos

      if pos > max then pos = 1
      if cpos > cmax then cpos = 1

      inc count
      if count > 100
         count = 0
         percent# = d
         percent# = percent#/length
         timegone# = (timer() - start)
         timeleft# = int(((timegone# / percent#)-timegone#)/1000)
         timeleft# = int(timeleft#)
         ink rgb(255,255,255),0
         text 200,20,str$(int(percent#*100)) + "%"
         text 200,40,str$(timeleft#+1) + " second(s) remaining..."
         sync
         ink 0,0
         box 200,20,640,60
      endif

   next d

   ink rgb(255,255,255),0

   close file 2
   close file 3

endfunction

function decodefile(file$,password$,code)

   open to read 2,file$
   length = file size(file$)

   set dir "Decoded"
   open to write 3,left$(file$,len(file$)-4)

   bytenum as integer
   code$ = str$(code)

   max = len(password$)
   cmax = len(code$)
   pos = 1
   cpos = 1

   start = timer()
   count = 0

   for d = 1 to length

      newchange = asc(mid$(password$,pos))
      codchange = val(mid$(code$,cpos))
      read byte 2,bytenum
      dec bytenum,newchange+codchange
      while bytenum < 0
         inc bytenum,256
      endwhile
      write byte 3,bytenum
      inc pos
      inc cpos

      if pos > max then pos = 1
      if cpos > cmax then cpos = 1

      inc count
      if count > 100
         count = 0
         percent# = d
         percent# = percent#/length
         timegone# = (timer() - start)
         timeleft# = int(((timegone# / percent#)-timegone#)/1000)
         timeleft# = int(timeleft#)
         ink rgb(255,255,255),0
         text 200,20,str$(int(percent#*100)) + "%"
         text 200,40,str$(timeleft#+1) + " second(s) remaining..."
         sync
         ink 0,0
         box 200,20,640,60
      endif

   next d

   close file 2
   close file 3

endfunction