Русский / Russian English / Английский

Сейчас на форуме: johnniewalker, seb77 (+3 невидимых)
 · Начало · Статистика · Регистрация · Поиск · ПРАВИЛА ФОРУМА · Язык · RSS ·

 eXeL@B —› Крэки, обсуждения —› Взлом старинной досовой проги срочно
Посл.ответ Сообщение

Ранг: 0.3 (гость)
Статус: Участник

Создано: 10 декабря 2006 11:09 New!
Цитата · Личное сообщение · #1

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

Ранг: 0.3 (гость)
Статус: Участник

Создано: 10 декабря 2006 11:09 New!
Цитата · Личное сообщение · #2

dll.pp.ru/G.rar

Ранг: 0.3 (гость)
Статус: Участник

Создано: 10 декабря 2006 11:10 New!
Цитата · Личное сообщение · #3

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


Ранг: 81.5 (постоянный)
Статус: Участник

Создано: 10 декабря 2006 11:34 New!
Цитата · Личное сообщение · #4

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

Ранг: 271.5 (наставник)
Статус: Участник
Packer Reseacher

Создано: 10 декабря 2006 11:44 · Поправил: theCollision New!
Цитата · Личное сообщение · #5

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

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

Ранг: 0.3 (гость)
Статус: Участник

Создано: 10 декабря 2006 11:51 New!
Цитата · Личное сообщение · #6

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

Ранг: 271.5 (наставник)
Статус: Участник
Packer Reseacher

Создано: 10 декабря 2006 12:00 New!
Цитата · Личное сообщение · #7

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

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

Ранг: 0.3 (гость)
Статус: Участник

Создано: 10 декабря 2006 12:26 New!
Цитата · Личное сообщение · #8

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


Ранг: 50.7 (постоянный)
Статус: Участник

Создано: 10 декабря 2006 12:31 New!
Цитата · Личное сообщение · #9

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

Ранг: 0.3 (гость)
Статус: Участник

Создано: 10 декабря 2006 12:47 New!
Цитата · Личное сообщение · #10

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

Ранг: 271.5 (наставник)
Статус: Участник
Packer Reseacher

Создано: 10 декабря 2006 13:24 New!
Цитата · Личное сообщение · #11

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

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

Ранг: 0.3 (гость)
Статус: Участник

Создано: 10 декабря 2006 13:34 New!
Цитата · Личное сообщение · #12

мда


Ранг: 50.7 (постоянный)
Статус: Участник

Создано: 10 декабря 2006 13:35 New!
Цитата · Личное сообщение · #13

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

Ранг: 0.3 (гость)
Статус: Участник

Создано: 10 декабря 2006 13:46 New!
Цитата · Личное сообщение · #14

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

Ранг: 54.0 (постоянный)
Статус: Участник

Создано: 10 декабря 2006 14:11 New!
Цитата · Личное сообщение · #15

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

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

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


{ Атач доступен только для участников форума } - OUT.EXE

Ранг: 200.3 (наставник)
Статус: Участник

Создано: 10 декабря 2006 15:29 · Поправил: DrFits New!
Цитата · Личное сообщение · #16

У меня программа нигде незапускается, но взглянув на файлы - подумал, может открыв соответствующий файл *.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 из папки и списывай оттуда

Ранг: 260.2 (наставник)
Статус: Участник

Создано: 10 декабря 2006 20:24 New!
Цитата · Личное сообщение · #17

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


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

Ранг: 0.3 (гость)
Статус: Участник

Создано: 10 декабря 2006 20:26 New!
Цитата · Личное сообщение · #18

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

Ранг: 0.3 (гость)
Статус: Участник

Создано: 10 декабря 2006 20:40 New!
Цитата · Личное сообщение · #19

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

Ранг: 200.3 (наставник)
Статус: Участник

Создано: 10 декабря 2006 21:37 · Поправил: DrFits New!
Цитата · Личное сообщение · #20

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

Ранг: 54.0 (постоянный)
Статус: Участник

Создано: 10 декабря 2006 23:03 New!
Цитата · Личное сообщение · #21

Hexley пишет:
не запускаеться

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

Ранг: 54.0 (постоянный)
Статус: Участник

Создано: 10 декабря 2006 23:04 New!
Цитата · Личное сообщение · #22

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

Ранг: 36.0 (посетитель)
Статус: Участник

Создано: 10 декабря 2006 23:41 New!
Цитата · Личное сообщение · #23

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

Ранг: 0.3 (гость)
Статус: Участник

Создано: 11 декабря 2006 00:16 New!
Цитата · Личное сообщение · #24

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

Ранг: 0.3 (гость)
Статус: Участник

Создано: 11 декабря 2006 00:20 New!
Цитата · Личное сообщение · #25

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

Ранг: 260.2 (наставник)
Статус: Участник

Создано: 11 декабря 2006 00:20 New!
Цитата · Личное сообщение · #26

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

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


Ранг: 109.2 (ветеран)
Статус: Участник
Cardinal

Создано: 11 декабря 2006 00:46 New!
Цитата · Личное сообщение · #27

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

Дурак ты, иди читай доки... И по olly в том числе.

Ранг: 0.3 (гость)
Статус: Участник

Создано: 11 декабря 2006 01:41 New!
Цитата · Личное сообщение · #28

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

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

Ранг: 24.1 (новичок)
Статус: Участник

Создано: 15 декабря 2006 12:04 New!
Цитата · Личное сообщение · #29

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

{$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.
 eXeL@B —› Крэки, обсуждения —› Взлом старинной досовой проги срочно

Видеокурс ВЗЛОМ