如何用delphi生成序列号(200分)

TAXI · 2002-01-12

如何用delphi生成序列号。要求与用户名，计算机无关。
可生成许多序列号，各个不同，但在我的程序中都能用。
谢谢各位大虾了先！[

]

jrq · 2002-01-12

liu_liu · 2002-01-12

1.按照你提出的要求:有点困难，主要是还没有思路，
2.你提这个问题的原因是不是:想让你软件需要注册

snjat · 2002-01-12

用硬盘号

tseug · 2002-01-12

用CreateGUID 和 GUIDToString 得到一个随机字符串，然后用你的加密算法
和一个特定的密钥加密，把密文附在明文后面合并结果作为序列号，这样你
校验序列号是否有效只要比较前一部分加密后是否和后面的一样就可以了。

coolbaby · 2002-01-12

我知道，
很简单方便的方法
用wise做安装程序

htw · 2002-01-13

Jhdandcl · 2002-01-13

tseug 的方法可行.

没理头号 · 2002-01-13

我倒是有个控件！
你要吗？

only Delphi · 2002-01-13

没理头号我想要这个加密控件。
给我网址。或给我发txjjin@notmail.com

liuguan · 2002-01-13

用Com 的ID

TAXI · 2002-01-16

to 没理头号,
不知你的控件有源码吗？给我 mail 一个吧！
coolwudi@sina.com
谢谢了！

阿拉宁波人 · 2002-01-16

用wise作安装程序中有一项生成注册码为功能,同意coolbaby所说!

TAXI · 2002-01-19

>>用CreateGUID 和 GUIDToString 得到一个随机字符串，然后用你的加密算法
>>和一个特定的密钥加密，把密文附在明文后面合并结果作为序列号，这样你
>>校验序列号是否有效只要比较前一部分加密后是否和后面的一样就可以了。
可否写几行代吗？谢谢！

TAXI · 2002-01-22

Tseug的方法我试了!
不错不错!谢谢你了!现在就给你加分![

]