- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 注册码计算问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=9949)
-- 发布时间：2011/5/16 10:43:00
-- 注册码计算问题
按帮助在命令窗口计算注册码 Output.Show(EncryptText("用户提供的机器码","abc","abc"))
与用按钮代码计算的注册码不一样,后者注册正常
Dim Val1 As String = e.Form.Controls("TextBox1").Value
If Val1>"" Then
Dim Val2 As String = EncryptText(Val1,"aaa","aaa") \'加密
e.Form.Controls("TextBox2").Value = Val2
Else
MessageBox.Show("请输入用户提供的机器码!", "提示")
End If
-- 发布时间：2011/5/16 10:51:00
--
呵呵，你的密匙都不一样，前者是两个abc，后面是两个aaa，这要是相同，就出大事了。
-- 发布时间：2011/5/16 11:13:00
--
惭愧,马虎了
-- 发布时间：2012/4/24 7:44:00
--
按楼主的方法简化了注册手续，顶一下。