WinRAR密码破解（精）

WinRAR是大家常用的压缩工具，它的加密功能更是受到大家的青睐；现在我就来简单的教

教大家破解加密的压缩文档（rar，zip）

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

''''''''''''''''''''''''''''''代码如下

'本段程序由方窗原创，仅供学习参考，如果转帖请注明作者...
'方窗主页: http://blog.youkuaiyun.com/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