首页    新闻    下载    文档    论坛     最新漏洞    黑客教程    数据库    搜索    小榕软件实验室怀旧版    星际争霸WEB版    最新IP准确查询   
名称: 密码:      忘记密码  马上注册
安全知识 :: 脚本攻防

vbs实现WinRAR密码破解


http://www.gipsky.com/
WinRAR是大家常用的压缩工具,它的加密功能更是受到大家的青睐;现在我就来简单的教

教大家破解加密的压缩文档(rar,zip)

恩,先把代码给大家把(这是经我研究几天的成果,希望能对大家有所帮助)

”””””””””””””””代码如下

‘本段程序由方窗原创,仅供学习参考,如果转帖请注明作者…

‘方窗主页: 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)&”例如:0″,title)

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()

”””””””””””””””代码结束

下面我们讨论下关于破译WinRAR的特点:

我先声明下,WinRAR可以说现在还没有人能够秒破,至于听说如美国情报机构,完成了对RAR文件 的秒破,还有在台湾一论坛上看到,有人提到RAR文件被人秒破过,我不太相信,我觉得美国情报局这样的机构,有可能可以秒破,但应该是建立在已经通过非常 规手段,跑出一份对应表,只做查询密码才有可能做到。

无法秒破也就意味着要花费大量的时间去破译一个加密的压缩文档(破译一个10多位的密码数字和字母组合的大概要几年)

现在大家普遍的技术都是穷举破解(暴力破解)

至于我的这段小代码也属于穷举法,我这里因为时间关系就没做字母穷举破解了(目前这段代码只实现了数字穷举),不过我这里也给大家提供下思路。

一.至于字母的穷举大多的破译器用的都是字典爆破法:

就是事先将一些可能性较大的一些字符写入一些文档里,破译时再到这些特定的文档里去扫描字符(字符为一行一行的),将这些字符一一的去尝试(所谓暴力)。

这里我可以介绍大家一款软件“RAR Password Recovery”,这个软件很好的用到了字典爆破的方法破译字母,特别是在这个软件的文件夹下还有个已经做好的字典“english”,大家不妨试试。

二.这里我也说说我的思路:

大家完全可以利用ASCII字符集,这可是一个非常丰富的字符资源,不仅能解决字母,甚至是符号。下面我就和大家说说把。

以上的代码用到了几个重要的循环来解决复杂的动作,同样字符也可以用到这样的循环;chr(),asc();

大家应该不陌生把,这些可以实现字符与数字的转换,下面你只要做的就是,将这些数字段处理好就行了。

例如:

Dim MyChar

MyChar = Chr(65) ‘返回 A。

MyChar = Chr(97) ‘返回 a。

MyChar = Chr(62) ‘返回 >。

MyChar = Chr(37) ‘返回 %。

大家只需要将这些键控代码用循环来控制就行了,如果第一位循环完了没有完成密码破译,就在整个循环体的前面直接连接一个字符(大家最好是把这个字符也做个内循环),再次进行大的循环,就这样依次下去,终会把密码破译出来,只是时间的问题了。

*这里提醒大家,我不会帮大家做这段破译字符的代码,思路已经给大家了,主要是靠大家自己完成,目的 也只有一个,提高大家的编程能力,这对你我都有好处。如果实在要问,我告诉大家,其实整体的思路已经融入到了以上提供给大家的源码里,只要大家稍微修改是 能够做出完美的破译工具的,如果大家有什么更好的方法或建议,欢迎与我讨论,这里也谢谢大家的支持。
<< JSP 修改 文件修改时间的小SHELL 如何有效防止Cookies文件泄露你的秘密 >>
API:
gipsky.com& 安信网络
网友个人意见,不代表本站立场。对于发言内容,由发表者自负责任。

系统导航

 

Copyright © 2001-2010 安信网络. All Rights Reserved
京ICP备05056747号