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

赞 (0)

相关推荐

  • VBS加密解密源码(UserAccounts.CommonDialog) 脚本之家修正版

    用法: 1.copy下面代码至文本文档 2.将文件后缀名改为.vbs 3.双击运行 复制代码 代码如下: Ans = InPutBox("请输入要执行的操作:1.加密,2.解密,3.退出.") Ans = Int(Ans) If Ans =1 Then set fso=createobject("scripting.filesystemobject") Set objDialog = CreateObject("UserAccounts.CommonDia

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

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

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

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

  • VBS加密免杀器 下载

    VBS加密免杀器,做vbs的朋友,因各种原因,需要躲避杀毒软件要用到的小工具本地下载

  • 简单的VBS加密实现代码

    昨天那个病毒的加密确实很恐怖,我不是高手,写不出那么高级的加密.但是受病毒第一层加密的启发,进行简单的加密还是不难的.当然这种低级的加密只能拿来骗骗一些垃圾的杀毒软件.使用了msxml2.xmlhttp和adodb.stream对象的VBS脚本很容易被杀毒软件认为是病毒,不明真相的同学一看报毒自然就不敢运行了.简单加密以后应该可以绕过比较垃圾的杀毒软件. 下面是加密程序,原理很低级,读取源文件的所有代码并计算Asc值后写入,Execute用Chr还原后的代码. 复制代码 代码如下: On Err

  • 一个最简单的vbs类实例代码

    class CFoo     sub PrintHello()         response.Write "Hello World!"     end sub end class dim obj set obj = new CFoo  call obj.PrintHello set obj = nothing

  • JAVA简单实现MD5注册登录加密实例代码

    JAVA简单实现MD5注册登录加密实例代码

    开发环境:jdk1.7,eclipse 框架:springmvc,mybatis 工具:maven 以下代码复制即可实现MD5加密 创建一个mave项目,加web.不懂得可以搜索一下就有了. 注册用户的JSP页面代码如下. <%@ page language="java" contentType="text/html; charset=utf-8" pageEncoding="utf-8"%> <!DOCTYPE html PU

  • Python实现简单的可逆加密程序实例

    本文实例讲述了Python实现简单的可逆加密程序.分享给大家供大家参考.具体如下: Python代码如下: 复制代码 代码如下: #coding=utf-8   '''''      Description: 可逆的加密与解密      Environment: python2.5.x      Author:idehong@gmail.com  ''' import os   import sys   class Code(object):       '''''可逆的加密与解密'''    

  • PHP实现超简单的SSL加密解密、验证及签名的方法示例

    本文实例讲述了PHP实现超简单的SSL加密解密.验证及签名的方法.分享给大家供大家参考,具体如下: 1. sign签名代码: function sign($data) { //读取私钥文件 $priKey = file_get_contents('key/rsa_private_key.pem'); //转换为openssl密钥,必须是没有经过pkcs8转换的私钥 $res = openssl_get_privatekey($priKey); //调用openssl内置签名方法,生成签名$sig

  • C#实现最简单的文本加密方法

    本文实例讲述了C#实现最简单的文本加密方法.分享给大家供大家参考.具体实现方法如下: 复制代码 代码如下: private char[] TextEncrypt(string content, string secretKey) {     char[] data = content.ToCharArray();     char[] key = secretKey.ToCharArray(); for (int i = 0; i < data.Length; i++)     {       

  • java&javascript自定义加密数据传输代码示例

    在开发应用过程中,客户端与服务端经常需要进行数据传输,涉及到重要隐私信息时,开发者自然会想到对其进行加密,即使传输过程中被"有心人"截取,也不会将信息泄露.对于加密算法,相信不少开发者也有所耳闻,比如MD5加密,Base64加密,DES加密,AES加密,RSA加密等等..可利用亦或,并,且,等进行简单加密. 示例代码中使用的^运算key=0x01,可自定义自己的规则.定义自己的运算,保证可逆数据不丢失即可.key也可定义,动态key. java代码 public static Stri

  • 使用c++实现异或加密的代码示例

    目录 加密原理 异或加密的实现 ShellCode 编写注意事项 加密原理 由于展示最基本最简单的实现,使用算法加密就没用复杂的.如果使用比较复杂的加密,首先你在C++代码层面和汇编层面要有配套的代码,C++负责加密,汇编负责自我解密,否则你加密完了,结果加密后的PE文件自己又解密不了,这就很尴尬. 在所有加密算法,异或加密是最简单的,也是最好是实现的.我们来介绍异或加密的原理. 已知两个数A和B,如果A xor B = C,则C xor B = A,其中xor表示异或运算符.如果不理解,这个是

随机推荐