lua檔案

  gg.setVisible(false)    do  gg.toast("當前環境檢測中！")  A=os.time()  gg.sleep(1000)      B=os.time()  C=B-A  if C == 1 then  gg.toast("當前使用環境正常！")  else  os.exit(gg.alert("檢測到當前環境存在破解行為！"))  while  C ~= 1 do  print("使用環境異常！")  end  end  end  function jie64(jiemib64)    local b64chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/
 
'    local temp={}    for i=1,64 do        temp[string.sub(b64chars,i,i)] = i    end    temp['=']=0    local str=''    for i=1,#jiemib64,4 do        if i>#jiemib64 then            break        end        local data = 0        local str_count=0        for j=0,3 do            local str1=string.sub(jiemib64,i+j,i+j)            if
 
 not temp[str1] then                return            end            if temp[str1] < 1 then                data = data * 64            else                data = data * 64 + temp[str1]-1                str_count = str_count + 1            end        end        for j=16,0,-8 do            if str_count > 0
 
 then                str=str..string.char(math.floor(data/math.pow(2,j)))             data=math.fmod(data,math.pow(2,j))                str_count = str_count - 1            end        end    end    local last = tonumber(string.byte(str, string.len(str), string.len(str)))    if last == 0 then        str = string.sub(str, 1, string.len(str) - 1)    end    return str end     function jia64(jiamib64)    local b64chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'    local s64 = ''    local str = jiamib64    while #str > 0 do        local bytes_num = 0        local buf = 0         for byte_cnt=1,3 do            buf = (buf * 256)            if #str > 0 then                buf = buf + string.byte(str, 1, 1)                str = string.sub(str, 2)                bytes_num = bytes_num + 1            end        end         for group_cnt=1,(bytes_num+1) do            local b64char = math.fmod(math.floor(buf/262144), 64) + 1            s64 = s64 .. string.sub(b64chars, b64char, b64char)            buf = buf * 64        end         for fill_cnt=1,(3-bytes_num) do            s64 = s64 .. '='        end    end    return s64 end        function pdlx(n)     if type(n)=="number" then        return "yes"    else        return    "no"    end end     function jia4(HcX)      HcX=""..string.lower(HcX)      shuzu={}    for i=1,string.len(HcX) do    shuzu[i]=string.sub(HcX,i,i)    end   HcXjm={}   for k,v in ipairs(shuzu) do       if v == "1" then       HcXjm[k]="