看到别人的软件带个加密狗，请问要是我也写个软件，怎么做那个加密狗？？？大概要多少成本？
请教！！！ 问题点数：0、回复次数：9Top
1 楼yangkezhu（阳克）回复于 2004-12-03 08:12:31 得分 0
加密狗一般是一种串口硬件加密技术,在计算机的串口上有一个硬件也就是加密狗,然后你在里面写上东西,然后在你的程序中写上代码,每次启动的时候都去读串口的数据,如果数据与你设定的不一致,程序就不启动.这就是加密狗.加密狗有几种价格也不一样,便宜的可能就是几十块钱吧Top
2 楼dufeiyan9170（阿飞）回复于 2004-12-03 08:16:25 得分 0
upTop
3 楼david99（david）回复于 2004-12-06 12:27:18 得分 0
现在国内很少有人能从狗里破解（当然不包括某些公司用软唯一ID）！大部分都是从软件下手的！这个基本上站站98％，所以关键是看你公司的内部程序员加密做的如何了！
如果你要求加密强度大，可以要求一些小的软件狗公司给你ODM特别的加密算法和外面的狗不同（估计要有一定的数量要求），像深圳www.schip.com.cn，好像以前还有免费样品，价格才20元，还是USB接口，不妨试一试！Top
4 楼v2boy（大格）回复于 2005-08-02 13:51:27 得分 0
Private Declare Function GetVolumeInformation Lib "kernel32.dll" 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 Command1_Click()
Dim sn As Long '声明变量sn，用于存放软盘序列号
Dim disk1 As String, disk2 As String '声明变量disk1和disk2
disk1 = String(255, Chr(0)) '初始化变量disk1
disk2 = String(255, Chr(0)) '初始化变量disk2
sn = GetVolumeInformation("a:\", disk1, Len(disk1), lSerialNum, 0, 0, disk2, Len(disk2)) '开始读取软盘序列号
Text1.Text = CStr(lSerialNum) '在Text1中显示软盘序列号
If Text1 = 0 Then '判断软驱是否有软盘
Label1.Caption = "请插入正版软盘！"
Else
If Text1.Text <> Text2.Text Then '判读软盘序列号是否合法
MsgBox ("软盘错误，请插入正版软盘！")
Else
Label1.Caption = "软盘正确！可以登录！"
End If
End If
End SubTop
5 楼v2boy（大格）回复于 2005-08-02 13:52:05 得分 0
Private Declare Function GetVolumeInformation Lib "kernel32.dll" 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 Command1_Click()
Dim sn As Long '声明变量sn，用于存放软盘序列号
Dim disk1 As String, disk2 As String '声明变量disk1和disk2
disk1 = String(255, Chr(0)) '初始化变量disk1
disk2 = String(255, Chr(0)) '初始化变量disk2
sn = GetVolumeInformation("a:\", disk1, Len(disk1), lSerialNum, 0, 0, disk2, Len(disk2)) '开始读取软盘序列号
Text1.Text = CStr(lSerialNum) '在Text1中显示软盘序列号
If Text1 = 0 Then '判断软驱是否有软盘
Label1.Caption = "请插入正版软盘！"
Else
If Text1.Text <> Text2.Text Then '判读软盘序列号是否合法
MsgBox ("软盘错误，请插入正版软盘！")
Else
Label1.Caption = "软盘正确！可以登录！"
End If
End If
End SubTop
6 楼crycoming（瞎编）回复于 2005-08-02 14:03:26 得分 0
根据加密效果的不同40~400都有Top
7 楼tb01412（tb）回复于 2005-08-02 14:37:28 得分 0
关键是加密算法，AUTOCAD软件使用加密狗，但其盗版到处都是Top
8 楼sdrcxzy（大向）回复于 2005-08-02 14:47:10 得分 0
对阿，我也见过有人破解过。但是现在好像都是用它的。Top
9 楼Blue_remember（(顽石)）回复于 2005-08-02 15:48:22 得分 0
我们现在用的，30块一个Top
