利用脚本语言VBS识别加密锁具体型号
VBS(VBScript)是基于Visual Basic的脚本语言,直接由宿主(host)解释源代码并执行,不需要编译成.exe。所以不用担心被人植入木马,还可以直接用记事本修改源码,保存执行就行。

程序功能:识别加密锁的具体型号,使用者自己可以添加、修改加密锁型号识别标志(PID,VID),程序用简单易学的vbs编写,方便大家完美程序代码,完善程序功能。

查看设备PID,VID的方法:
桌面-我的电脑-右键-属性-硬件-设备管理器-人体学输入设备-选择一个HID-compliant device-右键属性-详细信息,如下图:

图中VID_3689&PID_8762就是域天加密锁简单型的厂商标识和产品标识
编辑识别加密锁的XML文件
用记事本打开data.xml,修改或者添加加密锁的标识,如域天加密简单型的(yt88,密码型,等)
Data.xml的例子文件如下:
<?xml version="1.0" encoding="utf-8"?>
<XMLobject>
  <page>
    <!加密锁的vid -->
    <hid><![CDATA[VID_3689&PID_8762]]></hid>
    <!加密锁的型号 -->
    <type>域之天密码型加密锁</type>
    <!-- 相关链接 -->
    <url>www.money988.com</url>
    <fuck>硬件复制,软件模拟</fuck>
  </page>
  <page>
    <!-- 狗的vid -->
    <hid><![CDATA[VID_0925&PID_6B05]]></hid>
    <!-- 狗的型号 -->
    <type>世纪龙脉x2加密锁</type>
    <!-- 相关链接 -->
    <url>site_configuration/intro.xml</url>
    <fuck>硬件复制,软件模拟</fuck>
  </page>

</XMLobject>

VBS加密锁类型查询程序源码
On Error Resume Next
Dim n,h,s
Dim xmlDoc,xmlRoot,xmlNode,lastNode,newNode 
Dim doc,docRoot,i,flag 
Dim strNodeName,strPath,docPath

Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("123.txt")
strComputer = "."
'f1.write (strComputer)
If Err.Description = "" Then

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colDevices = objWMIService.ExecQuery _
    ("Select * From Win32_USBControllerDevice")

For Each objDevice in colDevices
  n = InStr(1,objDevice.Dependent,"HID\\VID_")
  If n>0 Then
    h = mid(objDevice.Dependent,n+5,17)
    GetkeyInfo(h)
  End if
Next

Public Function GetKeyInfo(s)
Set xmlDoc = CreateObject("Microsoft.XMLDOM") 
xmlDoc.async = False  
xmlDoc.load "data.xml"
If xmlDoc.parseError.errorCode <> 0 Then 
  Wscript.Echo "错误:" & Chr(13) & xmlDoc.parseError.reason 
End If
Set objNodeList = xmlDoc.getElementsByTagName("page")
i = 0 
Do While i < objNodeList.length
  h = objNodeList(i).selectSingleNode("hid").Text 
  If h = s Then 
  s="硬件ID:" & s & Chr(13) & "加密锁类型:" & objNodeList(i).selectSingleNode("type").Text  & Chr(13) & "厂商网站:" & objNodeList(i).selectSingleNode("url").Text  & Chr(13) & "备份方案:" & objNodeList(i).selectSingleNode("fuck").Text
  f1.write (s)    
  f1.write chr(13) & "#############################################################" & Chr(13)
  Exit Do 
    Else 
  's = "未知设备:" & s & Chr(13)
  'f1.write (s)
  i = i + 1 
  End If 
loop 
End Function

End if

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
说明:把data.xml同vbs文件放在同一文件夹下,运行vbs文件,查询结果会保存到123.txt中。代码写的很简陋,希望有兴趣的,或者闲得无聊的帮忙跟贴修改完善代码及功能,欢迎把你知道的加密锁的pid,vid补充到xml文件中,以方便更多的人更准确地了解手上的加密锁、加密狗的类型。

上传的附件 查狗工具.rar