復制代碼 代碼如下:
'驗證字符：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進制顯示字節流技巧分享
