寻求最好的注册码生成程序（实现一台电脑一个注册码）

Question

若需要请来信，我给你源程序示例。
my email: [email protected]

Answer 1

me too!
[email protected]

Answer 2

我也想研究一下你的代码，可以吗？
[email protected]

Answer 3

我也要﹐多謝﹗﹗
[email protected]

Answer 4

我也要﹐多謝﹗﹗
[email protected]

Answer 5

我也要﹐多謝﹗﹗
[email protected] 
多謝了﹗﹗

Answer 6

不能在此粘贴源程序吗？如果不行，请寄到以下地址：[email protected]

Answer 7

我也要
email:[email protected]

Answer 8

我也要,我自己写了一个不行.能否给我一个
Email:[email protected]
谢谢

Answer 9

使用GUID可以每次都产生不同的序列号，然后用户把它发送给你。
你把这个序号进行运算以后得出一个密码返回用户即可。

Answer 10

我也要!谢谢
[email protected] 

Answer 11

如果算法不错的话，我也想要。[email protected]

Answer 12

我也想研究研究。[email protected]

Answer 13

我也项研究研究,多谢！
[email protected]

Answer 14

'新建一个模块
Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As LongPublic Function Ghn(sd As String) As Long
On Error Resume Next
Dim sn As Long
Dim res As Long
Dim t1 As String
Dim t2 As String
t1 = String$(255, Chr$(0))
t2 = String$(255, Chr$(0))
res = GetVolumeInformation(sd, t1, Len(t1), sn, 0, 0, t2, Len(t2))
Ghn = sn
End Function
'Ghn是硬盘sd的序例号
'用一定的算法 eg:
Private Sub Form_Load()
Ghn "c:\"
ZCH= Ghn*2/3.14+2323……
'ZCH就是唯一的注册码了
End Sub