软件的软加密问题

Question

现在加密狗好像失去了它的应用的效果，大量软件被解密、盗版，使真正费尽脑子搞出来的软件被别人拿走，遗憾！我想发挥大家的力量，搞出软件加密的程序。请各位各抒己见！

Answer 1

怎么样加密码才不容易被人盗?至少不那么轻易的给被走软件加密狗,不安全,容易被盗注册码方式,容易复制,有了序列号,注册码,发出来就立即可用了读CPU或硬盘的ID号,又不容易移植,一换硬盘或CPU就不能用了,换台机子就无法使用通过网络验证的话,那单机版或者没有连接互联网的时候,怎么办? 还有,服务器出现问题或验证系统出现问题,是不是导致所有的客户都不能用了?!

Answer 2

 Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvPath)))
    Select Case d.DriveType
        Case 0: t = "Unknown"
        Case 1: t = "Removable"
        Case 2: t = "Fixed"
        Case 3: t = "Network"
        Case 4: t = "CD-ROM"
        Case 5: t = "RAM Disk"
    End Select
    s = "Drive " & d.DriveLetter & ": - " & t
    s = s & vbCrLf & "SN: " & d.SerialNumber
以上是，读取硬盘序列号的VB6.0程序，哪位能给出读取CPU的VB6.0程序，谢谢！

Answer 3

看看你的也可以呀。请发到[email protected].谢谢你！！！