Привет парни
Есть прога "Нормы времени" производитель [url=http://www.autodealer.ru
]http://www.autodealer.ru
[/url]
В ней присутствует Б.Д.
В базе шифрованные данные (поле WORKS). Вот эти данные я и пытаюсь вытащить.
Что я сделал:
1. Отмал прогу от starforce
2. Разобрал алгоритм шифрования
3. Написал на ассемблере процедуру расшифровки
Все замечательно. НО, мне хочется перетащить эти шифр. данные в свою таблицу. НО, там более 20000 записей и в ручную их перепихивать геморно, поэтому прошу помощи: нужно внедрить asm вставку в delphi с обработкой всех строк и записью расшифрованного поля WORKS в другое поле
ЗЫ Пытался сделать это сам, но башка уже не варит:s14
ЗЗЫ: Всевопросы по снятию starforce в ПМ Здесь не флудить

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

asm
// Ассемблерный код
end;
Если я правильно понял, вроде так, внутри можно обращаться к переменным (mov, EAX, var1).

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

Player
Ежили было так все просто я б не спрашивал

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

crc1 пишет:
Все замечательно. НО, мне хочется перетащить эти шифр. данные в свою таблицу. НО, там более 20000 записей и в ручную их перепихивать геморно, поэтому прошу помощи: нужно внедрить asm вставку в delphi с обработкой всех строк и записью расшифрованного поля WORKS в другое поле
Вырежи расшифровщик и напиши свою прогу, которая достанет записи, расшифрует и запишет в твою таблицу

-----
Тут не могла быть ваша реклама

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

Ну так спрашивай что конкретно не получается, а то не понятно что надо. ИМХО Player ответил на вопрос.
Максимум могу добавить что возможно имеет смысл написать на асме DLL с расшифровкой

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

lord_Phoenix пишет:
Вырежи расшифровщик и напиши свою прогу, которая достанет записи, расшифрует и запишет в твою таблицу
Мля, дык расшифвщик то еть (asm и он работает), нуна его внедрить в длфя, организоавать цикл ну и т.д.
Вот это я и прошу

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

crc1
Может реально собрать библиотеку, экспортировать эту функцию в ней, подключить библиотеку. И не мучаться.

ЗЫ Что у тебя на входе процедуры, что на выходе?

-----
Сколько ни наталкивали на мысль – все равно сумел увернуться

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

tomac
Непонятно следующее
я объявляю строковую переменную, далее пишу asm код

var txtcr: AnsiString;
asm
MOV ESI, txtPnt
ля-ля-ля
MOV BYTE PTR DS:[ESI], AL ; вот в этом месте получаю аксес виолант
Почему то адрес переменной оказывается в секции code и я в ауте

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

crc1 поправь если не так:
1. взять шифрованное значение из таблицы
2. расшифровать
3. записать в свою таблицу

ADD:
помоему надо так mov ESI,[some var]
или lea ESI

-----
radio uno in ibisa ...

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

ValdiS
На входе строка типа:
F9EDB0F53BD450B753F906D72597E1258EAC674281A7C9339E3125723BD556447BA074 C61C32E430C019EE4B644FC1A34782286E5A781B9CDC0267B546AF
на выходе должна быть такая строка:
Боковой повторитель указателя поворота на переднем крыле - с/у
Все это работает, но 20000 сток, руками

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

crc1 пишет:
var txtcr: AnsiString;
asm
MOV ESI, txtPnt
ля-ля-ля
MOV BYTE PTR DS:[ESI], AL ; вот в этом месте получаю аксес виолант
Проверяй стек, может не выравниваешь после работы процедуры. В начале/конце поставь pushad/popad, чтобы с регистрами косяков не было.
После компиляции проекта загружай полученный файл в ольку и смотри, что куда... Насколько изменится твой код после компиляции.

-----
Сколько ни наталкивали на мысль – все равно сумел увернуться

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

crc1 пишет:
var txtcr: AnsiString;
asm
MOV ESI, txtPnt
ля-ля-ля
MOV BYTE PTR DS:[ESI], AL ;

Ну другое же дело, так гораздо ясней. AnsiString, как и String содержит адрес указателя на данные, поэтому надо
mov eax, txtPnt
mov esi, [eax]
и понеслась
P.S. Длина строки будет в [eax - 4]

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

Мужики
Мне нужна конкретная помощь
У меня есть (не воровал, сам распатронил) готовый алгоритм написанный на asme. на ЯВУ перекинуть не получается, нету времени Нужно срочно сваять файло, который линкуется к Б.Д. (dbf; mdb я ее конвертнул)считывает из поля зашифрованныый стринг передает в мою asm вставку и в соседнее поле пишет расшифровку

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

