Blaze API (Email System)

-- Blaze API
-- Created By DannySMc
-- Platform: Lua Virtual Machine

--[[ Blaze API: How to use, and contents

    CONTENTS:
    ---------
    Login -> Takes a username and password and will return true or false
    Register -> Takes a username, password and email and returns true or false
    Send -> Takes a username, password, recipient, subject, message and will return true or false
    Delete -> Takea a username, password, and msgid, will then return true or false
    Inbox -> Will take a username and password and return a nested array
    WordWrap -> This will take a string and a character limit and will wrap the string to that character limit, returns a table
    SHA256 -> This will take a string and return a hashed sum of it (The hashed sum is the stored password in the database)

    How To Use:
    -----------
    Login -> ec.login(username, password)
    Simple. Give it a username and password and it will check it against the database, if that user exists then it will return the boolean value of true or false if no user exists. Always tell the user to register if they don't have a user account.

    Register -> ec.register(username, password, email)
    This will take a username, password and email, the email needs to be real as when someone forgets their password (future update) you can send them a link through email to reset password. It returns a boolean true or false if it worked or not.

    Send -> ec.send(username, password, recipient, subject, message)
    This needs to take a username, password, recipient, subject and message. The username and password allows it to check you're registered, and then the recipient, message and subject are all for the sending messsage. Make sure the subject is less than 20 characters and the message is less than 300 characters. Will return true or false on whether it worked or not, of course this may sometimes return false, when the message did send, so I wouldn't consider using the true or false values as the PHP script has it's moments.

    Delete -> ec.delete(username, password, msgid)
    This takes a username and password to check your account and then takes the msgid, which is the first value in the nested array, for example to get the first message's id, (the table of all messages is called inbox): inbox[1][1] and this will return the id, if you want the second messages id then use inbox[2][1], etc. This will of course return true or false as a boolean result on whether it worked or not. Please note sometimes the message will delete but cause of an error it may delete the message but return false, so always make sure first as it is tempermental.

    Inbox -> ec.inbox(username, password)
    This of course will return your whole inbox for the username and password arguments you give it, this may also be a slow process as the PHP script will loop through every single row of the table and add it to a lua nested array. So depending on internet speed and inbox count, so be wary to make this a function that is ONLY run when needed! Of cours to update the inbox etc. The format is as follows:
    {
        {
            "Message ID",
            "Message Sender",
            "Recipeint",
            "Subject",
            "Message",
        },
        {
            "Message 2 ID",
            "Message 2 Sender",
            "Recipient for message 2",
            "Subject for message 2",
            "Message for message 2",
        },
    }
    so it is a nested table, so make sure when running through them that you get the right values from each message. Each message is it's own array inside another array, have any questions about this, email me on: danny@xigen.co.uk or PM me on the computercraft forums, my username is dannysmc95. Look at blaze for code snippets to display the contents but it is pretty simple as you can do a straight for loop on that array. for loops for nested tables work as so (this will get the second message in the table):
    for _, v in ipairs(inbox[2]) do
        print(v)
    end
    Like I said any questions PM me or email me.

    SHA256 -> ec.sha256(msg)
    This is to be used with the database. All passwords should be hashed using this before they are stored or sent up, as this is what my Blaze Client uses to encrypt passwords and etc. Please use this like the following:
    newPassword = ec.sha256(password)
    and then use newPassword to send up (of course the variable names can be different if you want).

    Word Wrap -> ec.wordwrap(string, limit)
    This is something I added which may be useful, in essence it will wrap the string variable to the limit (which should be a number) and return a table, so if you have a string that is like 300 characters and you wish to make it automatically wrap it to a computer you can use (msg being the 300 character string) ec.wordwrap(msg, 51) - always make sure you never send a wordwrapped string up as it will error, or at least if you try and get it back the inbox will be messed up!

    QUESTIONS:
    ----------
    Any questions PM me on computercraft forums: dannysmc95, or email me on danny@xigen.co.uk

    LICENSE:
    --------
    This is licensed under the Creative Commons (Attribution 3.0) license.
    This declares you can:

    Share - Copy and redistribute the material in any medium or format
    Adapt - Remix, transform, and build upon the material for any purpose, even commercially.

    AS LONG AS you follow the license terms which are as follows:

    Attribution - You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.

    In other words you can use it as you need, but you have to give credit to me. To do this add me into a credits section as the hoster and creator of the API, or link to my computercraft forums profile or my website: http://dannysmc.com.

    I hope this is good and I hope you guys enjoy this, it is made so the email style of client can be standardized using this. So everyone can send emails to and fro without problems, with multiple programs created by many users but follow the same API to allow all the programs to work together!

]]

