1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
-- do return end
-- --[=[
-- --[[
-- Some values that need to be setup by the server owner
-- ]]
--
-- local aes = include("aes.lua")
-- local ECBMode = include("lockbox/ecb.lua")
-- local ZeroPadding = include("lockbox/padding.lua")
-- local Array = include("lockbox/array.lua")
-- local Stream = include("lockbox/stream.lua")
-- print("sh_setup included aes successfully")
--
-- local valuesneeded = {
-- ["mysql DB host"] = "String",
-- ["mysql DB dbname"] = "String",
-- ["mysql DB uname"] = "String",
-- ["mysql DB pass"] = "String",
-- ["mysql should encrypt pass"] = "Bool",
-- ["mysql encrypt password"] = "String",
-- ["world default server ip:port"] = "String",
-- }
--
-- ART.Config = ART.Config or {}
--
-- if SERVER then
-- util.AddNetworkString( "ART_CONFIG_WRITE" )
-- local function ReadConfig(encryptkey)
-- encryptkey = encryptkey or ""
-- local ftext = file.Read("artery/config.txt", "DATA")
-- if ftext == nil then
-- print("Failed to read Config file, if this is a new setup, use art_setup to get started.")
-- return
-- end
-- local tbl = string.Explode("\n",ftext,false)
-- local strtbl = {}
-- for k,v in pairs(tbl) do
-- local ltext = v:Explode(":",false)
-- strtbl[ltext[1]] = ltext[2]
-- end
-- for k,v in pairs(valuesneeded) do
-- local tfunc = "to" .. v:lower()
-- ART.Config[k] = _G[tfunc](strtbl[k])
-- end
-- if ART.Config["mysql should encrypt pass"] then
-- if encryptkey == "" then
-- print("Failed to retrive MySQL database password, please enter it with the \"artery_dbpasswordkey\" command.")
-- return
-- end
-- ART.Config["mysql DB pass"] = aes.decrypt(lockstream.fromString(encryptkey),lockstream.fromString(ART.Config["mysql DB pass"]))
-- end
-- end
--
-- ReadConfig()
--
-- net.Receive( "ART_CONFIG_MYSQLPASS", function(len,ply)
-- if not ply:IsAdmin() then
-- return
-- end
-- end)
--
-- net.Receive( "ART_CONFIG_WRITE", function(len,ply)
-- print("Received write signal")
-- if not ply:IsAdmin() then return end
-- print("You're an admin!")
-- for k,v in pairs(valuesneeded) do
-- local ftype = "Read" .. v
-- ART.Config[k] = net[ftype]()
-- end
-- if ART.Config["mysql should encrypt pass"] then
-- local key = ART.Config["mysql encrypt password"]
-- local block = ART.Config["mysql DB pass"]
-- local akey = Array.fromString(key)
-- local ablock = Array.fromString(block)
-- local skey = Stream.fromString(key)
-- local sblock = Stream.fromString(block)
-- --print("sblock:" .. sblock)
-- --print("skey:" .. skey)
-- local cipher = ECBMode.Cipher().setKey(akey).setBlockCipher(aes).setPadding(ZeroPadding)
-- local ciphertxt = cipher.init().update(sblock).finish().asHex()
-- local decipher = ECBMode.Decipher().setKey(akey).setBlockCipher(aes).setPadding(ZeroPadding)
-- local deciphertxt = decipher.init().update(Stream.fromHex(ciphertxt)).finish().asHex()
-- print("Cyphertext of " .. block .. " is " .. ciphertxt)
-- print("Deciphertext of " .. ciphertxt .. " is " .. deciphertxt)
-- ART.Config["mysql DB pass"] = ciphertxt
-- end
-- local ftext = {}
-- for k,v in pairs(ART.Config) do
-- ftext[#ftext + 1] = k .. "=" .. tostring(v)
-- end
-- local wtext = table.concat(ftext,"\n")
-- print("Writeing:" .. wtext)
-- file.Write("artery/config.txt",wtext)
-- end)
--
-- net.Receive( "ART_CONFIG_REQUEST", function(len,ply)
-- if not ply:IsAdmin() then return end
-- for k,v in pairs(valuesneeded) do
-- local ftype = "Write" .. v
-- print("Calling " .. ftype .. " on " .. tostring(tbl[k]))
-- net[ftype](tbl[k])
-- end
-- end)
-- end
--
-- print("Got to before concommands were added")
--
-- concommand.Add("artery_dbpasswordkey",function()
-- if CLIENT then return end
--
-- end, nil, "Sets the encryption key for the mysql database password")
--
-- if CLIENT then
-- print("Got to before setup command")
--
-- concommand.Add("artery_setup", function(ply,cmd,args)
-- print("setup called")
-- if SERVER then return end
-- print("Got past server gaurd")
-- local width = ScrW()
-- local height = ScrH()
-- local configpanel = vgui.Create( "DFrame" )
-- configpanel:SetPos( 0, height/8 )
-- configpanel:SetSize( width/4, (height/4)*3 )
-- configpanel:SetTitle( "Artery Settings" )
-- configpanel:SetDraggable( true )
-- configpanel:MakePopup()
-- local scrollpanel = vgui.Create( "DScrollPanel", configpanel )
-- scrollpanel:Dock(FILL)
-- local entries = {}
-- for k,v in pairs(valuesneeded) do
-- local settinglabel = vgui.Create( "DLabel", scrollpanel )
-- settinglabel:Dock(TOP)
-- settinglabel:SetText( k )
-- scrollpanel:AddItem(settinglabel)
-- local settingentry
-- if v == "String" then
-- settingentry = vgui.Create( "DTextEntry", scrollpanel )
-- settingentry:SetSize(width/10,18)
-- settingentry:Dock(TOP)
-- elseif v == "Bool" then
-- settingentry = vgui.Create( "DCheckBox", holder)
-- settingentry:Dock(TOP)
-- --settingentry:SetSize(18,18)
-- end
-- scrollpanel:AddItem(settingentry)
-- entries[k] = settingentry
-- end
-- local savebutton = vgui.Create( "DButton",scrollpanel )
-- savebutton.DoClick = function()
-- net.Start( "ART_CONFIG_WRITE")
-- for k,v in pairs(valuesneeded) do
-- local nfunc = "Write"..v
-- local value = nil
-- if v == "String" then value = entries[k]:GetValue()
-- elseif v == "Bool" then value = entries[k]:GetChecked() end
-- assert(value ~= nil, "Didn't know setting type:" .. v .. " for " .. k)
-- print("Doing " .. nfunc .. " on " .. tostring(value))
-- net[nfunc](value)
-- end
-- net.SendToServer()
-- end
-- savebutton:SetText("Save config")
-- savebutton:Dock(TOP)
-- scrollpanel:AddItem(savebutton)
-- end)
-- end
-- ]=]
|
