encrypt.vbs如何实现内容加密-创新互联

这篇文章主要介绍encrypt.vbs如何实现内容加密，文中介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们一定要看完！

创新互联建站自2013年创立以来，先为余杭等服务建站，余杭等地企业，进行企业商务咨询服务。为余杭企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

代码如下:

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如何实现内容加密”这篇文章的所有内容，感谢各位的阅读！希望分享的内容对大家有帮助，更多相关知识，欢迎关注创新互联行业资讯频道！

标题名称：encrypt.vbs如何实现内容加密-创新互联
当前地址：https://www.cdcxhl.com/article38/hgepp.html

成都网站建设公司_创新互联，为您提供微信小程序、全网营销推广、标签优化、云服务器、品牌网站设计、网站制作

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联