简单的体验云写注册码系统缺点 大神勿喷

哈卡农

Import "ShanHai.lua"
dim c= ReadUIConfig("srk_zcm", "")
Dim b=5
Dim MyValue

Call 验证码初始化()
Do

Call 注册码()
Loop




Sub 验证码初始化()
If c = "qq10624639" Then
    Delay 100
   
    Exit Sub
End If
For 5
    For 2
url.get("http://get.91shenfan.com/api/"qq10624639"960af95e2e3a8d7b?a=1&b=3&c="&c)
Delay 3000
    Next
Randomize  
MyValue = Int(((99999999-10000000+1) * Rnd()) + 1)   

MyValue = MyValue & "wo"
Traceprint MyValue
url.get("http://get.91shenfan.com/api/"qq10624639"960af95e2e3a8d7b?a="&MyValue&"&b=2&c="&c)   
dim 返回数据=url.get("http://get.91shenfan.com/api/"qq10624639"960af95e2e3a8d7b?a="&MyValue&"&b=1&c="&c)   
TracePrint 返回数据



     If 返回数据 = MyValue Then
         TracePrint "初始化成功"
         Delay 100
         Exit For
         Else
         Delay 5000
     End If
Next   
End Sub
Sub 注册码()
If c = "qq10624639" Then
    Delay 100
    Exit Sub
End If
Dim 日期=Date()
TracePrint 日期  

Dim Base64解密=ShanHai.Base64De(c)
TracePrint Base64解密
If Base64解密 = Date() Then
    Delay 100
    TracePrint "AAA"
    Exit Sub
   
End If
Dim 验证次数=0
For 6


   
        Dim 字节数=url.get("http://get.91shenfan.com/api/"qq10624639"960af95e2e3a8d7b?a=1&b=1&c="&c)
        TracePrint 字节数
   
Delay 5000
If 字节数 = MyValue Then
    Delay 100
    TracePrint "验证码正确"
    Delay 100
    Exit Sub
    Else
    验证次数=验证次数+1
End If
Next
    If 验证次数 > 3 Then
    For 2
        ShowMessage "验证码不正确或者网站不通或者你共用验证码"
        Delay 2000
        
        Next
        EndScript

    End If
End Sub

哈卡农

体验云源码

哈卡农

// 程序入口功能
function _initial()
        sendtextmsg("初始化接口")
end
// 按下主按钮触发的功能方法
function _mainbutton()
        sendtextmsg("你好mainbutton")
end
function test()
        var isok = filedeleteline("123.txt", 5)
        sendtextmsg(isok)
end


function _get(token, arg, ip)


        var arr = stringtoarray(arg)





        if(arr["b"] == "1")
                var 是否成功 = filereadlineex(arr["c"]&".txt", 1)
                if(是否成功 == "")
                else
                        var 是1 = fileinsertline("100.txt", 是否成功&"\n", 1)
                end
                return (是否成功)
        elseif(arr["b"] == "2")
                var 是否成功 = fileinsertline(arr["c"]&".txt", arr["a"]&"\n", 1)



                sendtextmsg(是否成功)
                return (是否成功)
        elseif(arr["b"] == "3")

                var 是否成功 = filedeleteline(arr["c"]&".txt", 1)

                return (是否成功)
        elseif(arr["b"] == "4")//删除
                var 是否成功 = filereadlineex(arr["c"]&".txt", 1)
                if(是否成功 == "")
                else
                        var 是1 = fileinsertline("100.txt", 是否成功&"\n", 1)
                end

                var 是否成功1 = filedeleteline(arr["c"]&".txt", 1)
                return (是否成功)
        elseif(arr["b"] == "5")
var 注册_行数=文件长度(arr["c"]&".txt")

    return (注册_行数)
        end

end

哈卡农

缺点 是需要自己手动建立文件夹和文本文件
加入通用注册码
加入万一白宝云服务器出问题 加入了一天的通用注册码

百宝云管理员