VBS 16进制验证特定字符

2019-10-26 18:03:46

字体：大中小

来源：转载

供稿：网友

复制代码代码如下:

'验证字符：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.Runauto脚本病毒分析篇

下一篇：网络连接状态建立于断开的VBS脚本