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

[hotshow]

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

[flyflyfly_woo]

我也要,谢谢了

[china_dg_benny]

我也要﹐多謝﹗﹗
[e-mail]

[china_dg_benny]

我也要﹐多謝﹗﹗
[e-mail]

[softhu]

我也要﹐多謝﹗﹗
[e-mail]
多謝了﹗﹗

[hotshow]

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

[xiaojun2000]

我也要
email:[e-mail]

[dapha]

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

[iwin]

me too!
[e-mail]

[noall]

如果算法不错的话，我也想要。[e-mail]

[寒星]

我也想看看。[e-mail]

[UserReg]

直接用GENGUID.exe不行吗？

[aishuishui]

我也要看看。[e-mail]

[bucher]

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

[limengchen]

我也想研究研究。[e-mail]

[fangchun]

我也要!谢谢
[e-mail]

[franksun]

我也项研究研究,多谢！
[e-mail]

[xhfjy]

我也想要。[e-mail]

[wjq]

'新建一个模块
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 Long

Public 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

[timeman]

me too [e-mail]

[jwing]

我也要.
[e-mail]