吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 37106|回复: 23
上一主题 下一主题
收起左侧

[其他转载] VBS强力加密工具[直接加密成乱码]

  [复制链接]
跳转到指定楼层
楼主
乱码 发表于 2012-5-4 12:54 回帖奖励
本帖最后由 乱码 于 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

免费评分

参与人数 2热心值 +2 收起 理由
he21653656 + 1 我很赞同!
2彩 + 1 我很赞同!

查看全部评分

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

推荐
kyoyo123 发表于 2012-5-18 19:30
那么VBS的文件怎么解

点评

什么意思,解密VBS吗?这个解密也很简单啊。。  发表于 2012-5-18 20:09
沙发
网络小牛 发表于 2012-5-4 13:05
3#
啤啤 发表于 2012-5-4 13:05
头像被屏蔽
4#
sijiasijia 发表于 2012-5-4 13:05
提示: 作者被禁止或删除 内容自动屏蔽
5#
licthday 发表于 2012-5-4 13:10
可以再加点脚本自变形
VBS 脚本,加密是硬伤啊,加密到看不懂就无法执行,要能执行就能看得懂 。。。
6#
 楼主| 乱码 发表于 2012-5-4 13:21 |楼主
licthday 发表于 2012-5-4 13:10
可以再加点脚本自变形
VBS 脚本,加密是硬伤啊,加密到看不懂就无法执行,要能执行就能看得懂 。。。

目前在研究 暴风一号病毒 的加密原理
那东西的加密很给力,看不懂,能执行,而且是压缩加密,很神奇。
7#
licthday 发表于 2012-5-4 13:34
乱码 发表于 2012-5-4 13:21
目前在研究 暴风一号病毒 的加密原理
那东西的加密很给力,看不懂,能执行,而且是压缩加密,很神奇。

嗯,有时间我也去看看
最近在研究vbs+手动生成PE的模型
8#
515889127 发表于 2012-5-5 19:12
楼主的代码很不错
9#
meselson 发表于 2012-5-11 16:14
代码能看懂啊
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-11-27 15:14

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表