如何生成认证码？ ( 积分: 100 )

如何生成像&nbsp;卡巴&nbsp;一样的认证码？？？？<br><br>代码最好<br>说下道理也行

简单，先选定一个硬件的序列号，如硬盘，CPU，网卡，BIOS等的唯一号就行。<br>然后做个MD5，这样输出的认证码就好看了。<br>然后就完事了。<br>不知道会不会有分拿呢？嗯，希望楼主RP好。

卡巴可以把认证序列号发到服务器上验证。。。<br><br>请问“小笨象”你说的方法能够作到吗？&nbsp;&nbsp;如何做到？

就是根据自己机器的某个硬件的ID通过一些列的算法计算出来的。算法你随意，越复杂越好

unit&nbsp;Unit1;<br><br>interface<br><br>uses<br>&nbsp;&nbsp;windows,&nbsp;messages,&nbsp;sysutils,&nbsp;variants,&nbsp;classes,&nbsp;graphics,&nbsp;controls,&nbsp;forms,<br>&nbsp;&nbsp;dialogs,&nbsp;activex,&nbsp;stdctrls;<br><br>type<br>&nbsp;&nbsp;TForm1&nbsp;=&nbsp;class(TForm)<br>&nbsp;&nbsp;&nbsp;&nbsp;Button1:&nbsp;TButton;<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;Button1Click(Sender:&nbsp;TObject);<br>&nbsp;&nbsp;private<br>&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;Private&nbsp;declarations&nbsp;}<br>&nbsp;&nbsp;public<br>&nbsp;&nbsp;&nbsp;&nbsp;{&nbsp;Public&nbsp;declarations&nbsp;}<br>&nbsp;&nbsp;end;<br><br>var<br>&nbsp;&nbsp;Form1:&nbsp;TForm1;<br><br>implementation<br><br>{$R&nbsp;*.dfm}<br><br>procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;I&nbsp;&nbsp;&nbsp;:&nbsp;Integer;<br>&nbsp;&nbsp;sGUID&nbsp;&nbsp;:&nbsp;string;<br>&nbsp;&nbsp;TmpGUID:&nbsp;TGUID;<br>begin<br>&nbsp;&nbsp;for&nbsp;I&nbsp;:=&nbsp;0&nbsp;to&nbsp;10&nbsp;do<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;CoCreateGUID(TmpGUID)&nbsp;=&nbsp;S_OK&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sGUID&nbsp;:=&nbsp;GUIDToString(TmpGUID)<br>&nbsp;&nbsp;&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowMessage('Create&nbsp;GUID&nbsp;error!');<br>&nbsp;&nbsp;&nbsp;&nbsp;ShowMessage(sGUID);<br>&nbsp;&nbsp;end;<br>end;<br><br>end.

那有什么不可以的？<br>只要把生成的认证码发送到服务器上，让服务器判断就行了。<br>服务器可以是网站，也可以是一个EXE的服务器。<br>完全可以实现。只要你有公网的服务器就行了。