网站 › 『编程语言区』 › VBS强力加密工具[直接加密成乱码]

乱码 发表于 2012-5-4 12:54

VBS强力加密工具[直接加密成乱码]

本帖最后由 乱码 于 2012-5-17 11:00 编辑

    很久之前，当我还是VBS鸟人的时候，写过一个关于VBS加密的东西，比网上流传的一般加密稍微给力一点点。最近有个网友Yu2n测试我的脚本，发现了BUG，我当时兴奋莫名，因为一直以来我的代码都没多少人看，没多少人懂。对于高手来说，我的脚本简直是小儿科，对于新人来说，又过于困难，所以导致骑虎难下的尴尬场面。
    其实我的东西还是比较有条理的，就算是新人，也应该能看个大概。比如之前发的3GQQ无密码登录的文章，就算不懂的人都会用。但就没人懂我的代码。难怪高手寂寞，更何况我还不是高手呢。不管怎样，我还是把我的东西分享出来，用到的话自己拿就好了。

看效果


'本工具用于加密vbs的脚本
'采用ASCII,hex+xor,Encoder 三重加密。
'第三重Encoder加密后，只能使用VBE后缀。
'VBS不支持Encoder编码。
' 1.0 比较合适新人加密解密练习用
' 1.1 修复了网友Yu2n测试中发现的BUG
'****************************************************
'Version: 1.1
'Date : 2012-05-02
'Author:乱码
'源码献上，欢迎翻版，写出更加强力的加密。
'****************************************************
Set argv = WScript.Arguments
If argv.Count = 0 Then
    MsgBox "请把要加密的文件拖到我身上！", 64+4096, "乱码领域"
    WScript.Quit
End If

Set fso = CreateObject("Scripting.FileSystemObject")
Randomize
pass = Int(Rnd*12)+20 '异或加密有效范围20-31，所以随机生成好了。
data = fso.OpenTextFile(argv(0), 1).ReadAll
data = "d=" & Chr(34) & ASCdata(data) & Chr(34)
data = data & vbCrLf & ":M=Split(D):For each O in M:N=N&chr(O):Next:execute N"
data = Replace(data, " ", ",")
fso.OpenTextFile(argv(0) & "_加密.vbe", 2, True).Write Encoder(EncHexXorData(data))
MsgBox "加密完毕,文件生成到：" & vbCrLf & vbCrLf & argv(0) & "_加密.vbs", 64+4096, "乱码领域VBS加密"

Function EncHexXorData(data)
    EncHexXorData = "x=""" & EncHexXor(data) & """:For i=1 to Len(x) Step 2:s=s&Chr(CLng(""&H""&Mid(x,i,2)) Xor " & pass & "):Next:Execute Replace(s,"","","" "")"
End Function

Function Encoder(data) '加密3
    Encoder = CreateObject("Scripting.Encoder").EncodeScriptFile(".vbs", data, 0, "VBScript")
End Function

Function EncHexXor(x) '加密2
    For i = 1 To Len(x)
      EncHexXor = EncHexXor & Hex(Asc(Mid(x, i, 1)) Xor pass)
    Next
End Function

Function ASCdata(Data) '加密1
    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

kyoyo123 发表于 2012-5-18 19:30

那么VBS的文件怎么解

网络小牛 发表于 2012-5-4 13:05

支持楼主原创~~

啤啤 发表于 2012-5-4 13:05

好东西 支持！！！

sijiasijia 发表于 2012-5-4 13:05

licthday 发表于 2012-5-4 13:10

可以再加点脚本自变形
VBS 脚本，加密是硬伤啊，加密到看不懂就无法执行，要能执行就能看得懂 。。。

乱码 发表于 2012-5-4 13:21

licthday 发表于 2012-5-4 13:10 static/image/common/back.gif
可以再加点脚本自变形
VBS 脚本，加密是硬伤啊，加密到看不懂就无法执行，要能执行就能看得懂 。。。

目前在研究 暴风一号病毒 的加密原理
那东西的加密很给力，看不懂，能执行，而且是压缩加密，很神奇。

licthday 发表于 2012-5-4 13:34

乱码 发表于 2012-5-4 13:21 static/image/common/back.gif
目前在研究 暴风一号病毒 的加密原理
那东西的加密很给力，看不懂，能执行，而且是压缩加密，很神奇。

嗯，有时间我也去看看
最近在研究vbs+手动生成PE的模型

515889127 发表于 2012-5-5 19:12

楼主的代码很不错

meselson 发表于 2012-5-11 16:14

代码能看懂啊

查看完整版本: VBS强力加密工具[直接加密成乱码]