нужно взломать прогу
выдрать из нее вопросы с ответами
просто список вопросов и список ответов
оригинал темы тут forum.web-hack.ru/showtopic=49612

| Сообщение посчитали полезным:

dll.pp.ru/G.rar

| Сообщение посчитали полезным:

завтра в 2 часа дня уже нужна взломана быть (( в противном случае выкинут с работы

| Сообщение посчитали полезным:

Hexley
Дам тебе совет. Почитай правила данного форума и помести эту тему в соответсвующий раздел форума, то тогда кто-нибудь тебе поможет.

| Сообщение посчитали полезным:

deepred
1. Этого человека надо заставить думать и самому!
2. В запросы не надо! Т.к. это давно забытая всеми система, и это очень даже хорошо, многие кто возьмется ломать, будет действовать как крякер,а не следовать статьям со смыслом: "нажмите А, потом в месте Б введите цифру 1, а потом нажмите еще 2, ура вы взломали и вы кул-хацкер!"

Hexley
Если дале мало времени, так и говори что абнаглели, а если затянул, то сорри, сам виноват!

-----
My love is very cool girl.

| Сообщение посчитали полезным:

да нет не затянул
просто я крайним оказался в 2 часа завтра должен быть результат ((((9

| Сообщение посчитали полезным:

Hexley
Если крайним, то надо уходить, но с гордо поднятой головой!

зы:
Чтобы уходы с работы не пугали, читай больше!!! Базы данных, вирусы, новая технология, семинары посещай, вобщем совершенствуйся, тогда ты будешь хозяином своей работы, а не она над тобой!

-----
My love is very cool girl.

| Сообщение посчитали полезным:

Блин, спасибо за совет , но пока мне это не поможет

| Сообщение посчитали полезным:

Уважаемый, если тебя это так напрягает - то почему сам не копаешь это проблему. Проще всего сложить лапки и попросить помощи. Ты сначала сам эту прогу покопай, определи максимум что сможешь своими силами найти, а там уже за помощью обращайся - в более конкретной и корректной форме (если сам не разберешься).

| Сообщение посчитали полезным:

Я вообще лох в этих делах
максимум могу подгрузить прогу в софт айс
ито поскольку прога сразу закрываеться получаеться немогу даже этого не умею я... просто на меня это списали и все...
если не хотите помогать не надо , я понимаю что до чужих проблем никому нах... дела нету

| Сообщение посчитали полезным:

Hexley
Я до сих пор получаю пинки от гуру, и благодарю их за это! Потому что человек становится человеком, только благодаря своему ТРУДУ! Если ты не хочешь чтобы у тебя всегда возникали подобные трудности, научись их к ним подходить!
Да ты можешь всего не знать, мы все чего-то не знаем, но ты можешь научиться задать корректный вопрос и нужным людям!
Спец этот тот кто умеет подойти к трабле! Он не все знайка, у него не сыпятся команды из ушей, если его разбудить он не скажет маш.код команды mov, но он будет знать как это найти! Именно этому и учись.

Ты проиграешь сейчас, но это не значит что ты обязательно проиграешь Войну! Все поражения в других битвах зависят целиком от тебя! Действуй!

-----
My love is very cool girl.

| Сообщение посчитали полезным:

мда

| Сообщение посчитали полезным:

Товарищ Hexley не видит границу между тем где заканчивается бесплатная помощь и начинается оплачиваемое решение проблемы.

| Сообщение посчитали полезным:

Если кто не понял плачу 60 уе

| Сообщение посчитали полезным:

могу выложить прогу со снятым верхним протектором. там еще раскодировщик стоит, я его снимать не буду - лень и на работу завтра рано. кто посвободнее, можете посмотреть. прога на богланд (турбо?) паскале, версия 6 или 7. кстати, присмотритесь к файла вопросов, там есть повторяющиеся куски - можно попробовать длину ключа посчитать и на разнице свойства посмотреть.
Hexley пишет:
Если кто не понял плачу 60 уе
неа, слишком спать хочу.
theCollision пишет:
Ты проиграешь сейчас, но это не значит что ты обязательно проиграешь Войну! Все поражения в других битвах зависят целиком от тебя! Действуй!

блин. что один, что другой. что курил?


587a_10.12.2006_CRACKLAB.rU.tgz - OUT.EXE

| Сообщение посчитали полезным:

У меня программа нигде незапускается, но взглянув на файлы - подумал, может открыв соответствующий файл *.INF там лежат сразу и ответы которых неможет быть более 5 - поэтому и заполняется строка до 5 нулями? Т.е. например
STANDART.INF - из названия можно понять какой тест
10 - номер вопроса
46 47 48 49 0 49 - верный ответ 49 т.е. при данном задании ответ номер 4 всего 4 варианта ответов
11- номер вопроса
51 52 53 0 0 51- верный ответ 51 т.е. при данном задании ответ номер 1 всего 3 варианта ответов
12- номер вопроса
56 57 58 59 0 59 - верный ответ 59 т.е. при данном задании ответ номер 4 всего 5 варианта ответов

Если есть возможность запустить программу - посмотрите это, т.е. так выходит или нет? Если так - распечатай все файлы *.INF из папки и списывай оттуда

-----
Само плывет в pуки только то, что не тонет.

| Сообщение посчитали полезным:

DrFits пишет:
56 57 58 59 0 59 - верный ответ 51 т.е

Ты хотел сказать 59? Или я не так понял?

| Сообщение посчитали полезным:

Блиин , тема актуальна
n1kto
не запускаеться

| Сообщение посчитали полезным:

НАРОД! ПОМОГИТЕ

| Сообщение посчитали полезным:

DrFits пишет:
так выходит или нет? - если на этот вопрос неответиш, то тебе тут хрен кто еще поможет (советов я так и неувидел), а если нечитаешь посты выше, то и разбирайся сам! Если так выходит - остаётся только распечатать файлы *.INF и смотреть с них ответы+фиг кто доколупётся к таким шпорам, т.к. в них на 1-й взгляд нету ответов.
Ещё пример(для тех кто ...), открываешь файл например F_KROVI.INF (наверное что-то с кровью)
1 - номер вопроса
1 2 0 0 0 2 - правильный ответ №2
2- номер вопроса
6 7 8 0 0 8- правильный ответ №3
3- номер вопроса
11 12 0 0 0 11- правильный ответ №1

-----
Само плывет в pуки только то, что не тонет.

| Сообщение посчитали полезным:

Hexley пишет:
не запускаеться
неправда ваша. запускается, но не работает. пишет "нелегальная копия". невидно? а нефиг из 2k/xp запускать в программе (в раскодировщике) трюки досовские. работа с портами. если совсем приперло запустить - попробуй из досбокса.

| Сообщение посчитали полезным:

зы. а вообще - лучше в VMWare поставить что-то типа доса 6.22/7 и поиграться в отладчике. в DG например.

| Сообщение посчитали полезным:

n1kto А на флешке сделать дос и не прокатит?

| Сообщение посчитали полезным:

народ , и че , мне никто не поможет?

| Сообщение посчитали полезным:

Один чел сказал что формат файлов очень напоминает хелповый...
мож это какой нидь популярный переименнованный формат?

| Сообщение посчитали полезным:

Кто нить сможет снять привязку к компу?
У меня не получается.

Кстати ольгой можно отлаживать?

| Сообщение посчитали полезным:

sniperZ пишет:
Кто нить сможет снять привязку к компу?
У меня не получается.
Кстати ольгой можно отлаживать?
Дурак ты, иди читай доки... И по olly в том числе.

-----
– Почему ты работаешь по ночам ? – Так удобнее... В одну смену с чертями...

| Сообщение посчитали полезным:

Кароче , там используються help файлы
Help Compiler. Copyright (c) 1987 by TurboPower Software. Version 5.05

Usage: MAKEHELP [/Q] InFile [OutFile]
Нужен декомпиллер

| Сообщение посчитали полезным:

Млин, опоздал... на пару дней...
Короче, вот декомпилер (структуру файла особо не разбирал - по сравнению с оригинальной турбоповеровской она изменена), строки распакует и этого достаточно:

{$APPTYPE CONSOLE}
program SabiDecode;
type XlateArray=array[0..15] of Byte; {Most common characters in help text}
var X:XlateArray;
type TFI=file of byte;
function LoadNibbles(var FI:TFI; var n1,n2:integer):boolean;
var b:byte;
begin
Result:=false; if EoF(FI) then Exit;
Read(FI,b); n1:=(b and $0F); n2:=(b and $F0) shr 4; Result:=true;
end;
var
FI:TFI;
FO:Text;
N:string;
b:byte;
i,n1,n2,n3,n4:integer;
begin
if ParamCount=0 then begin writeln('Usage: Decode filename'); Halt; end;
N:=ParamStr(1); AssignFile(FI,N); Reset(FI); AssignFile(FO,N+'.txt'); Rewrite(FO);
Seek(FI,$15); for i:=0 to 15 do begin Read(FI,b); X[i]:=b; writeln(Char(b)); end;
n1:=-1; n2:=-1; n3:=-1; n4:=-1;
while not EoF(FI) do begin
if(n1=-1)and(n2=-1)then LoadNibbles(FI,n1,n2);
if(n2=-1)and(n3=-1)then LoadNibbles(FI,n2,n3);
if(n3=-1)and(n4=-1)then LoadNibbles(FI,n3,n4);
if(n1>=0)and(n1<$0F) then begin
write(FO,Char(X[n1])); n1:=n2; n2:=n3; n3:=n4; n4:=-1;
end else begin
write(FO,Char((n3 shl 4) or n2)); n1:=n4; n2:=-1; n3:=-1; n4:=-1;
end;
end;
CloseFile(FI); CloseFile(FO);
end.

| Сообщение посчитали полезным: