简单的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

时间: 2024-10-28 16:04:23

简单的VBS加密实现代码_vbs的相关文章

一个实现VBS倒计时的代码_vbs

一个实现VBS倒计时的代码  以下内容为程序代码: <script language="VBScript">        Dim oTime : oTime = 5        Function STime             document.all("oInput").value = "00:00:" & oTime             If oTime>0 Then                oTi

VBS 十六进制异或加密实现代码_vbs

效果图: 代码都封装成函数了,方便调用: 复制代码 代码如下: Key = "www-enun-net" '不要用数字 Wscript.echo now & ", 加密: "MyData = ReadBin("test.jpg")EnData = Encoder(MyData)WriteBin "E_test.jpg", EnDataWscript.echo now & ", 加密: " W

VBS MD5加密算法代码_vbs

复制代码 代码如下: Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) m_lOnBits(0) = CLng(1) m_lOnBits(1) = CLng(3) m_lOnBits(2) = CLng(7) m_lOnBits(3) = CLng(15) m

VBS备忘录启动代码_vbs

复制代码 代码如下: msg = Array("解除电话 #57#", "服务器处理", "流量图看有没有大流量", "今天要完成哪些任务")    'msgbox join(msg,vbcrlf)    For i = 0 To UBound(msg)        MsgBox msg(i)    Next 

VBS破坏性应用代码_vbs

'网上看到的,适用与没有禁用shell.application的服务器    server.scripttimeout = 99999    If request("submit")<>"" Then       Call listfile(server.mappath("./"))        response.Write"处理完毕"   Else       response.Write"<f

了解VBE VBE则是编译后(加密)的VBS代码_vbs

一.vbe与vb VBE跟VBS差不多,都是VB脚本代码文件,但他们也有不同: VBS是明文代码,就是说可以直接使用记事本编辑: VBE则是编译后(加密)的VBS代码,使用记事本打开不能直接看到源代码.(有些例外) 加密工具有很多,其中常用的是 Microsoft Script Encoder(screnc.exe),此外还有许多. VBE格式在QQ传文件中往往不会被拦截,而VBS格式却会被拦截,这应该是程序设计者的一个失误. 因此,所以很多人没有进行加密而直接改扩展名为"VBE",依

VBS加密与VBE解密实现方法_vbs

用Script Encoder加密VBS脚本 Script Encoder 是一个简单的命令行工具,脚本设计者可使用此工具对他们的最终脚本进行编码,从而使 Web 主机和 Web 客户端无法查看或更改其源代码.注意,这种编码只能防止对您代码的一般性浏览,而无法防止专业黑客查看您的代码和实现方式. 这其实并不是加密(encrypt)而仅仅是编码(encode),只不过乍一看是乱码,好像被加密过一样.使用方法很简单,安装目录有帮助手册,上面写得很清楚,在这里举一个最简单的用法,使用下面的命令加密ex

VBS加密14法你会几种 VBS加密免杀浅谈_vbs

手机打字实在在麻烦,所以一些比较简单或太复杂的代码我就不直接提供实例了. 1.不是方法的方法--加注释 加一些规则无用不含特征码的注释.代码略 2.大小写混编 利用VBS忽略大小写 3. 分行与同行混用 利用冒号(:)连接多行代码为一行 4.一行分多行 使用续行符(_)将一行分多行写 5.利用execute函数 复制代码 代码如下: Execute("createobject("&chr(34)&"wscript.shell"&chr(34)

支持断点下载的VBS代码_vbs

之前我就介绍过VBScript语言的强大.今天再给出一个支持断点下载的VBS代码. 并附上VBS代码的解析,不懂的朋友可以配合微软的SCRIPT56.CHM文档自学.很简单, VBS的好处就是代码易于理解.基本上每行代码执行功能都用英文表示出来了. 这个代码也是对我以前介绍的VBS下载功能的补充. 老规矩,复制保存为dl.vbe. 不过这个VBS的代码的不同之处不是双击运行,而是在CMD命令行下执行. 下载功能执行的格式是: cscript.exe dl.vbs (目标文件地址) [以下载Met