Lua: UUID aus SciTE Registry generieren

--[[
----------------------------------------------------------------------------------------------------
   Creating a UUID using values from the SciTE registry table
   Parts that change their value:
       W  - after Windows has been (re)started
       O  - after SciTE was (re)opened
       T  - after the number of opened tabs has changed
--------------------------------------------------------------------------------------------------]]
function GenerateSciTEUserUUID()
   local extract = function(s, count)
       return tostring(s):match('([A-F0-9]+)'):reverse():sub(1, count)
   end
   local tSciTEREG = debug.getregistry()
   local uuid =
   tostring(extract(tSciTEREG['_IO_output'], 8)) .. '-' ..                 -- [W]
   tostring(extract(tSciTEREG['SciTE_MT_Props'], 4)) .. '-' ..             -- [W, O]
   tostring(extract(tSciTEREG['SciTE_InitialPackageState'], 4)) .. '-' ..  -- [W, O, T]
   tostring(extract(tSciTEREG['LUABOX'], 4)) .. '-' ..                     -- [W, O]
   tostring(extract(tSciTEREG['SciTE_MT_Pane'], 8)) ..                     -- [W, O, T]
   tostring(extract(tSciTEREG['SciTE_BufferData_Array'], 4))
   return uuid
end -- GenerateSciTEUserUUID()

--[[
----------------------------------------------------------------------------------------------------
   Creating a UUID using values from the SciTE registry table, os.clock and os.time
   A unique value is generated for each call.
--------------------------------------------------------------------------------------------------]]
function GenerateSciTEUserUUID()
   local GetHexRev = function(_s) return tonumber('0x'..tostring(_s):match('([A-F0-9]+)'):reverse()) end
   local Dec2Hex = function(_d, _len, _raw)
       local tNumstr = {'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'}
       local sRet, rest = '', 0
       repeat
           rest = (_d % 16) +1
           sRet = tNumstr[rest]..sRet
           _d = math.floor(_d/16)
       until _d == 0
       local len, lenret = _len or 8, sRet:len()
       if lenret > len then sRet = sRet:sub(-1*len) end
       if _raw ~= nil then return ('0'):rep(len-lenret)..sRet end
       return tonumber('0x'..('0'):rep(len-lenret)..sRet)
   end
   local rTime = function()
       local s, ms = tostring(os.clock()):match('(%d+)%.(%d+)')
       local datedigits = os.date():gsub('%D','') return s*ms*datedigits
   end
   local Addend = function() return Dec2Hex(rTime()) end
   local tReg = debug.getregistry()
   local tVal = {GetHexRev(tReg['_IO_output'])+Addend(),GetHexRev(tReg['SciTE_MT_Props'])+Addend(),
                 GetHexRev(tReg['SciTE_InitialPackageState'])+Addend(),GetHexRev(tReg['LUABOX'])+Addend(),
                 GetHexRev(tReg['SciTE_MT_Pane'])+Addend(),GetHexRev(tReg['SciTE_BufferData_Array'])+Addend()}
   local uuid =
   tostring(Dec2Hex(tVal[1],8,1))..'-'..
   tostring(Dec2Hex(tVal[2],4,1))..'-'..
   tostring(Dec2Hex(tVal[3],4,1))..'-'..
   tostring(Dec2Hex(tVal[4],4,1))..'-'..
   tostring(Dec2Hex(tVal[5],8,1))..tostring(Dec2Hex(tVal[6],4,1))
   return uuid
end -- GenerateSciTEUserUUID()