TC专用注册码防破@解之开放式通信防破@解必看】 - TC官方合作论坛

//此功能为高级功能,需要懂得百宝云语法基础
//此功能为高级功能,需要懂得百宝云语法基础
//此文件为用户扩展自定义接口,修改源码必须要重启云应用,否则本文件中的代码不会重新生效
//此文件为用户扩展自定义接口,修改源码必须要重启云应用,否则本文件中的代码不会重新生效
//请注意,一定要语法正确,语法不正确云应用无法正常启动
//请注意,一定要语法正确,语法不正确云应用无法正常启动
//请注意,一定要语法正确,语法不正确云应用无法正常启动
//请注意,一定要语法正确,语法不正确云应用无法正常启动
//参数说明:
//arg _commoninterface事件,_get事件,_post事件对应的 arg参数值
// arg内容格式必须为json格式或者百宝云数组格式
// 数据格式举例说明:
// json格式: {"flag":"abc","data":"456"}
// 百宝云数组格式: array("flag"="abc","data":"456")
function custom_interface(arg)
//自定义代码处
//-----------演示代码-----------
变量 paramArr = 字符串转数组(arg)
如果(!是否数组(paramArr))
paramArr = json转数组(arg)
如果(!是否数组(paramArr))
返回 "错误的参数列表"
结束
结束
select(paramArr["flag"])
case "动态安全策略"
var 注册码 = paramArr["注册码"]
var 项目名称 = paramArr["项目名称"]
var key = paramArr["key"]
var ret = ""
if(!exec(strformat("SELECT * FROM 项目键值管理表 where 项目名称='%s' and 键 = '%s'", 项目名称,key), ret))
return "操作失败:查询项目信息失败"//生成出错
end
return 云端加密(ret[0]["值"],paramArr["data"],矩阵)
end
//-----------演示代码-----------
return "未知请求"
end
var 矩阵 = array(array("L", "3", "P", "g", ";", "<", "a", "L", "K", "5"), array("Z", "6", "s", "p", "=", "0", "_", "u", "G", "G"), array("F", "A", "I", "K", "C", "y", "e", "7", "=", "0"), array("1", "7", "H", "@", "c", "F", "E", "`", "d", "8"), array("s", "i", "D", "5", "Y", "^", "@", "s", "F", "r"), array("M", "]", "p", "z", "e", "U", "u", "_", "5", "["), array("_", "b", "@", "l", "V", "t", "^", "H", "0", "e"), array("0", "e", "5", "1", "5", "d", "O", "g", "N", "R"), array("Y", "g", "Z", "G", "J", "s", ">", "W", "<", "a"), array("f", "J", "s", "r", "X", "f", "p", "M", "3", ">"))
function 云端加密(数据, 密钥, 矩阵1)
var 密钥1 = ""
var key1 = ""
for(var i = 0;i < 8;i = i + 2)
var a = strsub(密钥, i, i + 1)
var b = strsub(密钥, i + 1, i + 2)
filelog(strformat("密钥[%s][%s] = %s", a, b, 矩阵1[a][b]))
key1 = key1&矩阵1[a][b]
end
var 标识 = strsub(密钥, strlen(密钥) - 4, strlen(密钥))
select(标识)
case 1561
return aesencrypt(数据, key1)
case 2802
return desencrypt(数据, key1)
case 7463
return teaencrypt(数据, key1)
case 1684
return rc2encrypt(数据, key1)
case 5525
return rc5encrypt(数据, key1)
case 6436
return rc6encrypt(数据, key1)
default
return 数据
end
end
//执行sql语句,并返回结果
//如果 db_name 为空表示使用全局数据名称
function exec(sql, &out_arr = "", db_name = "5112_regCodeV2")
var ret_arr
if(!mysqlsqlarray(db_name, sql, ret_arr))
var error = getlasterror(1)
数据库错误日志(sql&"\n错误信息:"&error)
return false
end
out_arr = ret_arr
return true
end
function 数据库错误日志(str)
filelog(timenow()&" "&str, "数据库错误日志")
end

复制代码

功能自定义功能示例_初始化()
//这里添加你要执行的代码
DLL初始化()
注册码初始化("5f3412f705f91cebaac1c8a95a7cf64d", "测试项目")
结束

复制代码

功能按钮3_点击()
//这里添加你要执行的代码
var 云端返回, 密钥
自定义加密("key1", 云端返回, 密钥)
traceprint("密钥: " & 密钥)
var ret = 自定义解密(云端返回, 密钥)
traceprint(ret)
结束

复制代码

var 矩阵 = array(array("L", "3", "P", "g", ";", "<", "a", "L", "K", "5"), array("Z", "6", "s", "p", "=", "0", "_", "u", "G", "G"), array("F", "A", "I", "K", "C", "y", "e", "7", "=", "0"), array("1", "7", "H", "@", "c", "F", "E", "`", "d", "8"), array("s", "i", "D", "5", "Y", "^", "@", "s", "F", "r"), array("M", "]", "p", "z", "e", "U", "u", "_", "5", "["), array("_", "b", "@", "l", "V", "t", "^", "H", "0", "e"), array("0", "e", "5", "1", "5", "d", "O", "g", "N", "R"), array("Y", "g", "Z", "G", "J", "s", ">", "W", "<", "a"), array("f", "J", "s", "r", "X", "f", "p", "M", "3", ">"))
var Rnd = array(1561, 2802, 7463, 1684, 5525, 6436)
function 自定义加密(key, &result, &data1)
var arg = array()
arg["flag"] = "动态安全策略"
arg["注册码"] = 全局_注册码
arg["项目名称"] = 全局_项目名称
arg["key"] = key
var data = ""
for(var i = 0; i < 8; i++)
data = data & rnd(0, 9)
end
data = data & Rnd[rnd(0, 5)]
data1 = data
arg["data"] = data
var ret_buff = MyCommoninterface(arg)
result = ret_buff
traceprint(result)
end
function 自定义解密(数据, 密钥)
var 密钥1 = ""
var key1 = ""
for(var i = 0; i < 8; i = i + 2)
var a = strsub(密钥, i, i + 1)
var b = strsub(密钥, i + 1, i + 2)
traceprint(strformat("密钥[%s][%s] = %s", a, b, 矩阵[a][b]))
key1 = key1 & 矩阵[a][b]
end
var 标识 = strsub(密钥, strlen(密钥) - 4, strlen(密钥))
select(标识)
case 1561
return Aes解密(数据, key1)
case 2802
return Des解密(数据, key1)
case 7463
return Tea解密(数据, key1)
case 1684
return Rc2解密(数据, key1)
case 5525
return Rc5解密(数据, key1)
case 6436
return Rc6解密(数据, key1)
default
return 数据
end
end

复制代码