欢迎来到 黑吧安全网 聚焦网络安全前沿资讯,精华内容,交流技术心得!

winrar密码破解的vbs

来源:海阳顶端网 作者:佚名 时间:2009-01-15 TAG: 我要投稿

刚才在neeao的站上看了这段代码,不过由于可能是网站粘贴原因等,代码里有一些小错误,我修改了,现在没有错了。代码如下:

'本段程序由方窗原创,仅供学习参考,如果转帖请注明作者…
'方窗主页: http://blog.csdn.net/fangchuang

'方窗QQ : 353237850
'大家不妨也尝试着自己做做,或修改本代码。
'大家注意路径这个代码中输入的路径不能含有空格(包括名字)否者会找不到路径。
'为了解决速度问题,采用了分段破译,具体请大家自己体会啦(精华哦!~~~)
'—title是我做的标题,在输出输入框中你会发现它。
title="WinRaR破译(目前只做了破译数字)"
'—下面是我调用的申明
set WshShell = CreateObject("WScript.Shell"            )
set fso      = CreateObject("scripting.filesystemobject")
'—下面是我用于输入信息的模式,同时在输入完后会执行后面的函数动作
Function input()
rar_path=InputBox(" 请输要解密的rar或zip入路 径"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"例 如:C:\jiemi.rar或C:\jiemi.zip",title)
If rar_path="" Then Exit Function End If
If fso.fileExists(rar_path) Then
num1=InputBox("密码长度最小值"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10))
If rar_path="" Then Exit Function End If
num2=InputBox("密码长度最大值"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"注意:比密码最小值要大",title)
If rar_path="" Then Exit Function End If
If num2 > num1 Then
speed=InputBox("请选择解密的速度(建议选3)"&Chr(13)&Chr(10)&"密码范围短则建议选选小 于3(默认为3)"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"1: 一倍速度"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"2:二倍速 度"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"3:三倍速 度"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"4:四倍速 度"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"5:五倍速 度",title)
code num1,num2,rar_path,speed                                              '重要函数调用
Else
msg2=MsgBox ("请注意最大值要大于最小值"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"是否重新输入",1,title)
If msg2=1 Then input() End If
End If
Else
msg1=MsgBox ("您输入的路径不正确"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"是否重新输入",1,title)
If msg1=1 Then input() End If
End If
End Function
'—这是个用于衔接的函数,讲主题与输入框挂钩,在input()函数中你能发现它,这个选择句函数肩负的丢用最重要的函数结构import(形参…)
Function code(num1,num2,rar_path,speed)
Select Case speed
Case 1
import 1,num1,num2,rar_path
Case 2
import 2,num1,num2,rar_path
Case 3
import 3,num1,num2,rar_path
Case 4
import 4,num1,num2,rar_path
Case 5
import 5,num1,num2,rar_path
End Select
End Function
'—所有的关键都是为了调用下部函数做的铺垫,你能发现我利用For循环来定义我的数组,同时对每个数组也执行相应的动作(很方便,建议大家学会)
Function import(number,num1,num2,rar_path)
On Error Resume Next
Dim cipher(100),count(100),Result(100)
pathname=fso.getbasename(rar_path)
winrar="C:\PROGRA~1\WinRAR\WinRAR.exe"
For i=1 To number
If i = 1 Then count(i) = num1 Else count(i) = (Int(num2*(i-1)/number)+1) End If
Next
For counter = num1 To Int(num2/number)
For j=1 To number
cipher(j)=Array(count(j))
Result(j)=WshShell.Run (winrar&" e -inul -p"&cipher(j)(0)&" "&rar_path&" "&pathname&"\",1,true)
if Result(j) = 0 Then
MsgBox "★密码破解成功★"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"密码:"&cipher(j)(0),,title
wscript.quit
end If
count(j)=count(j)+1
Next
Next
End Function
'—这里的细节也不多说了,主要还是时间问题,大家应该都是高手,一目了然,下面的就是实现整体挂钩后的丢用函数了…
input()


【声明】:黑吧安全网(http://www.myhack58.com)登载此文出于传递更多信息之目的,并不代表本站赞同其观点和对其真实性负责,仅适于网络安全技术爱好者学习研究使用,学习中请遵循国家相关法律法规。如有问题请联系我们,联系邮箱admin@myhack58.com,我们会在最短的时间内进行处理。
  • 最新更新
    • 相关阅读
      • 本类热门
        • 最近下载