简单的VBS加密实现代码
导读：收集整理的这篇文章主要介绍了简单的VBS加密实现代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 昨天那个病毒的加密确实很恐怖，我不是高手，写不出那么高级的加密。但是受病毒第一层加...
收集整理的这篇文章主要介绍了简单的VBS加密实现代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 昨天那个病毒的加密确实很恐怖，我不是高手，写不出那么高级的加密。但是受病毒第一层加密的启发，进行简单的加密还是不难的。当然这种低级的加密只能拿来骗骗一些垃圾的杀毒软件。使用了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 您可能感兴趣的文章:
- VBS加密解密源码(UserAccounts.CommonDialog) 修正版
- VBS加密与VBE解密实现方法
- VBS加密免杀器 下载
- VBS加密14法你会几种 VBS加密免杀浅谈
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 简单的VBS加密实现代码
本文地址： https://pptw.com/jishu/609860.html