TC官方合作论坛

标题: 照视频教注册大漠插件，费法注册帮忙看看 [打印本页]

作者: peach1024 时间: 2015-10-29 23:59
标题: 照视频教注册大漠插件，费法注册帮忙看看
功能注册大漠()

变量当前版本 = "3.1233",加密注册码,解密注册码,密钥="afdfgerdf1248789894"
辅助.注册插件(辅助.获取资源路径("rc:dm.dll"),真)
dm = com("dm.dmsoft")

大漠版本 = dm.Ver()

//-----------------------------------------检查是否注册成功

如果( 大漠版本 == 当前版本 )

      调试输出("注册大漠收费成功")

      加密注册码 = bbc1.注册码加密()
      解密注册码 = 字符串.aes解密(加密注册码,密钥)
      dm=dm.Reg(解密注册码,"0001")
      如果(dm==1)
         调试输出("注册大漠收费成功")

      否则
         调试输出("注册大漠收费失败")
      如果结束
否则
      辅助.消息框("插件注册失败")
      辅助.退出()
如果结束

功能结束

//------------------------------------------注册码加密
功能注册码加密()

变量加密字串,源数据="3.1233",密钥="afdfgerdf1248789894"

加密字串 = 字符串.aes加密(源数据,密钥)
返回加密字串
功能结束
空间结束

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)