AndyCode Archiver

--[[
Pure Lua archiver made by Andy73 a.k.a. viluon

Copyright 2014
version 0.3 BETA (2nd public release)

usage: archiver <compress|extract|help> <file input path> <file output path>

FUNCTIONAL!!!
]]

local s=48

local function help()
print("Pure Lua archiver by Andy a.k.a. viluon copyright 2014")
print("version 0.3 BETA")
print("")
print("Current dictionary size: "..s.." keywords")
print("")
print("Please note:Beta versions can cause unexpected data changes. Andy is not responsible for any data corruption or removals caused by this program. Use at your own risk.")
end

local function usage()
print("Usage:")
print(" archiver <compress|extract|help> <file input path> <file output path>")
print("'compress','extract' or 'help' can be shortened to 'c','e' or '?'")
end

local tArgs={...}

local t=nil

local function r(a,b)
t=string.gsub(t,a,b)
end

--COMPRESS
local function compress(...)
local args={...}
local file=fs.open(tostring(args[1]),"r")
print("FileSize original:"..fs.getSize(shell.resolve(tostring(args[1]))))
t=file.readAll()
file:close()
--FIRST ROUND SYMBOL @ (12x)
r("true","@Ä›") --new format
r("false","@š")
r("setTextScale","@ÄŤ")
r("setBackgroundColor","@Ĺ™")
r("os.loadAPI","@Ĺľ")
r("color","@Ă˝")
r("setTextColor","@á")
r("text","@Ă­")
r("Text","@Ă©")
r("write","@Ăş")
r("elseif","@ĹŻ")
r("local","@ˇ")
r("function","@´")
--SECOND ROUND SYMBOL # (12x)
r("then","#Ä›")
r("end","#š")
r("else","#ÄŤ")
r("tostring%(","#Ĺ™")
r("tonumber%(","#Ĺľ")
r("string","#Ă˝")
r("math","#á")
r("=os.pullEventRaw%(","#Ă­")
r("=os.pullEvent%(","#Ă©")
r("= os.pullEventRaw%(","#Ăş")
r("= os.pullEvent%(","#ĹŻ")
r("window","#ˇ")
r("process","#´")
--THIRD ROUND SYMBOL ! (12x)
r("and","!Ä›")
r("not","!š")
r("print","!ÄŤ")
r(" == ","!Ĺ™")
r(" ~= ","!Ĺľ")
r("= fs.exists%(","!Ă˝")
r("=pcall%(","!á")
r("= pcall%(","!Ă­")
r("pcall%(","!Ă©")
r("=fs.open%(","!Ăş")
r("= fs.open%(","!ĹŻ")
r("fs.exists%(","!ˇ")
r("print%(","!´")
--FOURTH ROUND SYMBOL / (12x)
r("=fs.isDir%(","/š")
r("= fs.isDir%(","/ÄŤ")
r("fs.isDir%(","/Ĺ™")
r("=fs.isReadOnly%(","/Ĺľ")
r("= fs.isReadOnly%(","/Ă˝")
r("fs.isReadOnly%(","/á")
r("=fs.getDrive%(","/Ă­")
r("= fs.getDrive%(","/Ă©")
r("fs.getDrive%(","/Ăş")
r("=fs.getSize%(","/ĹŻ")
r("= fs.getSize%(","/ˇ")
r("fs.getSize%(","/´")

local target=fs.open(tostring(args[2]),"w")
target.write(t)
target:close()

print("FileSize comprimed:"..fs.getSize(args[2]))
one=fs.getSize(args[1])/100
size=fs.getSize(args[2])
percent=100-size/one
print("comprimed by "..percent.."%")
end

--EXTRACT
local function extract(...)
local args={...}
local file=fs.open(shell.resolve(tostring(args[1])),"r") print("asd")
t=file.readAll()
file:close()
--FIRST ROUND SYMBOL @ (12x)
r("@Ä›","true")
r("@š","false")
r("@ÄŤ","setTextScale")
r("@Ĺ™","setBackgroundColor")
r("@Ĺľ","os.loadAPI")
r("@Ă˝","color")
r("@á","setTextColor")
r("@Ă­","text")
r("@Ă©","Text")
r("@Ăş","write")
r("@ĹŻ","elseif")
r("@ˇ","local")
r("@´","function")
--SECOND ROUND SYMBOL # (12x)
r("#Ä›","then")
r("#š","end")
r("#ÄŤ","else")
r("#Ĺ™","tostring%(")
r("#Ĺľ","tonumber%(")
r("#Ă˝","string")
r("#á","math")
r("#Ă­","=os.pullEventRaw%(")
r("#Ă©","=os.pullEvent%(")
r("#Ăş","= os.pullEventRaw%(")
r("#ĹŻ","= os.pullEvent%(")
r("#ˇ","window")
r("#´","process")
--THIRD ROUND SYMBOL ! (12x)
r("!Ä›","and")
r("!š","not")
r("!ÄŤ","print")
r("!Ĺ™"," == ")
r("!Ĺľ"," ~= ")
r("!Ă˝","= fs.exists%(")
r("!á","=pcall%(")
r("!Ă­","= pcall%(")
r("!Ă©","pcall%(")
r("!Ăş","=fs.open%(")
r("!ĹŻ","= fs.open%(")
r("!ˇ","fs.exists%(")
r("!´","print%(")
--FOURTH ROUND SYMBOL / (12x)
r("/š","=fs.isDir%(")
r("/ÄŤ","= fs.isDir%(")
r("/Ĺ™","fs.isDir%(")
r("/Ĺľ","=fs.isReadOnly%(")
r("/Ă˝","= fs.isReadOnly%(")
r("/á","fs.isReadOnly%(")
r("/Ă­","=fs.getDrive%(")
r("/Ă©","= fs.getDrive%(")
r("/Ăş","fs.getDrive%(")
r("/ĹŻ","=fs.getSize%(")
r("/ˇ","= fs.getSize%(")
r("/´","fs.getSize%(")

local target=fs.open(args[2],"w")
target.write(t)
target:close()

print("done!")
end

if tostring(tArgs[1])=="compress" or tostring(tArgs[1])=="c" then
compress(tArgs[2],tArgs[3])
elseif tostring(tArgs[1])=="extract" or tostring(tArgs[1])=="e" then
extract(tArgs[2],tArgs[3])
elseif tostring(tArgs[1])=="help" or tostring(tArgs[1])=="?" then
help()
else
usage()
end