Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Перебор паролеи к RAR

Автор: WaReZMEN 11.4.2008, 06:41

Как реализовывается непосредственно сам передор? скажем по славарю. smile

P.S. Теорий не нужно и так знаю мнеб пример smile

Автор: Virtuals 11.4.2008, 10:26

ну примерно так: smile

Код


var
f:text
s:string;

repeat
readln(f,s);
if passOk('arhiv.rar',s) then exit;
until not eof(f);
writeln('agu mi samie umnie i podobrali PASS: ',s);

ну а если ты всетаки спрашивал о другом то попробуй
создать такой батничек

Код


rar e -pТУТПАРОЛЬ 0.rar
echo %errorlevel%

создай архив 0.rar с паролем и тестируй smile

Автор: Rennigth 11.4.2008, 10:30

Virtuals,
функцию passOk в студию! smile

Автор: WaReZMEN 11.4.2008, 10:31

Rennigth, Поддерживаю smile

Добавлено через 10 минут и 22 секунды
Virtuals, а поподробнее можно? меня интересует как в дельфи все это сделать а не батничек...

Автор: Qu1nt 11.4.2008, 10:57

Вот какой-то пример нашел:
http://delphisources.ru/files/sources/raznoe/2007_year/rar_open.zip
Правда, логичней использовать потоки smile

Автор: WaReZMEN 11.4.2008, 11:02

Qu1nt, СПАСИБО!!!!

Автор: Virtuals 11.4.2008, 11:04

Цитата(WaReZMEN @ 11.4.2008, 10:31

)

а поподробнее можно? меня интересует как в дельфи все это сделать а не батничек...

DRKB... Получение переменных среды
вроде оно. (это о том как получить errorlevel)
все нашел ее

Код


GetExitCodeProcess( hAppProcess, exitcode );

ЗЫ. пример смотрели?. smile

...
запустить rar
если в папке появились файлы то пароль найден smile

Автор: Matematik 11.4.2008, 22:06

ИМХО
быстрее будет пользоваться unrar.dll

http://www.rarlab.com/rar_add.htm см. UnRAR Delphi component

Автор: WaReZMEN 12.4.2008, 02:53

Matematik, ну а пример дельный кто даст?