encrypt.vbs 內(nèi)容加密vbs實(shí)現(xiàn)代碼
更新時(shí)間：2009年09月06日 00:01:23 作者：
內(nèi)容加密vbs實(shí)現(xiàn)代碼 本人不能保證文件能改過來.請大家先測試下，注意備份。
復(fù)制代碼 代碼如下:
rem 本人不能保證文件能改過來.
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)文章
使用 Iisftp.vbs 創(chuàng)建FTP站點(diǎn)的方法
Iisftp.vbs 使用的默認(rèn)屬性與 IIS 管理器在建立新的 FTP 站點(diǎn)時(shí)使用的屬性相同，并且它遵循相同的繼承屬性規(guī)則。要配置 FTP 站點(diǎn)的更多高級屬性，請使用 IIS 管理器2014-07-07
VBS教程：運(yùn)算符-運(yùn)算符優(yōu)先級
VBS教程：運(yùn)算符-運(yùn)算符優(yōu)先級...2006-11-11
用vbs實(shí)現(xiàn)cmd功能的代碼...2007-12-12
VBS教程：VBscript屬性-Number 屬性...2006-11-11
安裝成功后，可通過在程序、文件或文件夾上點(diǎn)右鍵->發(fā)送到->系統(tǒng)命令來設(shè)置一個(gè)命令，然后在運(yùn)行中就可以輸入該命令打開文件了。2010-04-04
利用vbs類實(shí)現(xiàn)css按鈕的代碼...2007-03-03
有時(shí)候我們需要獲取當(dāng)前vbs腳本所在的文件夾，或者運(yùn)行當(dāng)前腳本文件夾中的文件那么就需要參考下面的代碼了2019-12-12
用vbs刪除前一天創(chuàng)建的備份文件...2007-03-03
VBS腳本實(shí)現(xiàn)遍歷批量替換多目錄多文件內(nèi)容的代碼
這篇文章主要介紹了VBS腳本實(shí)現(xiàn)遍歷批量替換多目錄多文件內(nèi)容的代碼，主要是結(jié)合了bat，實(shí)現(xiàn)這種效果，需要的朋友可以參考一下2018-12-12
VBScript使用ADSI為IIS批量添加屏蔽或允許訪問的IP
用ADSI+ASP添加IP到IIS禁止訪問列表中2008-12-12