blazeurls = {"http://dannysmc.com/files/php/emailsystem.php"}
blazecmds = {"login", "getInbox", "register", "delete", "send",}

ec = {}
ec.__index = ec

function ec.login(username, password)
    local req = http.post(blazeurls[1], "command="..textutils.urlEncode(tostring(blazecmds[1])).."&".."username="..textutils.urlEncode(tostring(username)).."&".."password="..textutils.urlEncode(tostring(password)))
    if req.readAll() == '"true"' then
        return true
    else
        return false
    end
end

function ec.inbox(username, password)
    local req = http.post(blazeurls[1], "command="..textutils.urlEncode(tostring(blazecmds[2])).."&".."username="..textutils.urlEncode(tostring(username)).."&".."password="..textutils.urlEncode(tostring(password)))
    return req
end

function ec.send(username, password, recipient, subject, message)
    local req = http.post(blazeurls[1], "command="..textutils.urlEncode(tostring(blazecmds[5])).."&".."username="..textutils.urlEncode(tostring(username)).."&".."password="..textutils.urlEncode(tostring(password)).."&".."recipient="..textutils.urlEncode(tostring(recipient)).."&".."subject="..textutils.urlEncode(tostring(subject)).."&".."message="..textutils.urlEncode(tostring(message)))
    if req.readAll() == '"true"' then
        return true
    else
        return false
    end
end

function ec.delete(username, password, msgid)
    local req = http.post(blazeurls[1], "command="..textutils.urlEncode(tostring(blazecmds[4])).."&".."username="..textutils.urlEncode(tostring(username)).."&".."password="..textutils.urlEncode(tostring(password)).."&".."messageid="..textutils.urlEncode(tostring(msgid)))
    if req.readAll() == '"true"' then
        return true
    else
        return false
    end
end

function ec.register(username, password, email)
    local req = http.post(blazeurls[1], "command="..textutils.urlEncode(tostring(blazecmds[3])).."&".."username="..textutils.urlEncode(tostring(username)).."&".."password="..textutils.urlEncode(tostring(password)).."&".."email="..textutils.urlEncode(tostring(email)))
    if req.readAll() == '"true"' then
        return true
    else
        return false
    end
end

function ec.wordwrap(str, limit)
  limit = limit or 72
  local here = 1
  local buf = ""
  local t = {}
  str:gsub("(%s*)()(%S+)()",
  function(sp, st, word, fi)
        if fi-here > limit then
           --# Break the line
           here = st
           table.insert(t, buf)
           buf = word
        else
           buf = buf..sp..word  --# Append
        end
  end)
  --# Tack on any leftovers
  if(buf ~= "") then
        table.insert(t, buf)
  end
  return t
end

local MOD = 2^32
local MODM = MOD-1
local function memoize(f)
  local mt = {}
  local t = setmetatable({}, mt)
  function mt:__index(k)
    local v = f(k)
    t[k] = v
    return v
  end
  return t
end
local function make_bitop_uncached(t, m)
  local function bitop(a, b)
    local res,p = 0,1
    while a ~= 0 and b ~= 0 do
      local am, bm = a % m, b % m
      res = res + t[am][bm] * p
      a = (a - am) / m
      b = (b - bm) / m
      p = p*m
    end
    res = res + (a + b) * p
    return res
  end
  return bitop
end
local function make_bitop(t)
  local op1 = make_bitop_uncached(t,2^1)
  local op2 = memoize(function(a) return memoize(function(b) return op1(a, b) end) end)
  return make_bitop_uncached(op2, 2 ^ (t.n or 1))
end
local bxor1 = make_bitop({[0] = {[0] = 0,[1] = 1}, [1] = {[0] = 1, [1] = 0}, n = 4})
local function bxor(a, b, c, ...)
  local z = nil
  if b then
    a = a % MOD
    b = b % MOD
    z = bxor1(a, b)
    if c then z = bxor(z, c, ...) end
    return z
  elseif a then return a % MOD
  else return 0 end
