91超碰碰碰碰久久久久久综合_超碰av人澡人澡人澡人澡人掠_国产黄大片在线观看画质优化_txt小说免费全本

溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

encrypt.vbs如何實現內容加密

發布時間:2021-10-12 09:37:53 來源:億速云 閱讀:121 作者:小新 欄目:開發技術

這篇文章主要介紹encrypt.vbs如何實現內容加密,文中介紹的非常詳細,具有一定的參考價值,感興趣的小伙伴們一定要看完!

代碼如下:


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如何實現內容加密”這篇文章的所有內容,感謝各位的閱讀!希望分享的內容對大家有幫助,更多相關知識,歡迎關注億速云行業資訊頻道!

向AI問一下細節

免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。

AI

牡丹江市| 二手房| 建德市| 乳山市| 阜新市| 上思县| 隆化县| 文水县| 仁布县| 黔南| 报价| 德昌县| 临沭县| 尚志市| 吕梁市| 彝良县| 拉萨市| 霍山县| 邻水| 河东区| 莱州市| 奈曼旗| 临朐县| 元江| 通河县| 朝阳县| 招远市| 天门市| 石门县| 利辛县| 封丘县| 牙克石市| 广西| 高雄市| 台江县| 德令哈市| 类乌齐县| 常宁市| 牡丹江市| 盐池县| 安阳县|