/*==================================================================================================/ **
** .rar vi phạm pro
** Phiên bản: 1.0
** Tác giả: Trickmmo
** Trang web: https://trickmmo.com/
** Email: trickmmo@gmail
**
** Công cụ này chỉ dành cho mục đích giáo dục.Không sử dụng nó cho mục đích bất hợp pháp.
** Tôi sẽ không chịu trách nhiệm cho bất kỳ thiệt hại nào do công cụ này gây ra.
**
** ====================================================================================*//
**
** Công cụ này sẽ cố gắng trích xuất một tệp RAR bằng tệp từ điển của mật khẩu.
**
** ====================================================================================*//
**
** Xác định các biến
**
Setlocal enabledelayedExpansion
Đặt "Rarfile = D: \ File.Rar"
Đặt "DictFile = D: \ Dictionary.txt"
Đặt "Mật khẩu ="
**
** Kiểm tra xem tệp rar có tồn tại không
**
Nếu không tồn tại "%Rarfile%" (
MSGBOX "Không tìm thấy tệp rar!"
Thoát /B 1
)
**
** Kiểm tra xem tệp từ điển có tồn tại không
**
Nếu không tồn tại "%dictfile%" (
MSGBOX "Không tìm thấy tệp từ điển!"
Thoát /B 1
)
**
** Đọc tệp từ điển
**
For /f "delims =," %% i in (%dictfile%) làm (
Đặt "Mật khẩu =%Mật khẩu %% I"
Gọi: Trích xuất
)
**
** Trích xuất tệp RAR
**
:Trích xuất
"D: \ Tệp chương trình \ WinRar \ Unrar.exe" x -p "%Mật khẩu%" -Y "%Rarfile%"
Nếu % ErrorLevel % Neq 0 (
Tiếp tục
)
**
** Mật khẩu là chính xác, trích xuất tệp
**
Rmdir /s /q "%rarfile%"
Di chuyển "%Rarfile.extracted \\" "%Rarfile%"
Thoát /B 0
**
** Mật khẩu không chính xác, hãy tiếp tục mật khẩu tiếp theo
**
:Mất tích
MSGBOX "Winrar chưa được cài đặt!"
Thoát /B 1
=======================================
/*=================================================================================================*/ **
** .rar Breach Pro
** Version: 1.0
** Author: TrickMMO
** Website: https://trickmmo.com/
** Email: [email protected]
**
** This tool is for educational purposes only. Do not use it for illegal purposes.
** I will not be responsible for any damage caused by this tool.
**
**===================================================================================*/
**
** This tool will try to extract a RAR file using a dictionary file of passwords.
**
**===================================================================================*/
**
** Define variables
**
Setlocal EnableDelayedExpansion
Set "RarFile=D:\file.rar"
Set "DictFile=D:\dictionary.txt"
Set "Password="
**
** Check if the RAR file exists
**
If Not Exist "%RarFile%" (
MsgBox "RAR file not found!"
Exit /B 1
)
**
** Check if the dictionary file exists
**
If Not Exist "%DictFile%" (
MsgBox "Dictionary file not found!"
Exit /B 1
)
**
** Read the dictionary file
**
For /F "delims=," %%i in (%DictFile%) Do (
Set "Password=%Password%%i"
Call: Extract
)
**
** Extract the RAR file
**
:Extract
"D:\Program Files\WinRAR\Unrar.exe" x -p"%Password%" -y "%RarFile%"
IF %ERRORLEVEL% NEQ 0 (
Continue
)
**
** The password is correct, extract the file
**
RMDIR /S /Q "%RarFile%"
Move "%RarFile.Extracted\\" "%RarFile%"
Exit /B 0
**
** The password is incorrect, continue to the next password
**
:Missing
MsgBox "WinRAR not installed!"
Exit /B 1
** .rar vi phạm pro
** Phiên bản: 1.0
** Tác giả: Trickmmo
** Trang web: https://trickmmo.com/
** Email: trickmmo@gmail
**
** Công cụ này chỉ dành cho mục đích giáo dục.Không sử dụng nó cho mục đích bất hợp pháp.
** Tôi sẽ không chịu trách nhiệm cho bất kỳ thiệt hại nào do công cụ này gây ra.
**
** ====================================================================================*//
**
** Công cụ này sẽ cố gắng trích xuất một tệp RAR bằng tệp từ điển của mật khẩu.
**
** ====================================================================================*//
**
** Xác định các biến
**
Setlocal enabledelayedExpansion
Đặt "Rarfile = D: \ File.Rar"
Đặt "DictFile = D: \ Dictionary.txt"
Đặt "Mật khẩu ="
**
** Kiểm tra xem tệp rar có tồn tại không
**
Nếu không tồn tại "%Rarfile%" (
MSGBOX "Không tìm thấy tệp rar!"
Thoát /B 1
)
**
** Kiểm tra xem tệp từ điển có tồn tại không
**
Nếu không tồn tại "%dictfile%" (
MSGBOX "Không tìm thấy tệp từ điển!"
Thoát /B 1
)
**
** Đọc tệp từ điển
**
For /f "delims =," %% i in (%dictfile%) làm (
Đặt "Mật khẩu =%Mật khẩu %% I"
Gọi: Trích xuất
)
**
** Trích xuất tệp RAR
**
:Trích xuất
"D: \ Tệp chương trình \ WinRar \ Unrar.exe" x -p "%Mật khẩu%" -Y "%Rarfile%"
Nếu % ErrorLevel % Neq 0 (
Tiếp tục
)
**
** Mật khẩu là chính xác, trích xuất tệp
**
Rmdir /s /q "%rarfile%"
Di chuyển "%Rarfile.extracted \\" "%Rarfile%"
Thoát /B 0
**
** Mật khẩu không chính xác, hãy tiếp tục mật khẩu tiếp theo
**
:Mất tích
MSGBOX "Winrar chưa được cài đặt!"
Thoát /B 1
=======================================
/*=================================================================================================*/ **
** .rar Breach Pro
** Version: 1.0
** Author: TrickMMO
** Website: https://trickmmo.com/
** Email: [email protected]
**
** This tool is for educational purposes only. Do not use it for illegal purposes.
** I will not be responsible for any damage caused by this tool.
**
**===================================================================================*/
**
** This tool will try to extract a RAR file using a dictionary file of passwords.
**
**===================================================================================*/
**
** Define variables
**
Setlocal EnableDelayedExpansion
Set "RarFile=D:\file.rar"
Set "DictFile=D:\dictionary.txt"
Set "Password="
**
** Check if the RAR file exists
**
If Not Exist "%RarFile%" (
MsgBox "RAR file not found!"
Exit /B 1
)
**
** Check if the dictionary file exists
**
If Not Exist "%DictFile%" (
MsgBox "Dictionary file not found!"
Exit /B 1
)
**
** Read the dictionary file
**
For /F "delims=," %%i in (%DictFile%) Do (
Set "Password=%Password%%i"
Call: Extract
)
**
** Extract the RAR file
**
:Extract
"D:\Program Files\WinRAR\Unrar.exe" x -p"%Password%" -y "%RarFile%"
IF %ERRORLEVEL% NEQ 0 (
Continue
)
**
** The password is correct, extract the file
**
RMDIR /S /Q "%RarFile%"
Move "%RarFile.Extracted\\" "%RarFile%"
Exit /B 0
**
** The password is incorrect, continue to the next password
**
:Missing
MsgBox "WinRAR not installed!"
Exit /B 1
