复制代码 代码如下:
'验证字符：fastslz
file=Wscript.ScriptFullName
Dim slz
set slz = CreateObject("Adodb.Stream")
slz.Type = 1
slz.Mode = 3
slz.Open
slz.Position = 0
slz.Loadfromfile file
Bin=slz.read(18)
if AscB(MidB(Bin,12,1))=H66 and AscB(MidB(Bin,13,1))=H61 and AscB(MidB(Bin,14,1))=H73 and AscB(MidB(Bin,15,1))=H74 and AscB(MidB(Bin,16,1))=H73 and AscB(MidB(Bin,17,1))=H6C and AscB(MidB(Bin,18,1))=H7A Then
WScript.echo "通过验证"
else
WScript.echo "非法修改"
end if
您可能感兴趣的文章:- C# VB 实现10进制 16进制之间互相转换
- JavaScript中的16进制字符(改进)
- JavaScript中的16进制字符介绍
- php中将图片gif,jpg或mysql longblob或blob字段值转换成16进制字符串
- vbs sendKeys 16进制的结合使用(打开IE，静音，打开播放器等)
- asp.net(c#)下各种进制间的轻松转换(2进制、8进制、10进制、16进制)
- vbscript语句中“H”专用于16进制数表示
- exe转换16进制的html保存的hta实现代码
- C# 16进制与字符串、字节数组之间的转换
- 文本和16进制UltraEdit-32 v13.20+3 官方简体中文版+破解补丁 提供下载
- 16进制的转换之javascript运行时会自动转码
- c#实现16进制和字符串之间转换的代码
- 16进制显示字节流技巧分享
