title="WinRaR deciphered (currently only deciphered numbers)"
set WshShell = CreateObject("" )
set fso = CreateObject("")
Function input()
rar_path=InputBox("Please enter the rar or zip path to decrypt"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"For example: C:\ or C:\", title)
If rar_path="" Then Exit Function End If
If (rar_path) Then
num1=InputBox("Password minimum length value"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"Example: 0", title)
If rar_path="" Then Exit Function End If
num2=InputBox("Password length maximum value"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"Note: larger than the password minimum value", title)
If rar_path="" Then Exit Function End If
If num2 > num1 Then
speed=InputBox("Please select the decryption speed (recommended to choose 3)"&Chr(13)&Chr(10)&"If the password range is short, it is recommended to choose less than 3 (default is 3)"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"1:Double speed"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&""&Chr(13)&Chr(10) &"2:Double speed"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"3:Triple speed"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"4:Quick speed"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"5:Five speed", title)
code num1,num2,rar_path,speed 'Important function call
Else
msg2=MsgBox ("Please note that the maximum value should be greater than the minimum value"&Chr(13)&Chr(10)&"&Chr(13)&Chr(10)&"Whether to re-enter",1, title)
If msg2=1 Then input() End If
End If
Else
msg1=MsgBox ("The path you entered is incorrect"&Chr(13)&Chr(10)&"&Chr(13)&Chr(10)&"Whether to re-enter",1, title)
If msg1=1 Then input() End If
End If
End Function
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
Function import(number,num1,num2,rar_path)
On Error Resume Next
Dim cipher(100),count(100),Result(100)
pathname=(rar_path)
winrar="C:\PROGRA~1\WinRAR\"
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)= (winrar&" e -inul -p"&cipher(j)(0)&" "&rar_path&" "&pathname&"\",1,true)
if Result(j) = 0 Then
MsgBox "★ Password cracking successfully ★"&Chr(13)&Chr(10)&""&Chr(13)&Chr(10)&"Password:"&cipher(j)(0), title
end If
count(j)=count(j)+1
Next
Next
End Function
input()