当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 简单的VBS加密实现代码

简单的VBS加密实现代码

2017年12月08日  | 移动技术网IT编程  | 我要评论

北流论坛,单机版成人游戏,新县房屋出租

昨天那个病毒的加密确实很恐怖，我不是高手，写不出那么高级的加密。但是受病毒第一层加密的启发，进行简单的加密还是不难的。当然这种低级的加密只能拿来骗骗一些垃圾的杀毒软件。使用了msxml2.xmlhttp和adodb.stream对象的vbs脚本很容易被杀毒软件认为是病毒，不明真相的同学一看报毒自然就不敢运行了。简单加密以后应该可以绕过比较垃圾的杀毒软件。

下面是加密程序，原理很低级，读取源文件的所有代码并计算asc值后写入，execute用chr还原后的代码。
复制代码 代码如下:

on error resume next
set argv = wscript.arguments
if argv.count = 0 then wscript.quit
set fso = createobject("scripting.filesystemobject")
with fso.opentextfile(argv(0),1)
data = .readall : .close
end with
with fso.opentextfile(argv(0)&".txt",2,true)
.writeline "data="&chr(34)&ascdata(data)&chr(34)
.writeline "function chrdata(data)"
.writeline "myarray = split(data, "","", -1, 1)"
.writeline "for each olddata in myarray"
.writeline "newdata=newdata"&chr(38)&"chr(olddata)"
.writeline "next"
.writeline "chrdata=newdata"
.writeline "end function"
.writeline "execute chrdata(data)"
.close
end with
msgbox "ok!",,"encrypt"
function ascdata(data)
num=len(data)
newdata=""
for j=1 to num
if j=num then
newdata=newdata&asc(mid(data,j,1))
else
newdata=newdata&asc(mid(data,j,1))&","
end if
next
ascdata=newdata
end function

使用方法：直接将需要加密的vbs脚本拖动到这个加密程序文件上，会自动生成加密后脚本的txt文件。
原文：http://demon.tw/programming/vbs-simple-encrypt.html

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网