VBS 16進(jìn)制驗(yàn)證特定字符

更新時(shí)間：2011年01月11日 23:22:07 作者：

閑來(lái)無(wú)事發(fā)個(gè)VBS 16進(jìn)制驗(yàn)證特定字符例子驗(yàn)證VBS自身(紅色部分fastslz)

 
'驗(yàn)證字符：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 "通過(guò)驗(yàn)證" 
else 
WScript.echo "非法修改" 
end if 

您可能感興趣的文章:

相關(guān)文章

用vbs判斷一個(gè)日期是否在指定的時(shí)段內(nèi)
用vbs判斷一個(gè)日期是否在指定的時(shí)段內(nèi)...
2007-04-04
用VBS實(shí)現(xiàn)的凱撒密碼算法
在密碼學(xué)中，愷撒密碼（或稱愷撒加密、愷撒變換）是一種最簡(jiǎn)單且最廣為人知的加密技術(shù)。它是一種替換加密的技術(shù)，明文中的所有字母都在字母表上向後（或向前）按照一個(gè)固定數(shù)目進(jìn)行偏移後被替換成密文
2013-05-05
VBS教程：函數(shù)-WeekDayName 函數(shù)
VBS教程：函數(shù)-WeekDayName 函數(shù)...
2006-11-11
VBS獲取當(dāng)前目錄下所有文件夾名字的代碼
有時(shí)候我們需要獲取當(dāng)前目錄下所有文件夾的名字，那么就可以參考下面的代碼了
2013-09-09
字符ANSI代碼查詢工具vbs版
用來(lái)查詢ANSI 代碼的工具，需要的朋友可以試試。
2009-12-12
重新安裝ie的一個(gè)vbs
對(duì)于版本有點(diǎn)老，所以建議學(xué)習(xí)使用，不要隨便直接運(yùn)行。
2009-08-08
vbs 獲取當(dāng)前目錄文件數(shù)量的代碼(不包括子文件夾中的)
有時(shí)候我們需要獲取當(dāng)前目錄下有多少個(gè)文件，那么就可以參考下面的代碼
2013-09-09
清除垃圾的VBS文件自動(dòng)查找多個(gè)盤
可以刪除.tmp ._mp .log .gid .chk .old file文件和 temp,recent,cookis,recycled,prefetch,and "Temporary Internet Files"文件夾。
2009-09-09
VBScript 常用函數(shù)總結(jié)
在編寫 QTP腳本的過(guò)程中，有一些經(jīng)常使用的函數(shù)。如果我們能熟悉這些常用的函數(shù)及其用法，并合理地使用它們，那么一些問(wèn)題就很容易得到解決。
2009-11-11
用vbs清空iis log 中自己登錄ip的記錄
作用就是清除iis中的自己登陸ip的記錄，方便黑友們使用
2008-06-06