利用脚本语言VBS识别加密锁具体型号
利用脚本语言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文件中，以方便更多的人更准确地了解手上的加密锁、加密狗的类型。
