How does VBS implement hexadecimal verification of specific characters

This article mainly introduces VBS how to achieve hexadecimal verification of specific characters, has a certain reference value, interested friends can refer to, I hope you can learn a lot after reading this article, the following let Xiaobian take you to understand.

The code is as follows:

'validate character: 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 "authenticated"

Else

WScript.echo "illegal modification"

End if

Thank you for reading this article carefully. I hope the article "how to achieve hexadecimal verification of specific characters in VBS" shared by the editor will be helpful to you. At the same time, I also hope that you will support and pay attention to the industry information channel. More related knowledge is waiting for you to learn!