按键精灵给APP加注册码授权码例程源码

— 验证授权解析:

获取手机设备唯一特征码,然后使用MD5加密手机特征码

启动脚本之后获取服务器文件(czm.html 检查文件内容),然后手机设备特征码对服务器特征码是否存在,

如果 存在:验证成功 

如果 不存在:验证失败

—服务器文件特征码写入样式:

格式.png

效果图:

设备.png

源码:

Dim 设备编号,加密设备编号,服务器注册码,验证是否注册 //b06b96879aed91c4570be8c56a4fa6bd
 
设备编号 = GetDeviceID()
 
TracePrint "当前设备唯一编号:" & 设备编号
 
加密设备编号 = Encode.Md5(设备编号)
 
TracePrint 加密设备编号
 
//InputText 加密设备编号 
 
服务器注册码 = url.get("http://www.***.com/zcm.html")
 
TracePrint "服务器注册码:", 服务器注册码
  
TracePrint UTF8.Len(加密设备编号)
   
验证是否注册 = UTF8.InStr(1, 服务器注册码, 加密设备编号)
 
 
TracePrint 验证是否注册
 
If 验证是否注册 >= 1 Then 
     
    Dialog.MsgBox "您的设备已注册,欢迎使用!" , 0
     
Else
     
    Sys.SetClipText "注册码:"&加密设备编号
 
    Dialog.MsgBox "您的设备未注册,请联系客服QQ:******* 注册!" & Chr(10) & Chr(10) & "您的注册码:" & 加密设备编号&"(已复制)", 0
     
    EndScript
End If


按键精灵给APP加注册码授权码例程源码》有0个想法

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注