【安全加密】活动资格码：限量活动的资格码防伪

-- 资格码：编码生成
local player = class(actor)
local CHARS = "ABCDEFGHJKLMNPQRSTUVWXYZ23456789"
local function genCode(player)
    local random_part = ""
    for i = 1, 8 do
        local idx = math.random(1, #CHARS)
        random_part = random_part .. string.sub(CHARS, idx, idx)
    end
    local sum = 0
    for i = 1, #random_part do
        sum = sum + string.byte(random_part, i) * i
    end
    local check = string.sub(CHARS, sum % #CHARS + 1, sum % #CHARS + 1)
    local code = random_part .. check
    setplayvar(player, "HUMAN", "QualCode", code, true)
    sendmsg(player, 1, 0, "您的资格码：" .. code)
end

-- 资格码使用：三重校验
local player = class(actor)
local function useCode(player, inputCode)
    local own = getplayvar(player, "HUMAN", "QualCode") or ""
    if inputCode ~= own then
        sendmsg(player, 1, 0, "资格码无效。")
        setsysvarex("CodeFailLog", os.date("%Y%m%d%H") .. "|" ..
            getbaseinfo(player, 3), true)
        return false
    end
    if getplayvar(player, "HUMAN", "QualUsed") == 1 then
        sendmsg(player, 1, 0, "该资格码已使用。")
        return false
    end
    setplayvar(player, "HUMAN", "QualUsed", 1, true)
    giveitem(player, "限量活动入场券", 1)
    sendmsg(player, 1, 0, "验证通过，入场券已发放。")
    return true
end