最近公司想做一种像360卫士那样，点击获取激活码，网站即给出随机一段激活码，让客户激活其产品。可我没做过不会做，给个思路吧，或者懂得说一下。。先谢过了。。

激活码是通过一定算法得到的

如果只是一个随机的字符串那简单啊

取得随机字符，参数PasswordLen是字符长度
Function GetRndPassword(PasswordLen)
Dim Ran, i, strPassword
strPassword = ""
For i = 1 To PasswordLen
Randomize
Ran = CInt(Rnd * 2)
Randomize
If Ran = 0 Then
Ran = CInt(Rnd * 25) + 97
strPassword = strPassword & UCase(Chr(Ran))
ElseIf Ran = 1 Then
Ran = CInt(Rnd * 9)
strPassword = strPassword & Ran
ElseIf Ran = 2 Then
Ran = CInt(Rnd * 25) + 97
strPassword = strPassword & Chr(Ran)
End If
Next
GetRndPassword = strPassword
End Function

随机产生激活码后在页面显示的同时也将该激活码录入网站数据库

软件在激活码该产品的时候会自动将你电脑的相关信息和激活码传递到网站某接收文件

这个接收文件会通过你的激活码查询数据库相同的激活码，查询到后将你电脑相关信息录入该激活码其他字段中

每次运行该软件会自动将以上传送的信息再次向网站提交查询，进行判断该激活码是否已经激活，如果已经激活，那该软件可以继续使用，如果还没激活，软件会提示你赶快激活，软件使用期限也是这样限制的

是这样的，SD卡中装有GPS软件，当他把sd卡联上电脑并打开我的网站点击获取激活码时，网站会发送给她一段可以解密GPS的激活码，并计入数据库，这个点击出现激活码的代码就是2楼说的那样的么〉？

这个功能比较麻烦，首先GPS软件->网站的激活码算法应该是一样的，这里得为激活码研制算法。

谢谢了，我再想想。。