end
local function band(a, b, c, ...)
  local z
  if b then
    a = a % MOD
    b = b % MOD
    z = ((a + b) - bxor1(a,b)) / 2
    if c then z = bit32_band(z, c, ...) end
    return z
  elseif a then return a % MOD
  else return MODM end
end
local function bnot(x) return (-1 - x) % MOD end
local function rshift1(a, disp)
  if disp < 0 then return lshift(a,-disp) end
  return math.floor(a % 2 ^ 32 / 2 ^ disp)
end
local function rshift(x, disp)
  if disp > 31 or disp < -31 then return 0 end
  return rshift1(x % MOD, disp)
end
local function lshift(a, disp)
  if disp < 0 then return rshift(a,-disp) end
  return (a * 2 ^ disp) % 2 ^ 32
end
local function rrotate(x, disp)
    x = x % MOD
    disp = disp % 32
    local low = band(x, 2 ^ disp - 1)
    return rshift(x, disp) + lshift(low, 32 - disp)
end
local k = {
  0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5,
  0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
  0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3,
  0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
  0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc,
  0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
  0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7,
  0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
  0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13,
  0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85,
  0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3,
  0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070,
  0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5,
  0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3,
  0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208,
  0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2,
}
local function str2hexa(s)
  return (string.gsub(s, ".", function(c) return string.format("%02x", string.byte(c)) end))
end
local function num2s(l, n)
  local s = ""
  for i = 1, n do
    local rem = l % 256
    s = string.char(rem) .. s
    l = (l - rem) / 256
  end
  return s
end
local function s232num(s, i)
  local n = 0
  for i = i, i + 3 do n = n*256 + string.byte(s, i) end
  return n
end
local function preproc(msg, len)
  local extra = 64 - ((len + 9) % 64)
  len = num2s(8 * len, 8)
  msg = msg .. "\128" .. string.rep("\0", extra) .. len
  assert(#msg % 64 == 0)
  return msg
end
local function initH256(H)
  H[1] = 0x6a09e667
  H[2] = 0xbb67ae85
  H[3] = 0x3c6ef372
  H[4] = 0xa54ff53a
  H[5] = 0x510e527f
  H[6] = 0x9b05688c
  H[7] = 0x1f83d9ab
  H[8] = 0x5be0cd19
  return H
end
local function digestblock(msg, i, H)
  local w = {}
  for j = 1, 16 do w[j] = s232num(msg, i + (j - 1)*4) end
  for j = 17, 64 do
    local v = w[j - 15]
    local s0 = bxor(rrotate(v, 7), rrotate(v, 18), rshift(v, 3))
    v = w[j - 2]
    w[j] = w[j - 16] + s0 + w[j - 7] + bxor(rrotate(v, 17), rrotate(v, 19), rshift(v, 10))
  end
  local a, b, c, d, e, f, g, h = H[1], H[2], H[3], H[4], H[5], H[6], H[7], H[8]
  for i = 1, 64 do
    local s0 = bxor(rrotate(a, 2), rrotate(a, 13), rrotate(a, 22))
    local maj = bxor(band(a, b), band(a, c), band(b, c))
    local t2 = s0 + maj
    local s1 = bxor(rrotate(e, 6), rrotate(e, 11), rrotate(e, 25))
    local ch = bxor (band(e, f), band(bnot(e), g))
    local t1 = h + s1 + ch + k[i] + w[i]
    h, g, f, e, d, c, b, a = g, f, e, d + t1, c, b, a, t1 + t2
  end
  H[1] = band(H[1] + a)
  H[2] = band(H[2] + b)
  H[3] = band(H[3] + c)
  H[4] = band(H[4] + d)
  H[5] = band(H[5] + e)
  H[6] = band(H[6] + f)
  H[7] = band(H[7] + g)
  H[8] = band(H[8] + h)
end
function ec.sha256(msg)
  msg = preproc(msg, #msg)
  local H = initH256({})
  for i = 1, #msg, 64 do digestblock(msg, i, H) end
  return str2hexa(num2s(H[1], 4) .. num2s(H[2], 4) .. num2s(H[3], 4) .. num2s(H[4], 4) ..
    num2s(H[5], 4) .. num2s(H[6], 4) .. num2s(H[7], 4) .. num2s(H[8], 4))
end