神烦论坛

 找回密码
 立即注册
查看: 1209|回复: 4

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

[复制链接]

1

主题

10

帖子

43

积分

一级圣斗士

Rank: 1

积分
43
发表于 2017-5-29 17:45:50 | 显示全部楼层 |阅读模式
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


回复

使用道具 举报

1

主题

10

帖子

43

积分

一级圣斗士

Rank: 1

积分
43
 楼主| 发表于 2017-5-29 17:46:21 | 显示全部楼层
体验云源码
回复 支持 反对

使用道具 举报

1

主题

10

帖子

43

积分

一级圣斗士

Rank: 1

积分
43
 楼主| 发表于 2017-5-29 17:46:52 | 显示全部楼层
// 程序入口功能
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
回复 支持 反对

使用道具 举报

1

主题

10

帖子

43

积分

一级圣斗士

Rank: 1

积分
43
 楼主| 发表于 2017-5-29 17:49:35 | 显示全部楼层
缺点 是需要自己手动建立文件夹和文本文件
加入通用注册码
加入万一白宝云服务器出问题 加入了一天的通用注册码

回复 支持 反对

使用道具 举报

231

主题

381

帖子

2145

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2145
发表于 2017-5-31 11:48:40 | 显示全部楼层
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

技术支持
关闭
售后
在线客服
QQ群:309604797
在线客服

小黑屋|神烦论坛 ( 苏ICP备18043773号 )

GMT+8, 2019-12-15 21:46

Powered by bby! X3.4

© 2015-2019 baibaoyun

快速回复 返回顶部 返回列表