encrypt.vbs如何實(shí)現(xiàn)內(nèi)容加密-創(chuàng)新互聯(lián)

這篇文章主要介紹encrypt.vbs如何實(shí)現(xiàn)內(nèi)容加密，文中介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們一定要看完！

創(chuàng)新互聯(lián)建站自2013年創(chuàng)立以來，先為余杭等服務(wù)建站，余杭等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為余杭企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

代碼如下:

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

以上是“encrypt.vbs如何實(shí)現(xiàn)內(nèi)容加密”這篇文章的所有內(nèi)容，感謝各位的閱讀！希望分享的內(nèi)容對大家有幫助，更多相關(guān)知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

標(biāo)題名稱：encrypt.vbs如何實(shí)現(xiàn)內(nèi)容加密-創(chuàng)新互聯(lián)
當(dāng)前地址：http://muchs.cn/article38/hgepp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信小程序、全網(wǎng)營銷推廣、標(biāo)簽優(yōu)化、云服務(wù)器、品牌網(wǎng)站設(shè)計(jì)、網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)