vb6.0想做个利用硬盘序列号实现软件注册的程序

现在就是想解决如何把获得的序列号如：2B1100EA 进行加解密运算。加密运算后的号码为数字或者是数字加字母。简单一点的就可以。思路已经有了，就想各位给个好的运算方法。

给你个思路吧，你可以将这个用MD5加密，然后提前MD5特定位置的拼凑成注册码，第一这样可以保证只有你知道算法，第二因为MD5的不可逆，保证了安全性，你也可以加入其他的算法，来配合这个

我用16进制显示，有个性 private declare function 获得硬盘序列号 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 private sub form_load() on error goto err_form_load dim aa, 硬盘序列号, maxlen, sysflag as long: dim volname, fsysname as string aa = 获得硬盘序列号("c:\\", volname, 256, 硬盘序列号, maxlen, sysflag, fsysname, 256) form1.caption = "c硬盘序列号(16制): " & hex(硬盘序列号) exit sub err_form_load: end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息