Player пишет:
mov eax, txtPnt
mov esi, [eax]
и понеслась
Не понял. куда понеслось???
У меня в ESI дожен быть указатель на строку, а ты предлагаешь передать в ESI первые байты строки

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

crc1, тебе ValdiS реальную штуку предложил. Оформи свой алгоритм в виде функции, сгороди DLL-библиотеку и юзай её из любого языка. Если надо поищу доку, как DLL'ки на асме городить.

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

Vedrus
Да сгородил я dll на асме и она работает с моим exe'шником. Но я не умею на асме линковаться к Б.Д.
З.Ы. Исходники могу выложить
Ребята, прошу только конкретной помощи
Хотя бы ответте на вопрос
crc1 пишет:
Почему то адрес переменной оказывается в секции code
ПОЧЕМУ???????????????

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

crc1 пишет:
ПОЧЕМУ
Загрузи в Ольку да посмотри почему. Бряк на память или потрейсь. А в esi надо указатель на первый байт загружать.

-----
radio uno in ibisa ...

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

> P.S. Длина строки будет в [eax - 4]
или в [eax-1] если строка задана String[X]

-----
Shalom ebanats!

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

crc1 пишет:
tomac
Непонятно следующее
я объявляю строковую переменную, далее пишу asm код

var txtcr: AnsiString;
asm
MOV ESI, txtPnt
ля-ля-ля
MOV BYTE PTR DS:[ESI], AL ; вот в этом месте получаю аксес виолант
Почему то адрес переменной оказывается в секции code и я в ауте

Мля, AnsiString - это КЛАСС, вот именно поэтому адрес получается в секции кода.
ИМХО, надо txtPnt.c_str() - это на с++ (не помню какой у дельфы синтаксис)

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

> AnsiString - это КЛАСС
гг... докажи.. покажи код создания экземпляра и деструкции.. так же методы, свойства... на дельфи...

-----
Shalom ebanats!

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

crc1 пишет:
Но я не умею на асме линковаться к Б.Д.
Я тоже (но по этой фигне у меня тоже доки есть, но это ). Так можно же подцепиться к базе из Delphi, а обработать всё через асмовскую функцию которая в DLL, или я не прав? Разбираться в коде если честно не охото.

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

Rush пишет:
Мля, AnsiString - это КЛАСС
Да я разные типы прсваивал переменной , эфект - читай выше
Ребята, я конечно решу эту проблему, но нужно срочно. Может пойти на другой форум?
Дело в том, что бы добыть эту Б.Д. я раковырял StarForce, отломал exe'шник, нашел алго, реализовал его на асме и попал в ступор остался один шаг....

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

Vedrus пишет:
Разбираться в коде если честно не охото.
А кто просит разбираться в коде? Все разобрано. Нужно: читай выше

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

ValdiS пишет:
Проверяй стек, может не выравниваешь после работы процедуры. В начале/конце поставь pushad/popad, чтобы с регистрами косяков не было.
После компиляции проекта загружай полученный файл в ольку и смотри, что куда... Насколько изменится твой код после компиляции.
Валис, почитай внимательно мои сообщения, стек тут не причем. Под OllyDbg я смотрел, все работает до MOV BYTE PTR DS:[ESI], AL В ESI указатель на мою строку, НО дело в том, что он находится в секции кода
Я начинаю стучатся абпол

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

я бы лучше посоветовал делать так

var
sTmp:string[255];
begin
zeromemory(@sTmp,255);
asm
lea eax,sTmp
бла бла
end;
end;

ну и конечно взять код в рамки - pushad/popad

-----
[nice coder and reverser]

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

Hellspawn пишет:
var
sTmp:string[255];
Делал и так. Все равно строка лежит в секции кода И я получаю акццес виолант
Может у меня Delphi 7 глючит при компиляции

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

crc1 пишет:
Не понял. куда понеслось???
Извини сам себя перехитрил.
Только, что проверил следующее
var
Str: AnsiString;
begin
Str := 'bla-bla';
asm
mov eax, Str;
mov byte ptr DS:[eax], 'c';
end;
end;

Всё работает как надо. Ключевой момент - это то, что пока строке ничего не присвоено, её несуществует и надо обязательно выделять память под неё перед использованием.

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

Player пишет:
надо обязательно выделять память под неё перед использованием.
Как её выделить?

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

crc1
но пример вот так:
Player пишет:
Str := 'bla-bla';

-----
SaNX

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

Она и будет в секции кода. Это же локальная переменная. Надо размер задать для ней и всё. Hellspawn вроде правильно показал, как под локаль выделить 255 байт. Тоже скомпилировал - всё работает..

-----
radio uno in ibisa ...

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