Доброе время суток всем!
Есть приложение, написано на Delphi7. В этом приложении открываются некие изображения GIF, которые хранятся на винте в зашифрованном виде. Искать алгоритм расшифровки мне уже надоело, очень мусорный код. Поэтому вопрос - можно ли средствами API или еще как-то из чужого запущенного приложения считать картинку хоть в каком-то виде?
Идея заключается в том, чтобы программно управлять этой прогой - заставить его окрывать нужные мне картинки, ну а я их просто буду слизывать из него. Простой PrintScreen не подходит, т.к. поверх картинки выводится некоторое количество меток и кнопок, да и изображение масштабированное, а мне-бы в исходном размере...
Картинка открывается, по всей видимости, в TImage32. Т.е. добраться до этого контрола как-то можно, а в нем должна быть где-то ссылка на bitmap в памяти, вот его-то и надо слизать немасштабированный.

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

Проще наверное
mindkeeper пишет:
Искать алгоритм расшифровки
А если принципиально надоело, то на форуме уже не раз поднималась эта тема... Юзай поиск

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

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

Когда картинка на экране, то уже расшифрована. Можно сделать так: сохраняешь память процесса чем то типа artmoney либо DetectiveStory. Далее в дампе руками либо r-studio находишь картинки. Если это битмап без заголовка, то поможет imgrab 1.7 (смотри ссылку в новостях на сайте). Но метод этот гиморный, лучше реверси прогу.

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

Руками не подходит, т.к. надо получить не одну-две картинки, а несколько тысяч.
С реверсом повозился, там был ASProtect+конверт Guardant+куча вызовов API Guardant во время работы приложения. И вроде бы модуль, где открывается картинка, получил в более-менее удобоваримом виде после того, как несколько раз прогнал в DeDe (там много нестандартных компонент, постепенно добавлял сигнатуры для них...). Короче вроде б увидел алгоритм распаковки картинки, написал прогграммку с этим алгоритмом. И что инетерсно - большая часть картинок не расшифровывается, НО парочка расшифровались в нормальные человечские gifы, а еще несколько получились странными - открываются, но не полностью, а где-то на 2/3 сверху, а внизу 1/3 безобразие в духе белого шума на телеке...

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

Справку по WinAPI в Дельфи почитай (Help - Windows SDK), а еще DelphiWorld delphiworld.narod.ru/dw.html

Function WindowToBMP(WD: HWND ): TBitmap;
Var
WinDC: HDC;
ARect : TRect;
begin
Result := TBitmap.Create;
GetWindowRect(WD, ARect);
with Result, ARect do
begin
Width := ARect.Right - ARect.Left;
Height := ARect.Bottom - ARect.Top;
If (Width=0) or (Height=0) then
Begin
MessageDlg('nothing here',
mtWarning,[mbOk],0);
Exit;
End;
WinDC:=GetWindowDC(Wd);
ShowWindow(Wd, SW_SHOW);
BringWindowToTop(WD);
try
BitBlt( Canvas.Handle, 0, 0, Width, Height, WinDC, 0, 0, SRCCOPY);
finally
end;
end;
end;

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

Скорее всего картинка рисуется апиком BitBlt или StretchBlt.
Хукаеш апик, проверяешь размер картинки, если тот что надо сохраняешь в файл.

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

Все гораздо лучче получилось. Разобрал иерархию классов проги, написал свою, которая последовательно перебирает все, что мне надо (ищет нужное серией FindWindowEx, затем PostMessage куда надо), и в нужный момент вызывает метод чужого контрола, чтоб сохранить в файл. Всем спасибо за подсказки.

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