--[[
	NeoVariable Server
	by LDDestroier
	Thanks to SquidDev and PG23186706924 for AES and Ring-LWE respectively!
--]]

local id = os.getComputerID()
local tArg = {...}
local serverName = tArg[1] or ("neovari-server-"..math.random(1,999999))
local logdir = ".neolog"
local doWriteLog = false
local port = tonumber(tArg[2]) or 262
local modem = {}
local clientKeys = {}
local inlog, successlog = {}, {}
local cllog, clsucclog = {}, {}
local scr_x, scr_y = term.getSize()

local ts, mf = tostring, math.floor

local ServData = {}

local tsv = function(visible)
	if term.current().setVisible then
		term.current().setVisible(visible)
	end
end

local waitForModem = function(time)
	local tID, evt, rID = os.startTimer(time or 1)
	while true do
		evt, rID = os.pullEvent()
		if evt == "timer" then
			if rID == tID then
				return false
			end
		elseif evt == "peripheral" then
			if peripheral.getType(rID) == "modem" then
				return true
			end
		end
	end
end

local getModem = function(timeout) --returns a working modem, prioritizes use of wireless modem
	if modem.open then return modem end
	local modems = {peripheral.find("modem")}
	if #modems == 0 then
		if waitForModem(timeout or 3) then
			modems = {peripheral.find("modem")}
		else
			error("No modem found...")
		end
	end
	for a = 1, #modems do
		if modems[a].isWireless() then
			modems[a].open(port)
--			modems[a].open(id)
			return modems[a]
		end
	end
	modems[1].open(port)
--	modems[1].open(id)
	return modems[1]
end

modem = getModem()

local saveData = function()
	local file = fs.open(saveDir,"w")
	file.write(textutils.serialize(ServData))
	file.close()
end

local loadData = function()
	local file = fs.open(saveDir,"r")
	ServData = textutils.unserialize(file.readAll())
	file.close()
end

local scroll = 0

