451 posts
The left part of this post
Posted 16 January 2013 - 02:16 AM
--dbapi
local function reset()
pass = nil
object = nil
output = nil
end
function decodedbtofileswithallnames(file)
file = fs.open("file", "r")
a = file.readLine()
repeat
c = decrypt(a, "thepasswordshoulnotbeenknow")
b = textutils.unserialize(c)
o = fs.open(a[1], "w")
o.write(a[2])
a = file.readLine
o.close()
until a==nil
end
local function encode(text)
output=""
repeat
output=output..string.byte(text).." "
text=string.sub(text,2)
until string.len(text)==0
end
local function encrypt(text,pass)
text = text.."\n"..pass
encode(pass)
pass=output
temppass=output
encode(text)
text=output
output=""
repeat
a = string.find(temppass..""," ")
b = string.sub(temppass,1,a-1)
c = string.find(text..""," ")
d = string.sub(text,1,c-1)
output=output..b*d.." "
temppass=string.sub(temppass,a+1)
text = string.sub(text,c+1)
if string.find(temppass," ")==nil then
temppass=pass
end
until string.find(text," ")==nil
end
local function decrypt(text, rawpass)
encode(rawpass)
pass=output
temppass=output
output=""
repeat
a = string.find(text..""," ")
b = string.sub(text,1,a-1)
c = string.find(temppass..""," ")
d = string.sub(temppass,1,c-1)
test = pcall(string.char,b/d)
if test==false then
print("Password incorrect could not decrypt!!!")
output=nil
return
end
output = output.. string.char(b/d)
text=string.sub(text,a+1)
temppass=string.sub(temppass,c+1)
if string.match(temppass," ")==nil then
temppass=pass
end
until string.find(text," ")==nil
if string.match(output,rawpass)==nil then
print("Password incorrect could not decrypt!!!")
output=nil
return
end
output=string.gsub(output,"\n"..rawpass,"")
end
local function fencrypt(object,pass)
file=io.open(object,"r")
if file==nil then
print(object.." does not exists")
reset()
end
text=""
repeat
a = file:read()
if a~=nil then
text=text..a.."\n"
end
until a==nil
file:close()
encrypt(text,pass)
return output
end
local function fdecrypt(object,pass,save)
file=io.open(object,"r")
text=""
repeat
a=file:read()
if a~=nil then
text=text..a.."\n"
end
until a==nil
file:close()
decrypt(text,pass)
if output==nil then return end
if save==true then
file=io.open(object,"w")
file:write(output)
file:close()
else
return output
end
end
function setVal(key, value)
data[key] = value
end
function getVal(key)
return data[key]
end
function gettable()
return data
end
function getData()
return object, data.autor
end
function setData(bautor)
n, a = getData()
if not a then
data["autor"] = bautor
return true
else
s = shell.getRunningProgram()
a = shell.getRunningProgram()
b = shell.resolveProgram(a)
print(b..": Error, db "..object.." has alredy an autor, "..data.autor)
return false
end
end
function loadExcel(object)
a = fdecrypt(object,themegaexcelcorporationbymicroshitooohisaidexcelimeanudbbyurielsalisxD,false)
reset()
data = textutils.unserialize(a)
end
function save(name)
s = textutils.serialize(data)
a = fencrypt(s,themegaexcelcorporationbymicroshitooohisaidexcelimeanudbbyurielsalisxD)
reset()
file = fs.open(name, "w")
file.write(a)
file.close()
end
function closeExcel()
data = nil
end
