Конференция VBStreets

**Max!** » 24.12.2004 (Пт) 20:39

Вообщем как из вб поставить параметр alpha (влажок) , тоесть включить\выключить в OpenGL (не конкретно на сваё приложение а вообще) ???

:wink:

**|kerish|** » 24.12.2004 (Пт) 20:49

C GL-ом не работал.
Советую спросить у специалистов по данной тематики.
Уверен ведь есть же у них свои форумы.

**Max!** » 25.12.2004 (Сб) 0:29

Может кто знает ?

**Max!** » 25.12.2004 (Сб) 14:02

Может перехват когда идёт обращение (вызов этой функций) с какой лбо другой проги ???

:wink:

**KDima** » 25.12.2004 (Сб) 21:00

Я думаю... никак!
Чтоб изменить парам нужно создать устройство -> 2 устройства уже не катит!
Итак есть два выхода:
1. Внедрение shell code...
2. Работать с устройством по указателю

**Max!** » 26.12.2004 (Вс) 6:04

А по конкретнее нельзя ? Может сылочку даш или примерчик ! Навиди на путь !

:wink:

**KDima** » 26.12.2004 (Вс) 16:32

shell code - внедрение кусочка своего кода в чужую прогу (можно локально или удалённо, по сетке) этот кусочек как правило написан на асме

VB shell code заработает только в программе написанной на VB, т.к. Обьявления библиотеки msvbvmX0.dll находятся в начале файла. Одна из проблем его внедрения - как передать на него управление (за энто отвечает регистр EIP). Можно подпатчить прогу в которой будет менятся прозрачность. Если в проге уже есть работа с прозрачностью то будет чуток полегче.
Сходи на http://www.xakep.ru

Работа с устройством по указателю - фантастика.

Удачи!

**KDima** » 26.12.2004 (Вс) 18:00

Кстати к Borland Delphi, C++ Builder прилагается пример по работе с OpenGL, кажется и с прозрачностью.
+ Заголовочные файлы для OpenGL (Хоть список функций узнать)
Я думаю при знании англицкого разобратся будет несложно

Спрошу энтот файл у друга, он прогит на Дельфях.

**Max!** » 29.12.2004 (Ср) 0:36

Ти спросил ? Имеет он ?

:wink:

**Max!** » 29.12.2004 (Ср) 4:55

TO KDima

Баюсь показаться очень наглым , но спрашу точнее попрашу ! Ты гавориш твой кореш на делфи проги пишет , так вот немог ли он подсказать (кодам разумеется - всего 2-3 строчки) как зная конкретный адрес , (в дезасемблином виде это так

push eax
call 004149B0
)

Так вот мне надо спомащю делфи изменить втарую строчку на

Call 004148C0

Но шоб остальной код не карёжился что ниже (надо только одну строчку подкаректировать)

Канечно дезасемблирую прогу (Конкретный адрес в проге я имел ввиду)

Вобщем пиши в личные , уверен нечего непонятно (сам струдом възжаю) 4:54 утра уже немагу правильно думать :wink:

Или мыло дай разъясню всю ситуацию конкретно !

:wink:

**KDima** » 29.12.2004 (Ср) 12:26

Кореш никогда о таком экземпле не слыхал

Зато я установил билдер и нашел там экземплы!!!

[url]myksoft.narod.ru[/url]

На второй вопрос могу ответить сам (раньше пытался прогерить)

Тебя интересует как на дельфях сделать патч который исправит exe файл? или патч для TXT?

**Max!** » 29.12.2004 (Ср) 15:22

To KDima

Да да да , ты правильно понял патч на ехе !!!! Вот есть ехе шка я её дезасемблю , нахажу ныжные мне строчки , они выглядят так :
......
push eax
call 00 004149B0
.........

Мне надо исправить втарую строчку на

Call 004148C0

и всё !

Собственно если надо (мне ненадо) изменить строчку

push eax
дапустим на
push edx

то это я знаю (переменная b : byte;)

b := $50; //push eax
q := $52; //push edx

то надо по нужному адресу прописать (или заменить - поразному выражаясь) значение q , тоесть если мне надо исправить строчку push eax на push edx то по нужнаму адресу я просто пропишу 52 (тоесть переменную q ) , и после дезасемблирования я увижу не push eax , а push edx !!!!

Но я незнаю как call 00 004149B0 строчку изменить на Call 004148C0 !!!

Если можешь когам какнибуть !!! С уважением Max !

:wink:

**Max!** » 29.12.2004 (Ср) 19:45

KDima ты можеш мне помочь ? :?:

**KDima** » 29.12.2004 (Ср) 20:32

Max! писал(а):KDima ты можеш мне помочь ?

Чем смагу - памагу!

procedure TDuperForm.ButCrackClick(Sender: TObject)
var
f: TFileStream;
s: byte;
begin
f: = TFileStream.Create('xxx.exe', fmOpenReadWrite);
f.Seek($000001, soFromBeginning); // $000001 - адрес, где нужно менять eax на edx
f.Read(s, sizeof(s));
if s=$50 then
begin
q:= $52;
f.Seek($000001, soFromBeginning);
f.write(q, sizeof(q));
end;
// Аналогично для Call xxx
тока там явно больше байтиков будет
f.free
end;

Вот я тоже умею прогить на дельфях, но незнаю что

!
Если это заработает -> я прогерю круче кореша

**Max!** » 29.12.2004 (Ср) 22:31

Знаеш твой пример отличается от маего кода , и знаеш наглаз магу сказать что он будет работать !!!!!! :wink:

Но eax на edx я умею менять !!! Я незнаю как Call поменять !!!!!! (И сколько конкретно надо байтиков песать чтобы Call получился ???? И адресс дальше как поменять ???? )

:cry:

......
push eax
call 00 004149B0
.........

Мне надо исправить втарую строчку на

Call 004148C0

и всё !

Собствынно как это реализовать !!!!Я идиот! Убейте меня, кто-нибудь!?

:?:

**Max!** » 30.12.2004 (Чт) 16:04

KDima паможеш ?

**Max!** » 30.12.2004 (Чт) 19:16

Может кто ещё знает ?

:wink:

**KDima** » 30.12.2004 (Чт) 23:09

Сходи на WASM.RU

Конференция VBStreets

OpenGl

OpenGl

Кто сейчас на конференции