简单的VBS加密实现代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 昨天那个病毒的加密确实很恐怖，我不是高手，写不出那么高级的加密。但是受病毒第一层加密的启发，进行简单的加密还是不难的。当然这种低级的加密只能拿来骗骗一些垃圾的杀毒软件。使用了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 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: VBS.Runauto脚本病毒分析篇下一篇: 域内计算机和用户获取实现vbs代码
关于简单的VBS加密实现代码的所有评论
