复制代码 代码如下:
'验证字符：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进制显示字节流技巧分享
本文由 华域联盟 原创撰写：华域联盟 » VBS 16进制验证特定字符
转载请保留出处和原文链接：https://www.cnhackhy.com/16046.htm
