Question

写段vbs代码，破解winrar密码（单一字母密码）

百度搜（ WinRAR密码破解(精) ...vbs..._方窗 ）有个破解数字的，我需要拓展成能破解单个字母的密码的

Answer 1

 Set fso = WScript.CreateObject("Scripting.Filesystemobject")
rarpath=InputBox("请输入rar.exe的完整路径")
If fso.FileExists(rarpath)=True Then
rarpath=""""&rarpath&""""
Else MsgBox "找不到rar.exe！",48,"路径错误"
WScript.Quit
End If
file=InputBox("请输入要处理的rar文件完整路径","字符范围")
If fso.FileExists(file)=True Then
file=""""&file&""""
Else MsgBox "找不到rar文件！",48,"路径错误"
WScript.Quit
End If
range=InputBox("[a-z]请输入1,[A-Z]请输入2，[a-z]+[A-Z]请输入3")
pwd=pwdarray(range)
flag=-1
For i=1 To Len(pwd)
flag=crack(rarpath,file,Mid(pwd,i,1))
If flag=0 Then
MsgBox "密码为 "&Mid(pwd,i,1),64,"恭喜!"
WScript.Quit
End If
Next
MsgBox "破解失败!"
Function crack(rarpath,file,pwd)
set s=WScript.CreateObject("WScript.Shell")
crack=s.run(rarpath&" e -inul -o+ -p"&pwd&" "&file,7,true)
'-0+表示覆盖同名文件！不需要请自行去掉
End Function
Function pwdarray(combine)
lcl="abcdefghijklmnopqrstuvwxyz"
ucl="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Select Case combine
Case 1
pwdarray=lcl
Case 2
pwdarray=ucl
Case Else
pwdarray=lcl&ucl
End Select
End Function

P.S. 

1、文件路径中有空格不会影响到本脚本

2、解压程序既可以是WinRAR.exe，也可以是命令行下使用的rar.exe，个人推荐rar.exe

追问

你的代码可以，我的问题也解决了，谢谢

Answer 2

用软件不行吗? 什么特殊符号都能破 只是时间问题而已
http://www.huacolor.com/soft/16498.html