local logadd = function(text)
	local line = table.concat({"[",( os.time() + ( os.day() * 24 ) ),"] ",(text or "Invalid Log Entry")})
	if doWriteLog then
		local file = fs.open(logdir,"a")
		file.writeLine(line)
		file.close()
	end
	if scroll == #inlog-mf(scr_y/3) then	
		scroll = scroll + 1
	end
	inlog[#inlog+1] = line
	successlog[#inlog] = true
end

local clg = function(clientName, clientID, commandName, success, ...)
	local furtherargs = {...}
	local line = table.concat({"'",clientName,"' (",(clientID or "?"),")\n did '",commandName,"'"})
	if #furtherargs > 0 then
		for a = 1, #furtherargs do
			furtherargs[a] = textutils.serialize(furtherargs[a]):sub(1,8192)
		end
		line = line.." ("..table.concat(furtherargs,", ")..")"
	end
	logadd(line,true)
	successlog[#inlog] = success
	cllog[#cllog+1] = line
	clsucclog[#cllog] = success
end

local keyPair, encapsulate, decapsulate
local initRLWE = function()
	local N = 512
	local q = 25601
	local w = {1,114,12996,22287,6219,17739,25368,24640,18451,4132,10230,14175,3087,19105,1885,10082,22904,25355,23158,3109,21613,6186,13977,6116,5997,18032,7568,17919,20287,8628,10754,22709,3125,23437,9314,12155,3216,8210,14304,17793,5923,9596,18702,7145,20899,1593,2395,17020,20205,24881,20324,12846,5187,2495,2819,14154,693,2199,20277,7488,8799,4647,17738,25254,11644,21765,23514,18092,14408,4048,654,23354,25453,8729,22268,4053,1224,11531,8883,14223,8559,2888,22020,1382,3942,14171,2631,18323,15141,10807,3150,686,1401,6108,5085,16468,8479,19369,6380,10492,18442,3106,21271,18400,23919,13060,3982,18731,10451,13768,7891,3539,19431,13448,22613,17782,4669,20246,3954,15539,4977,4156,12966,18867,354,14755,18005,4490,25441,7361,19922,18220,3399,3471,11679,154,17556,4506,1664,10489,18100,15320,5612,25344,21904,13759,6865,14580,23656,8679,16568,19879,13318,7793,17968,272,5407,1974,20228,1902,12020,13427,20219,876,23061,17652,15450,20432,25158,700,2997,8845,9891,1130,815,16107,18527,12796,25088,18321,14913,10416,9778,13849,17125,6574,7007,5167,215,24510,3631,4318,5833,24937,1107,23794,24411,17946,23365,1106,23680,11415,21260,17146,8968,23913,12376,2809,13014,24339,9738,9289,9305,11129,14257,12435,9535,11748,8020,18245,6249,21159,5632,2023,213,24282,3240,10946,18996,15060,1573,115,13110,9682,2905,23958,17506,24407,17490,22583,14362,24405,17262,22192,20990,11967,7385,22658,22912,666,24722,2198,20163,20093,12113,24029,25600,25487,12605,3314,19382,7862,233,961,7150,21469,15371,11426,22514,6496,23716,15519,2697,246,2443,22492,3988,19415,11624,19485,19604,7569,18033,7682,5314,16973,14847,2892,22476,2164,16287,13446,22385,17391,11297,7808,19678,16005,6899,18456,4702,24008,23206,8581,5396,720,5277,12755,20414,23106,22782,11447,24908,23402,5324,18113,16802,20954,7863,347,13957,3836,2087,7509,11193,21553,24947,2247,148,16872,3333,21548,24377,14070,16718,11378,17042,22713,3581,24219,21659,11430,22970,7278,10460,14794,22451,24915,24200,19493,20516,9133,17122,6232,19221,15109,7159,22495,4330,7201,1682,12541,21619,6870,15150,11833,17710,22062,6170,12153,2988,7819,20932,5355,21647,10062,20624,21445,12635,6734,25247,10846,7596,21111,160,18240,5679,7381,22202,22130,13922,25447,8045,21095,23937,15112,7501,10281,19989,257,3697,11842,18736,11021,1945,16922,9033,5722,12283,17808,7633,25329,20194,23627,5373,23699,13581,12174,5382,24725,2540,7949,10151,5169,443,24901,22604,16756,15710,24471,24786,9494,7074,12805,513,7280,10688,15185,15823,11752,8476,19027,18594,20434,25386,1091,21970,21283,19768,664,24494,1807,1190,7655,2236,24495,1921,14186,4341,8455,16633,1688,13225,22792,12587,1262,15863,16312,16296,14472,11344,13166,16066,13853,17581,7356,19352,4442,19969,23578,25388,1319,22361,14655,6605,10541,24028,25486,12491,15919,22696,1643,8095,1194,8111,3018,11239,1196,8339,3409,4611,13634,18216,2943,2689,24935,879,23403,5438,5508,13488,1572}
	local wrev = {1,1572,13488,5508,5438,23403,879,24935,2689,2943,18216,13634,4611,3409,8339,1196,11239,3018,8111,1194,8095,1643,22696,15919,12491,25486,24028,10541,6605,14655,22361,1319,25388,23578,19969,4442,19352,7356,17581,13853,16066,13166,11344,14472,16296,16312,15863,1262,12587,22792,13225,1688,16633,8455,4341,14186,1921,24495,2236,7655,1190,1807,24494,664,19768,21283,21970,1091,25386,20434,18594,19027,8476,11752,15823,15185,10688,7280,513,12805,7074,9494,24786,24471,15710,16756,22604,24901,443,5169,10151,7949,2540,24725,5382,12174,13581,23699,5373,23627,20194,25329,7633,17808,12283,5722,9033,16922,1945,11021,18736,11842,3697,257,19989,10281,7501,15112,23937,21095,8045,25447,13922,22130,22202,7381,5679,18240,160,21111,7596,10846,25247,6734,12635,21445,20624,10062,21647,5355,20932,7819,2988,12153,6170,22062,17710,11833,15150,6870,21619,12541,1682,7201,4330,22495,7159,15109,19221,6232,17122,9133,20516,19493,24200,24915,22451,14794,10460,7278,22970,11430,21659,24219,3581,22713,17042,11378,16718,14070,24377,21548,3333,16872,148,2247,24947,21553,11193,7509,2087,3836,13957,347,7863,20954,16802,18113,5324,23402,24908,11447,22782,23106,20414,12755,5277,720,5396,8581,23206,24008,4702,18456,6899,16005,19678,7808,11297,17391,22385,13446,16287,2164,22476,2892,14847,16973,5314,7682,18033,7569,19604,19485,11624,19415,3988,22492,2443,246,2697,15519,23716,6496,22514,11426,15371,21469,7150,961,233,7862,19382,3314,12605,25487,25600,24029,12113,20093,20163,2198,24722,666,22912,22658,7385,11967,20990,22192,17262,24405,14362,22583,17490,24407,17506,23958,2905,9682,13110,115,1573,15060,18996,10946,3240,24282,213,2023,5632,21159,6249,18245,8020,11748,9535,12435,14257,11129,9305,9289,9738,24339,13014,2809,12376,23913,8968,17146,21260,11415,23680,1106,23365,17946,24411,23794,1107,24937,5833,4318,3631,24510,215,5167,7007,6574,17125,13849,9778,10416,14913,18321,25088,12796,18527,16107,815,1130,9891,8845,2997,700,25158,20432,15450,17652,23061,876,20219,13427,12020,1902,20228,1974,5407,272,17968,7793,13318,19879,16568,8679,23656,14580,6865,13759,21904,25344,5612,15320,18100,10489,1664,4506,17556,154,11679,3471,3399,18220,19922,7361,25441,4490,18005,14755,354,18867,12966,4156,4977,15539,3954,20246,4669,17782,22613,13448,19431,3539,7891,13768,10451,18731,3982,13060,23919,18400,21271,3106,18442,10492,6380,19369,8479,16468,5085,6108,1401,686,3150,10807,15141,18323,2631,14171,3942,1382,22020,2888,8559,14223,8883,11531,1224,4053,22268,8729,25453,23354,654,4048,14408,18092,23514,21765,11644,25254,17738,4647,8799,7488,20277,2199,693,14154,2819,2495,5187,12846,20324,24881,20205,17020,2395,1593,20899,7145,18702,9596,5923,17793,14304,8210,3216,12155,9314,23437,3125,22709,10754,8628,20287,17919,7568,18032,5997,6116,13977,6186,21613,3109,23158,25355,22904,10082,1885,19105,3087,14175,10230,4132,18451,24640,25368,17739,6219,22287,12996,114}
	local wsqrt = {1,22188,114,20534,12996,11185,22287,20641,6219,23383,17739,3158,25368,1598,24640,2965,18451,5197,4132,3635,10230,4774,14175,6615,3087,11681,19105,382,1885,17947,10082,23479,22904,14102,25355,20366,23158,17634,3109,13398,21613,16913,6186,8007,13977,16763,6116,16508,5997,13039,18032,1588,7568,1825,17919,3242,20287,11174,8628,19387,10754,8432,22709,14011,3125,9992,23437,12644,9314,7760,12155,14206,3216,6621,8210,12365,14304,1555,17793,23664,5923,9591,9596,18132,18702,18968,7145,11868,20899,21700,1593,16104,2395,18185,17020,25010,20205,9429,24881,25265,20324,12898,12846,11115,5187,12661,2495,9698,2819,4729,14154,1485,693,15684,2199,21507,20277,19703,7488,18855,8799,24587,4647,12409,17738,6571,25254,6665,11644,17381,21765,10157,23514,5853,18092,1616,14408,5017,4048,8716,654,20786,23354,14312,25453,18705,8729,7487,22268,8685,4053,17252,1224,21052,11531,19035,8883,19506,14223,21998,8559,24475,2888,25242,22020,10276,1382,19419,3942,12080,14171,20267,2631,6348,18323,6844,15141,12186,10807,6750,3150,1470,686,13974,1401,5774,6108,18211,5085,2373,16468,14512,8479,15904,19369,20986,6380,11511,10492,6603,18442,10313,3106,23637,21271,6513,18400,53,23919,6042,13060,23162,3982,3565,18731,22395,10451,18531,13768,13252,7891,269,3539,5065,19431,14188,13448,4569,22613,8846,17782,10005,4669,14126,20246,23102,3954,22326,15539,10665,4977,12563,4156,24127,12966,11171,18867,19045,354,20646,14755,23953,18005,16936,4490,10629,25441,8459,7361,17089,19922,2470,18220,25570,3399,22067,3471,6740,11679,330,154,12019,17556,13313,4506,7223,1664,4190,10489,16842,18100,25514,15320,15683,5612,21393,25344,6707,21904,22169,13759,18368,6865,20271,14580,6804,23656,7626,8679,24531,16568,6025,19879,21224,13318,13042,7793,1930,17968,15212,272,18901,5407,4230,1974,21402,20228,7733,1902,11128,12020,14143,13427,25040,20219,12849,876,5529,23061,15882,17652,18478,15450,7210,20432,2708,25158,1500,700,17394,2997,11639,8845,21195,9891,9736,1130,9061,815,8914,16107,17757,18527,1819,12796,2558,25088,10001,18321,13670,14913,22320,10416,9981,9778,11390,13849,18410,17125,25059,6574,15015,7007,22044,5167,4118,215,8634,24510,11438,3631,23882,4318,8842,5833,9549,24937,13344,1107,10757,23794,23051,24411,16512,17946,13495,23365,2370,1106,14170,23680,2517,11415,5327,21260,18455,17146,4588,8968,11012,23913,919,12376,2362,2809,13258,13014,953,24339,6238,9738,19905,9289,16282,9305,12876,11129,8607,14257,8360,12435,5803,9535,21517,11748,20843,8020,20810,18245,17048,6249,23397,21159,4754,5632,4335,2023,7771,213,15460,24282,21572,3240,1512,10946,18762,18996,13985,15060,7028,1573,7561,115,17121,13110,6118,9682,6225,2905,18423,23958,940,17506,4756,24407,4563,17490,8162,22583,8832,14362,8409,24405,11389,17262,18296,22192,12063,20990,18329,11967,15825,7385,11980,22658,8867,22912,12399,666,5431,24722,4710,2198,24920,20163,24770,20093,7670,12113,3946,24029,14627}
	local wsqrtrev = {25551,14522,23804,18093,16827,25086,6211,9652,9711,17152,7496,5091,7252,15540,7699,5526,19156,8133,6456,10177,10836,23220,9527,20415,25460,14327,8757,18765,18267,6228,17003,10834,1272,6383,2706,24085,4066,23342,17103,7391,4866,21399,20254,25115,17245,4038,23282,24289,15475,11217,5750,19636,1847,18587,10571,8023,2563,16464,9679,24398,8394,3358,10853,4970,10650,4535,24347,11942,25590,7291,8309,17805,5238,7567,16215,16460,16985,18110,24178,608,15932,8539,7326,8384,21623,20734,18829,3775,4432,20469,3632,22412,481,4688,13703,22049,10675,22875,12445,15696,4376,20349,18004,12979,13183,24592,12467,1114,13359,10340,7528,23446,6354,17273,4098,16096,16205,9124,1265,6368,17303,505,12054,229,4148,1574,18002,16632,10039,6883,11092,16454,2343,8678,22253,22084,10750,1092,2340,1357,17537,8321,21488,24102,11417,24465,1223,6278,2481,12631,8780,15157,3221,17874,20015,13631,25552,25496,25376,14147,4714,17416,11719,10483,15149,17833,5298,381,8131,10109,7033,18728,21845,24867,9399,23798,3451,7395,23161,2086,4470,2264,12166,469,1005,20440,18199,2425,12511,23152,5724,15923,12177,18779,18297,2635,12961,20459,21897,6692,14340,23414,13600,18171,2365,19697,5635,12075,274,11559,21112,19639,9168,23303,24334,22886,5154,7387,12172,15111,10437,22365,22324,7607,19958,2537,12751,20009,24590,16120,23571,21251,8965,22868,12430,4692,6397,2736,20492,24,7366,12127,7700,16500,20728,4187,19944,2507,16344,24051,14965,21096,23262,9617,9636,13334,17601,19430,19692,1967,4215,20004,20922,8260,17700,5013,21714,20929,8275,3103,2992,13726,18441,21230,8920,15457,18493,3055,13861,15073,3041,13831,18666,7083,4206,23642,6774,18173,24313,22841,23344,13450,10535,22575,22774,4914,10530,18907,14914,24644,19893,6055,12975,20489,18304,2650,23965,18438,13909,4204,1694,3630,464,22938,12580,12328,11788,25260,21213,1569,14334,8772,4168,16246,23841,14515,23789,7089,18848,7473,8699,22298,3894,4687,2729,20477,14621,9387,20115,10188,3545,14911,17323,15177,17893,23713,17898,1780,157,7651,16395,20503,18334,24658,19923,2462,8933,4513,13328,2959,9998,17767,23443,24634,12557,15936,1233,13614,18201,24373,15655,15260,7099,583,23193,20441,3572,3997,8565,11039,23655,21431,13008,24217,18978,437,8251,21338,16466,6026,1941,502,4733,21114,15986,12312,15411,108,7546,16170,9049,23048,16473,6041,12945,24082,22346,18626,3340,18129,2275,4875,17761,8801,15202,10632,11811,21652,6167,13215,17346,11569,2847,9758,20910,4577,24437,1163,13464,10565,18982,18732,14539,5554,19216,947,23973,3826,884,23838,7194,19073,18927,3985,4882,17776,19805,13181,2644,9323,9006,11984,79,22113,21784,21079,15911,8494,25516,14447,19986,2597,5565,11925,18239,6168,24189,18918,7623,16335,2088,817,5408,4274,1844,11266,5855,19861,13301,13873,18756,21905,17681,1315,17447,19100,8013,20828,744,23538,17523,8291,25081,2543,1792,3840,914,20245,3152,3097,13951,4294,16516,17105,3738,8010,13507,21629,9775,2660,5700,8557}
	local a = {5814,7777,6783,11441,12726,16939,5820,20322,7816,15027,10887,3482,2219,17067,13282,5063,19736,19008,3856,22317,25359,15211,17450,2809,1418,12920,10555,22948,3819,13226,5457,7845,12847,5280,8185,1510,1909,14564,23460,9260,4543,1047,21339,10471,9047,14127,11644,9429,4679,23679,890,9628,3653,9171,2441,16690,7834,113,4929,3680,4665,21384,14695,19415,11609,17704,21501,14557,7993,5320,12592,516,11854,11177,683,24070,23311,2337,18301,19491,4232,16134,24406,5441,8602,13949,20794,22473,20705,2179,11426,19337,21717,11729,25550,12866,22583,16467,14912,20005,16925,14526,10007,2184,1976,17363,20585,21468,18489,12249,2228,14654,19848,7721,2999,12129,2196,8640,8817,15981,10696,23569,5395,5187,7211,9398,21776,4995,10597,6131,11983,20344,2267,8302,13050,23082,2142,17301,1417,5587,17101,31,12237,24086,14673,7607,12541,6171,14730,10381,2288,17274,3485,5558,5084,13222,2585,8173,19577,21712,1205,10098,19278,25409,19590,20198,1370,1065,22985,7187,14734,15338,18279,17028,4594,20353,1852,6534,22599,15788,12497,21775,2746,15574,24541,25094,16861,21583,7688,23896,12574,20773,13737,6324,25003,927,18965,11390,9848,2982,10401,5168,25399,4710,18194,3954,23847,25537,1246,10404,24144,20607,4668,16989,18289,3730,11169,3388,15210,21920,10854,14979,12549,19351,12533,3558,25200,21895,21725,13540,9224,9877,16360,9341,20962,12199,24586,5902,2861,4368,16296,12904,23857,1394,17890,20905,4694,2009,14142,1958,9034,22465,3789,19881,15167,14223,2261,3979,23470,8164,19398,16145,24919,21732,17214,1414,16372,5652,9955,9654,21334,24539,23323,15832,8946,25039,17423,18983,5746,4418,22218,17124,24653,87,25515,8963,9067,4988,11521,2316,12678,16774,16943,15408,2681,9506,22512,849,17392,9639,2887,11492,4840,16364,2901,22106,9984,5073,17185,22039,19494,24870,23713,9563,13169,23475,13455,6194,24138,8756,13390,22201,24698,25205,18266,14234,356,9825,5224,21469,17280,8945,18707,2640,13639,18773,4103,6820,9361,1249,23737,5828,6592,25336,22169,13413,15709,22903,4153,16175,13683,16936,1267,13088,17173,15599,18559,25245,24371,1266,8459,13267,7284,2634,22420,659,9603,12438,19523,15764,24161,1296,16089,18568,23084,4646,15034,8619,21023,7254,2850,8966,17138,19625,23474,25213,24353,15470,8409,12346,6543,13778,9992,12254,24112,305,9492,9659,9738,25228,8931,20068,13686,21085,23339,4808,15033,8617,9208,23558,23784,20288,10953,16829,21063,6362,1427,4775,3930,12363,14515,23746,23436,19827,7242,7476,21051,14135,21756,13922,11342,20459,2135,11112,17351,22892,20669,10145,25338,10301,14773,20073,10578,2704,21983,18970,13086,741,25042,2184,1989,4848,10053,19412,16865,23591,19793,10217,15140,15042,23310,11580,10159,19561,224,23692,9071,23196,15679,19607,9514,14300,25231,9186,19301,16492,25011,5436,19628,13468,22265,22182,5057,1421,24705,22133,3718,453,14665,14974,17249,22049,2132,17807,10486,7572,20895,251,11483,9803,25209,15385,16357,21762,5943,14011,9712,6280,18302,15677,15770,4203}
	local B = 5

	local rshift = bit.brshift
	local lshift = bit.blshift

	local function add(a,b)
		local result = {}
		for i = 1, N do
			table.insert(result,(a[i] + b[i]) % q)
		end
		return result
	end

	local function sample(b)
		local result = {}
		for i = 1, N do
			table.insert(result,math.random(-b,b))
		end
		return result
	end

	local function fftForward(x)
		local index, step
		local i, j, m
		local t0, t1
		for i = 1, N do x[i] = (x[i] * wsqrt[i]) % q end
		step = 1
		m = rshift(N,1)
		while m >= 1 do
			index = 0
			for j = 0, m-1 do
				for i = j, N-1, lshift(m,1) do
					t0 = (x[i+1] + x[i+m+1]) % q
					t1 = (x[i+1] - x[i+m+1]) % q
					x[i+m+1] = (t1 * w[index+1]) % q
					x[i+1] = t0
				end
				index = (index - step) % N
			end
			step = lshift(step,1)
			m = rshift(m,1)
		end
		return x
	end
	a = fftForward(a)
	local function fftBack(x)
		local index, step
		local i, j, m
		local t0, t1
		step = rshift(N,1)
		m = 1
		while m < N do
			index = 0
			for j = 0, m-1 do
				for i = j, N-1, lshift(m,1) do
					t0 = x[i+1]
					t1 = (x[i+m+1] * wrev[index+1]) % q
					x[i+1] = (t0 + t1) % q
					x[i+m+1] = (t0 - t1) % q
				end
				index = (index - step) % N
			end
			step = rshift(step,1)
			m = lshift(m,1)
		end
		for i = 1, N do
			x[i] = (x[i] * wsqrtrev[i]) % q
		end
		return x
	end

	local function pwMul(a,b) -- Pointwise multiplication
		local result = {}
		a = {unpack(a)}
		b = {unpack(b)}
		for i = 1, N do
			result[i] = (a[i] * b[i]) % q
		end
		return result
	end

	local function randomizedRound(v)
		local result = {unpack(v)}
		for i = 1, N do
			local coinFlip = math.random(0,1)
			if coinflip == 1 and result[i] == 0 then
				result[i] = q - 1
			elseif coinflip == 1 and result[i] == (q-1) / 4 then
				result[i] = (q+3) / 4
			end
		end
		return result
	end

	local function round(v) -- Modular rounding function
		local result = {}
		for i = 1, #v do
			if v[i] > q/4 and v[i] < 3*q/4 then
				result[#result+1] = 1
			else
				result[#result+1] = 0
			end
		end
		return result
	end

	local function crossRound(v) -- Mask function
		local result = {}
		for i = 1, #v do
			if v[i] >= q/4 and v[i] < q/2 then
				table.insert(result,1)
			elseif v[i] >= 3*q/4 and v[i] < q then
				table.insert(result,1)
			else
				table.insert(result,0)
			end
		end
		return result
	end

	local function rec(w,b)
		local result = {}
		for i = 1, #w do
			if b[i] == 0 and w[i] >= 7*q/8 or b[i] == 0 and w[i] < 3*q/8 then
				table.insert(result,0)
			elseif b[i] == 1 and w[i] >= 5*q/8 or b[i] == 1 and w[i] < q/8 then
				table.insert(result,0)
			else
				table.insert(result,1)
			end
		end
		return result
	end

	function keyPair()
		local s0 = sample(B)
		local s1 = sample(B)
		s0 = fftForward(s0)
		s1 = fftForward(s1)
		local b = add(pwMul(s1,a),s0)
		return s1, b
	end

	function encapsulate(b)
		local e0 = sample(B)
		local e1 = sample(B)
		local e2 = sample(B)
		e0 = fftForward(e0)
		e1 = fftForward(e1)
		e2 = fftForward(e2)
		local u = add(pwMul(e0,a),e1)
		local v = add(pwMul(e0,b),e2)
		v = fftBack(v)
		local v_ = randomizedRound(v)
		local mu = round(v_)
		v = crossRound(v_)
		local c = {v,u}
		return mu, c
	end

	function decapsulate(s1,c)
		local v = c[1]
		local u = c[2]
		local w = pwMul(u,s1)
		w = fftBack(w)
		local mu = rec(w,v)
		return mu
	end
end


local initAES = function()
	local apipath = "aes"
	if (not aes) and (not fs.exists(apipath)) then
		print("AES API not found! Downloading...")
		local prog = http.get("https://gist.githubusercontent.com/SquidDev/86925e07cbabd70773e53d781bd8b2fe/raw/ccea5f652cc33a979de02d6e0fe193db0c5bdfb1/aeslua.min.lua")
		if not prog then error("FAIL!") end
		local file = fs.open(apipath,"w")
		file.write(prog.readAll())
		file.close()
	end
	if not aes then
		local res = os.loadAPI(apipath)
		if not res then error("Didn't load AES API!") end
	end
end

initAES()
initRLWE()

local encTransmit = function(port,report, message, key)
	if type(key) == "table" then
		key = table.concat(key)
	end
	if key then
		modem.transmit(port,report,aes.encrypt(key,textutils.serialize(message)))
	else
		modem.transmit(port,report,message)
	end
end

local decryptInput = function(input, key)
	if type(key) == "table" then
		key = table.concat(key)
	end
	if type(input) == "string" then
		return textutils.unserialize(aes.decrypt(key,input) or "nil")
	else
		return input
	end
end

local binaryToString = function(b)
	local out = ""
	for a = 1, #b, 8 do
		out = out..string.char(tonumber(table.concat({ b[a],b[a+1],b[a+2],b[a+3],b[a+4],b[a+5],b[a+6],b[a+7] }),2))
	end
	return out
end

local setLogColors = function()
	term.setBackgroundColor(colors.lightGray)
	term.setTextColor(colors.black)
end

local setRegColors = function()
	term.setBackgroundColor(colors.gray)
	term.setTextColor(colors.white)
end

local render = function(scroll, log, slog)
	tsv(false)
	local y = 2
	local l = 1
	setLogColors()
	term.clear()
	repeat
		term.setCursorPos(1,y)
		local line, success = log[l+scroll], slog[l+scroll]
		if line then
			setLogColors()
			if not success then	term.setBackgroundColor(colors.pink) end
			term.clearLine()
			term.blit(ts(l+scroll),("f"):rep(#ts(l+scroll)),("0"):rep(#ts(l+scroll)))
			y = y + write(" "..line) + 1
			term.write((" "):rep(scr_x))	
			term.setCursorPos(1,y)
			setRegColors()
			term.clearLine()
			y = y + 1
		else
			setRegColors()
			term.clearLine()
			y = y + 1
		end
		l = l + 1
	until y > scr_y
	term.setCursorPos(1,1)
	setRegColors()
	if term.isColor() then
		term.setTextColor(colors.yellow)
	else
		term.setTextColor(colors.lightGray)
	end
	term.clearLine()
	term.write(serverName)
	term.setTextColor(colors.lightGray)
	term.write(" "..scroll.."/"..(math.max(0,#inlog-mf(scr_y/3))))
	tsv(true)
end

local currentLog = ""

local retrieveLog = function(logname)
	if cllog[logname] and clsucclog[logname] then
		return cllog[logname], clsucclog[logname]
	else
		return inlog, successlog
	end
end

local main = function()
	local evt, log, slog
	while true do
		evt = {os.pullEventRaw()}
		log, slog = retrieveLog(currentLog)
		if evt[1] == "modem_message" then
			local side, freq, repfreq, msg, distance = evt[2], evt[3], evt[4], evt[5], evt[6]
			if type(msg) == "table" and ((freq == port) or (freq == id)) then
				if clientKeys[msg.id] and (not msg.response) then
					if msg.msg then
						msg = decryptInput(msg.msg,clientKeys[msg.id] or "")
					else
						msg = nil
					end
				end
				if (type(msg)) == "table" then
					if (type(msg.gameName) == "string") and (type(msg.response) == "string") then
						if clientKeys[msg.id] then
							if msg.serverName == serverName then
								if msg.response == "getVariable" then
									local response = {}
									response.success = false
									if type(msg.varname) == "string" and type(msg.user) == "string" and ServData[msg.gameName] then
										if ServData[msg.gameName][msg.user] then
											response.success = true
											response.varval = ServData[msg.gameName][msg.user][msg.varname]
										end
									end
									modem = getModem()
									encTransmit(port,port,{
										id = id,
										serverName = serverName,
										gameName = msg.gameName,
										clientName = msg.clientName,
										user = msg.user,
										clientID = msg.id,
										response = "getVariable_response",
										varval = response.varval,
										varname = msg.varname,
										success = response.success
									},clientKeys[msg.clientName])
									clg(msg.clientName, msg.id, msg.response, response.success, msg.varname)
								end

								if msg.response == "setVariable" then
									local result
									if (type(msg.varname) == "string") and (type(msg.user) == "string") then
										if not ServData[msg.gameName] then ServData[msg.gameName] = {} end
										if not ServData[msg.gameName][msg.user] then ServData[msg.gameName][msg.user] = {} end
										ServData[msg.gameName][msg.user][msg.varname] = (msg.varval)
										result = true
									else
										result = false
									end
									encTransmit(port,port,{
										id = id,
										serverName = serverName,
										gameName = msg.gameName,
										clientName = msg.clientName,
										user = msg.user,
										clientID = msg.id,
										varname = msg.varname,
										response = "setVariable_response",
										success = result
									},clientKeys[msg.clientName])
									clg(msg.clientName, msg.id, msg.response, result, msg.varname, msg.varval)
								end

								if msg.response == "getEnvironment" then
									local response = {}
									response.varval = {}
									response.success = false
									if (type(msg.user) == "string") then
										if ServData[msg.gameName] then
											if ServData[msg.gameName] then
												if ServData[msg.gameName][msg.user] then
													response.success = true
												for k,v in pairs(ServData[msg.gameName][msg.user]) do
														response.varval[k] = v
													end
												else
													response.success = false
												end
											end
										end
									end
									modem = getModem()
									encTransmit(port,port,{
										id = id,
										serverName = serverName,
										gameName = msg.gameName,
										clientName = msg.clientName,
										user = msg.user,
										clientID = msg.id,
										response = "getEnvironment_response",
										success = response.success,
										environment = response.varval
									},clientKeys[msg.clientName])
									clg(msg.clientName, msg.id, msg.response, response.success)
								end

								if msg.response == "setEnvironment" then
									local result
									if (type(msg.environment) == "table") and (type(msg.user) == "string") then
										if not ServData[msg.gameName] then ServData[msg.gameName] = {} end
										ServData[msg.gameName][msg.user] = (msg.environment)
										result = true
									else
										result = false
									end
									encTransmit(port,port,{
										id = id,
										serverName = serverName,
										gameName = msg.gameName,
										clientName = msg.clientName,
										user = msg.user,
										clientID = msg.id,
										response = "setEnvironment_response",
										success = result
									},clientKeys[msg.clientName])
									clg(msg.clientName, msg.id, msg.response, result, msg.environment)
								end

								if msg.response == "queueEvent" then
									local response = {}
									response.users = {}
									response.success = false
									if (type(msg.eventTbl) == "table") then
										response.success = true
									end
									modem = getModem()
									if (msg.eventTbl[1] == "NEOVARI_PRIVATE_EVENT") and type(msg.eventTbl[2]) == "string" then
										local puser = msg.eventTbl[2]
										encTransmit(port,port,{
											id = id,
											serverName = serverName,
											gameName = msg.gameName,
											clientName = msg.clientName,
											clientID = msg.id,
											response = "queueEvent_response",
											eventTbl = msg.eventTbl[3],
											success = response.success
										},clientKeys[puser] or serverName)
									else
										for k,v in pairs(clientKeys) do
											encTransmit(port,port,{
												id = id,
												serverName = serverName,
												gameName = msg.gameName,
												clientName = msg.clientName,
												clientID = msg.id,
												response = "queueEvent_response",
												eventTbl = msg.eventTbl,
												success = response.success
											},v)
										end
									end
									clg(msg.clientName, msg.id, msg.response, response.success, msg.eventTbl)
								end

								if msg.response == "getUsers" then
									local response = {}
									response.users = {}
									response.success = false
									if ServData[msg.gameName] then
										response.success = true
										for k,v in pairs(ServData[msg.gameName]) do
											response.users[#response.users+1] = k
										end
									end
									modem = getModem()
									encTransmit(port,port,{
										id = id,
										serverName = serverName,
										gameName = msg.gameName,
										clientName = msg.clientName,
										clientID = msg.id,
										response = "getUsers_response",
										users = response.users,
										success = response.success
									},clientKeys[msg.clientName])
									clg(msg.clientName, msg.id, msg.response, response.success)
								end

								if msg.response == "clearGame" then
									local result = false
									if ServData[msg.gameName] then
										result = true
										ServData[msg.gameName] = nil
									end
									encTransmit(port,port,{
										id = id,
										serverName = serverName,
										gameName = msg.gameName,
										clientName = msg.clientName,
										clientID = msg.id,
										response = "clearGame_response",
										success = result
									},clientKeys[msg.clientName])
									clg(msg.clientName, msg.id, msg.response, result)
								end
								
								if msg.response == "disconnect" then
									clientKeys[msg.id] = nil
									logadd("Willful disconnection by ID: "..msg.id,true)
								end
							end
						end
					else
						if msg.response == "lookup" then
							if (not msg.serverFind) or (msg.serverFind == id or msg.serverFind == serverName) then
								modem = getModem()
								modem.transmit(port,port,{
									id = id,
									serverName = serverName,
									response = "lookup_response",
								})
								logadd("lookup from ID: "..msg.id,true)
							end
						elseif msg.response == "rlwe_connect" then
							if type(msg.publicKey) == "table" and (msg.serverName == serverName) then
								modem = getModem()
								local output
								if clientKeys[msg.id] then
									output = {
										id = id,
										serverName = serverName,
										response = "rlwe_connect_response",
										success = false,
									}
									logadd("RLWE connection from ID: "..msg.id,false)
								else
									local mu, publicKey = encapsulate(msg.publicKey)
									output = {
										id = id,
										serverName = serverName,
										response = "rlwe_connect_response",
										publicKey = publicKey,
										success = true,
									}
									mu = binaryToString(mu)
									clientKeys[msg.id] = mu
									logadd("RLWE connection from ID: "..msg.id,true)
								end
								modem.transmit(port,port,output)
							end
						end
					end
					render(scroll,log,slog)
				end
			end
		elseif evt[1] == "terminate" then
			logadd("Terminated.",true)
			render(math.max(3+#inlog-mf(scr_y/3),0),log,slog)
			term.setCursorPos(1,scr_y)
			term.setTextColor(colors.white)
			term.setBackgroundColor(colors.black)
			term.clearLine()
			return "terminate"
		elseif evt[1] == "mouse_scroll" then
			local scr,mx,my = evt[2], evt[3], evt[4]
			local oldescroll = scroll
			scroll = math.max(0,math.min(#inlog-mf(scr_y/3), scroll + scr))
			if scroll ~= oldescroll then render(scroll,log,slog) end
		elseif evt[1] == "key" then
			local key = evt[2]
			local oldescroll = scroll
			if key == keys.up then
				scroll = math.max(0,math.min(#inlog-mf(scr_y/3), scroll - 1))
			elseif key == keys.down then
				scroll = math.max(0,math.min(#inlog-mf(scr_y/3), scroll + 1))
			elseif key == keys.home then
				scroll = 0
			elseif key == keys["end"] then
				scroll = #inlog-mf(scr_y/3)
			end
			if scroll ~= oldescroll then render(scroll,log,slog) end
		elseif evt[1] == "term_resize" then
			scr_x, scr_y = term.getSize()
			render(scroll,log,slog)
		end
	end
end

setRegColors()
term.clear()

logadd("NeoVariable server initialized. (name:'"..serverName.."')",true)
render(scroll,inlog,successlog)

main()