软件注册机
生成的机器注册码
Dim d As Date = e.Form.Controls("EndDate").value
Dim CmpCode As WinForm.TextBox = e.Form.Controls("机器码")
Dim CalCode As WinForm.TextBox = e.Form.Controls("生成注册码")
Calcode.text = EncryptText(cmpcode.text & d,"yhkj","yhkj")
我这个是机器码+ 软件使用到期日期 加的密
在客户注册界面，客户注册成功代码
Dim CmpCode As WinForm.TextBox = e.Form.Controls("机器码")
Dim RegCode As WinForm.TextBox = e.Form.Controls("注册码")
'
'If cmpcode.text <> DecryptText(regcode.text,"yhkj","yhkj") '若注册码不正确
'msgbox("无效的注册码")
'Else
'msgbox("感谢你的注册!")
'SaveConfigValue("注册状态" & ComputerId,True) '若注册成功则保存设置,并关闭窗体
'e.Form.Close
'End If
'Dim d As Date
Dim reg As WinForm.Label = e.Form.Controls("Label3")
Dim d As String = DecryptText(regcode.text,"yhkj","yhkj")
reg.text = "你的软件使用截止日期为 " & d
我希望解密的时候把机器码 和日期 分别解密出来
注册成功后，让客户能够看到软件使用的截止日期，可现在这会不会弄了，只能做到解密把完整的注册码解密出来，请老师帮忙
加好友 
发短信
Post By：2021/11/13 20:12:00 [只看该作者]
