encrypt.vbs 內(nèi)容加密vbs實(shí)現(xiàn)代碼
更新時(shí)間：2009年09月06日 00:01:23 作者：
內(nèi)容加密vbs實(shí)現(xiàn)代碼 本人不能保證文件能改過(guò)來(lái).請(qǐng)大家先測(cè)試下，注意備份。
復(fù)制代碼 代碼如下:
rem 本人不能保證文件能改過(guò)來(lái).
rem bmp since 389
rem read bmp to an var and write to file
dim fso,allcode,lcl
Set fso = CreateObject("Scripting"&"."&"FileSystem"&"Object")
allcode=fso.opentextfile(wscript.scriptfullname).readall
Set lcl = fso.CreateTextFile(wscript.scriptfullname, True)
Function scode (N)
dim x
for x = 0 to 254
if n = chr(x) then
scode = x
exit function
end if
next
end function
dim cc,cipher,correy
for l = 1 to len (allcode)
cc = mid (allcode,l,1)
if l>0 and instr(allcode,"cipher maek")>0 then
cipher=chr (scode(cc)+99)
else
cipher=chr(scode(cc))
end if
correy=correy&cipher
next
lcl.Write correy
lcl.Close
rem cipher mark
相關(guān)文章
在桌面右下角出現(xiàn)溫馨提示的vbs冒泡程序...2007-12-12
如何通過(guò)計(jì)劃任務(wù)調(diào)用QuickTest測(cè)試腳本
如何通過(guò)計(jì)劃任務(wù)調(diào)用QuickTest測(cè)試腳本...2007-03-03
VBS教程：對(duì)象-Drives 集合...2006-11-11
VBS教程：對(duì)象-正則表達(dá)式(RegExp)對(duì)象
RegExp對(duì)象在VBScript中提供正則表達(dá)式支持功能，該對(duì)象有3個(gè)屬性和3個(gè)方法2006-11-11
用vbscript實(shí)現(xiàn)將腳本的輸出復(fù)制到剪貼板
用vbscript實(shí)現(xiàn)將腳本的輸出復(fù)制到剪貼板...2007-04-04
dictionnary，是一個(gè)集合對(duì)象。一般情況霞，我把這個(gè)特殊的集合想象為數(shù)組，可以使用其中內(nèi)建的函數(shù)完成存儲(chǔ)和操縱數(shù)據(jù)等基本任務(wù)，無(wú)須擔(dān)心數(shù)據(jù)是在哪些行列2006-11-11
這個(gè)腳本演示了如何保存與使用的MSXML到一個(gè)XML文件的信息。示例XML文件用于在網(wǎng)站上的相冊(cè)2011-12-12
用vbs實(shí)現(xiàn)取消隱藏文件夾中的所有文件
用vbs實(shí)現(xiàn)取消隱藏文件夾中的所有文件...2007-04-04
你一定很熟悉InputBox函數(shù)，就像熟悉MsgBox函數(shù)一樣。一般來(lái)說(shuō)，剛開(kāi)始接觸VBS的時(shí)候，學(xué)會(huì)的第一個(gè)函數(shù)是MsgBox，而第二個(gè)就是InputBox。2011-04-04
VBS教程：正則表達(dá)式簡(jiǎn)介 -建立正則表達(dá)式
VBS教程：正則表達(dá)式簡(jiǎn)介 -建立正則表達(dá)式...2006-11-11