Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Кодировка, посылаемой через wininet инфы? 
V
    Опции темы
LEE_ROY
Дата 30.9.2007, 21:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 3.12.2006

Репутация: нет
Всего: нет
Ставлю хук на HttpSendRequestA,  смотрю через Мэссэджбокс что проходит в lpOptional, вижу открытые данные... а когда вместо месаджбокса сохраняю инфу в файл, там вот такое - } ` яяяяM#=\

Это сообщение отредактировал(а) LEE_ROY - 30.9.2007, 21:18
PM MAIL   Вверх
dumb
Дата 30.9.2007, 22:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sceloglauxalbifacies
****


Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 7
Всего: 158
ошибка в 17 строке
PM MAIL   Вверх
LEE_ROY
Дата 30.9.2007, 22:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 3.12.2006

Репутация: нет
Всего: нет
ты хоть понял что написал, какой  строке? или ты экстрасенс?
PM MAIL   Вверх
BaD_SeCt0R
Дата 30.9.2007, 22:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: 3
Всего: 18
LEE_ROY, вот именно! dumb имеет ввиду, что исходного материала, по которому можно судить об ошибке, очень мало.


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
Fazil6
Дата 30.9.2007, 23:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1653
Регистрация: 3.5.2006
Где: Минск

Репутация: нет
Всего: 60
Цитата(LEE_ROY @  30.9.2007,  22:38 Найти цитируемый пост)
ты хоть понял что написал, какой  строке? или ты экстрасенс?

а разве ты не к телепатам обращался? что тебя удивило? 
PM MAIL   Вверх
LEE_ROY
Дата 30.9.2007, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 3.12.2006

Репутация: нет
Всего: нет
Я понял свою ошибку smile ,  если ставить вместо записи в файло, мессадж бокс то текст в нормльном виде, а в файле он вообще на бинарник в блокноте похож smile вот сурс либы:
Код

library hook;

uses
  windows,
  advApiHook;

var
TrueHttpSendRequest: function(hRequest: dword; lpszHeaders: PChar;
                      dwHeadersLength: dword; lpOptional: pointer;
                       dwOptionalLength: dword): boolean; stdcall;

procedure Save(name: string);
var
hFile: THandle;
Written: Cardinal;
begin
 hFile := CreateFile('c:\Log.txt', GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);
 SetFilePointer(hFile, 0, nil, FILE_END);
 WriteFile(hFile, name, Length(name), Written, nil);
 CloseHandle(hFile);
end;

function NewHttpSendRequest(hRequest: dword; lpszHeaders: PChar;
                    dwHeadersLength: dword; lpOptional: pointer;
                     dwOptionalLength: dword): boolean; stdcall;
begin
Save(lpszHeaders);
Result := TrueHttpSendRequest(hRequest, lpszHeaders, dwHeadersLength,
lpOptional, dwOptionalLength);
end;

begin
HookProc('wininet.dll', 'HttpSendRequestA', @NewHttpSendRequest, @TrueHttpSendRequest);
end.


Это сообщение отредактировал(а) LEE_ROY - 1.10.2007, 00:59
PM MAIL   Вверх
LEE_ROY
Дата 1.10.2007, 01:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 3.12.2006

Репутация: нет
Всего: нет
хз, есть предположение что это gzip, жду совета
PM MAIL   Вверх
Alexeis
Дата 1.10.2007, 10:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459
  все ясно проблема тут 
Код

 WriteFile(hFile, name, Length(name), Written, nil);


Нужно так

Код

 WriteFile(hFile, @name[1], Length(name), Written, nil);



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
LEE_ROY
Дата 1.10.2007, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 3.12.2006

Репутация: нет
Всего: нет
сенкс, то что надо  smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0727 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.