VPF::Забытый пароль winrar - Форум программистов

bursa

Дата 16.3.2005, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 25.2.2005
Где: Липецк

Репутация: нет
Всего: 1

Забыл пароль к своему архиву, теперь очень нужен.
Пытаюсь написать программку для перебора паролей, вызываю unrar по циклу.
Проблема: архив большой, раскрывается каждый файл, процесс остановить не могу, вследствие чего запускается большое количество unrar-ов, всё виснет.
Нельзя ли как-то от unrar получить код ошибки или что-либо такое и в этом случае закрыть
unrar

Dr.No_xXx

Дата 16.3.2005, 15:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет

bursa
Ты Можеш просто запускать перебор при открытии определенного архива
Это должно решить проблему с зависанием.
а на счет
"Нельзя ли как-то от unrar получить код ошибки или что-либо такое и в этом случае закрыть
unrar"
даже и незнаю.Можно просто сделать ограничение.

bursa

Дата 16.3.2005, 15:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 25.2.2005
Где: Липецк

Репутация: нет
Всего: 1

На форуме часто обсуждаля подобный вопрос, но самое лучшее было для моей проблемы:

Код


function TForm1.ExecAndWait(const FileName, Params: ShortString; const WinState: Word): boolean; export;
var
 StartInfo: TStartupInfo;
 ProcInfo: TProcessInformation;
 CmdLine: ShortString;
begin
 CmdLine := '"' + Filename + '" ' + Params;
 FillChar(StartInfo, SizeOf(StartInfo), #0);
 with StartInfo do
 begin
   cb := SizeOf(StartInfo);
   dwFlags := STARTF_USESHOWWINDOW;
   wShowWindow := WinState;
 end;
 Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
                         CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                         PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
 if Result then
 begin
   WaitForSingleObject(ProcInfo.hProcess, INFINITE);
   { Free the Handles }
   CloseHandle(ProcInfo.hProcess);
   CloseHandle(ProcInfo.hThread);
 end;
end;

где можно отследить и окончание процесса, и код ошибки

но как отледить

Цитата

3 ОШИБКА CRC Во время распаковки обнаружена ошибка CRC.

еще до завершения приложения

z-END

Дата 16.3.2005, 16:03 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

наверно лучше не запускать Winrar а использовать его библиотеку unrar.dll

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

bursa

Дата 16.3.2005, 16:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 25.2.2005
Где: Липецк

Репутация: нет
Всего: 1

Спасибо всем за помощь,
проблеу решил путем разархивирования только первого файла архива, потом проверка, и если всё ОК - остальные файлы

Snowy

Дата 16.3.2005, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Проще было использовать программу подбора паролей...

bursa

Дата 16.3.2005, 16:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 25.2.2005
Где: Липецк

Репутация: нет
Всего: 1

To: Snowy. Что за программа. У меня пока что идет перебор и ничего не разархивировано

Snowy

Дата 16.3.2005, 16:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Advanced Archive Password Recovery
Пароли перебирает миллионами в секунду.
Добавлено @ 17:00

Цитата

A program for recovering lost or forgotten
passwords for ZIP (PKZip/WinZip), ARJ/WinARJ,
RAR/WinRAR and ACE/WinACE (1.x) archives. Supports
the customizable "brute-force" attack, effectively
optimized for speed (for ZIP, up to 15 million
passwords per second on Pentium III);
dictionary-based attack, and very fast and
effective known-plaintext attack. For WinZip
archives with 5 or more encrypted files,
guaranteed decryption is available. Multilangual
interface is provided. $60

Ключ могу в приват дать.
Добавлено @ 17:03
А, ну да. И самую мелочь забыл. Линк: www.elcomsoft.com
Ремята ломают все, что ломается и продают программы.
И им за это ничего не будет... Ибо все это "Для восстановления забытых паролей"
P.S. Шароварное ограничение - пароли до 5 символов.

Alex

Дата 16.3.2005, 18:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

В FAQ есть функция FileExecuteWait http://vingrad.ru/DELPHI-DLP-000765. А коды ошибок представлены в документации к WinRar

Цитата

255 ПРЕРВАНО Операция была прервана пользователем.
ПОЛЬЗОВАТЕЛЕМ

9 ОШИБКА СОЗДАНИЯ Ошибка при создании файла

8 ОШИБКА ПАМЯТИ Недостаточно памяти для выполнения операции.

7 ОШИБКА Ошибка при указании команды/параметра в
ПОЛЬЗОВАТЕЛЯ командной строке.

6 ОШИБКА ОТКРЫТИЯ Произошла ошибка открытия файла.

5 ОШИБКА ЗАПИСИ Произошла ошибка записи на диск.

4 ЗАБЛОКИРОВАННЫЙ Попытка изменения архива, заблокированного
АРХИВ ранее командой 'k' или ключом '-k'.

3 ОШИБКА CRC Во время распаковки обнаружена ошибка CRC.

2 ФАТАЛЬНАЯ Произошла критическая ошибка.
ОШИБКА

1 ПРЕДУПРЕЖДЕНИЕ Произошла некритическая ошибка.

0 УСПЕШНОЕ Работа завершена без ошибок.
ЗАВЕРШЕНИЕ

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »