Ùı Ô ÙÏ ÙÔÛÁ - Xakep Online

Òðåòüÿ ïðîáëåìà çàêëþ÷àåòñÿ â òîì, ÷òî óïîëüçîâàòåëÿ ìîæåò ïîïðîñòó ñòîÿòü ôàéðâîë,êîòîðûé íå ïóñòèò ìîþ ïðîãðàììó ïðèïåðåñûëêå êëþ÷åé. Ýòî, íà ñàìîì äåëå, òîæåíå áåäà - ñóùåñòâóåò ìíîæåñòâî ñïîñîáîâîáõîäà ôàéðâîëîâ ïîä Windows. È, íàêîíåö,÷åòâåðòàÿ ïðîáëåìà çàêëþ÷àåòñÿ âòîì, ÷òî ïðè èñïîëüçîâàíèè êðàäåíûõ êëþ-÷åé íåîáõîäèìî ïðîéòè ïîâòîðíóþ àêòèâèçàöèþ,à êîä àêòèâèçàöèè ïðèñûëàåòñÿ íàïî÷òîâûé ÿùèê áûâøåãî âëàäåëüöà. Òî åñòüòóò íåîáõîäèìî âçëàìûâàòü e-mail æåðòâû,÷òî ïîðîé íå òàê-òî ïðîñòî.  ïðèíöèïå, âñåýòè ïðîáëåìû âïîëíå ìîæíî ðàçðåøèòü. Íîâñòàåò âîïðîñ - çà÷åì? Âåäü åñòü âòîðîéñïîñîá êðàæè äåíåã, êîòîðûé ëåãêî îáõîäèòâñå ýòè çàùèòíûå ìåðû.ÓßÇÂÈÌÎÅ ÌÅÑÒÎ ¹2Âòîðîé ñïîñîá çàêëþ÷àåòñÿ â òîì, ÷òî ìîéòðîÿí çàñòàâèò îòïðàâèòü ïðîãðàììó-êëèåíòàäåíüãè íà íóæíûé ìíå êîøåëåê, âûçâàâíåêîòîðóþ ôóíêöèþ. Ïðîãðàììà ïðîñòîáóäåò âèñåòü â ïàìÿòè è ïðîâåðÿòü âñåîêíà íà íàëè÷èå çàãîëîâêà "WebMoneyKeeper". Ýòî ëåãêî äåëàåòñÿ ñ ïîìîùüþAPI-ôóíêöèè findwindow. Çàòåì ÿ áóäó ïîëó÷àòüõýíäëû äî÷åðíèõ îêîí: ýòî íóæíûåïîëÿ ââîäà, êíîïêè è äðóãèå íåîáõîäèìûåìíå îáúåêòû. Äëÿ ïîëó÷åíèÿ õýíäëîâ äî-÷åðíèõ îêîí èñïîëüçóåòñÿ ôóíêöèÿ getwindow,ïåðâûì ïàðàìåòðîì êîòîðîé âûñòóïàåòõýíäë îñíîâíîãî îêíà, à âòîðûì -gw_child. Èòàê, ïðîãðàììà âèñèò è æäåòïîÿâëåíèÿ îêíà ñ çàãîëîâêîì "WebMoneyKeeper", à ÿ æäó, ïîêà ïðîãðàììà-êëèåíòçàêîííåêòèòñÿ ê ñåðâàêó. Ýòó ïðîâåðêó ÿðåàëèçîâàë ñëåäóþùèì îáðàçîì. APIôóíêöèÿìèïîëó÷àþ õýíäë êíîïêè, íà êîòîðîéíàïèñàí ñòàòóñ ïðîãðàììû (îíëàéíèëè îôëàéí) è çàòåì, ïðè ïîìîùè ôóíêöèèwm_gettext, ñ÷èòûâàþ òåêñò ñ êíîïêè.Âîò ýòîò íåõèòðûé êîä:Ïðîâåðÿåì ñòàòóñ ïðîãðàììûif FindWindow(nil, 'WebMoney Keeper')0 thenbeginKeeperWnd := FindWindow(0,'WebMoney Keeper');ButtonWnd[1]:=GetWindow(KeeperWnd, gw_Child);for i:=2 to 6 do ButtonWnd[i]:= GetWindow(ButtonWnd[i-1],gw_HWNDNext);SetLength(ButText,20);while Copy(ButText,1,3)' On' do //Ïîëó÷àåì ïåðâûå òðè ñèìâîëàñëîâà OnlinebeginSendMessage(ButtonWnd[6],WM_GETTEXT,20,Longint(@ButText[1])); end; end;Ïðè ïîìîùè öèêëà for ÿ ïîëó÷àþ ïåðâûåøåñòü õýíäëîâ äî÷åðíèõ îêîí. Âàæíûé ìîìåíò- øåñòîé äåñêðèïòîð óêàçûâàåò íà êíîïêó ñîñòàòóñîì ñîåäèíåíèÿ. Ïîñëå âñåãî ýòîãî ÿ ìîãóñìåëî ïðèñòóïàòü ê ñâîèì ãíóñíûì äåëàì :).Äëÿ íà÷àëà íåîáõîäèìî èçìåíèòü íåêîòîðûåîïöèè áåçîïàñíîñòè WM Keeper'à, ÷òîáû ïðîöåäóðàïåðåñûëêè äåíåã ïðîøëà áåçáîëåçíåííî.Äëÿ ýòîãî íåîáõîäèìî ïîëó÷èòü õýíäëêíîïêè âûçîâà ìåíþ (îíà ïÿòàÿ ïî ñ÷åòó),êëèêíóòü ïî íåé è çàòåì ïåðåìåùàòüñÿ ïî ìåíþñ ïîìîùüþ ñîîáùåíèé wm_keydown èwm_keyup. Âîò êëþ÷åâîé ìîìåíò ïðîãðàììû:Ñâîáîäíî ëàçèòü ïî ìåíþsendmessage(ButtonWnd[5], WM_LBUTTONDOWN, MK_LBUTTON, 0);sendmessage(ButtonWnd[5], WM_LBUTTONUP, 0, 0);sleep(5);GetWindowRect(ButtonWnd[5],korbut);point.x :=korbut.TopLeft.X+5;point.y :=korbut.TopLeft.Y-40;MenWnd:=WindowFromPoint(point);PostMessage (MenWnd, WM_KEYDOWN, VK_UP, 0); //òàê ïåðåìåùàòüñÿâíèç//...ïåðåìåùàåìñÿ, êóäà íàì íóæíîPostMessage (hControl, WM_KEYDOWN, VK_RETURN, 0);//òàê æìó EnterÑËÓÆÁÀ ÝËÅÊÒÐÎÍÍÛÕ ÁÀÁÎÊÅñëè òåáå íè÷åãî íå èçâåñòíîïðî WebMoney, òî ÿíåìíîãî ðàññêàæó îá ýòîéïëàòåæíîé ñèñòåìå. Ñóòüðàáîòû ýòîé ñëóæáû çàêëþ÷àåòñÿâ ñëåäóþùåì:êëèåíò (îáû÷íûé þçåð) ïðèïîìîùè ñïåöèàëüíîéïðîãðàììû óïðàâëÿåòñîáñòâåííûì ýëåêòðîííûìñ÷åòîì, äåíüãè íà êîòîðûé ìîæíî çàíåñòè, ïðèîáðåòÿ çà íàëè÷íûåñïåöèàëüíóþ êàðòó, îñóùåñòâèâ áàíêîâñêèé ïåðåâîä,ëèáî ïîëó÷èâ òðàíçàêöèþ îò äðóãîãî ïîëüçîâàòåëÿ ñèñòåìû.Ñ ïîìîùüþ ïðîãðàììû-êëèåíòà þçåð ìîæåò ïîïîëíÿòü ñ÷åò,ïîêóïàòü ðàçíîîáðàçíûå òîâàðû è ò.ï.  ñèñòåìå WebMoneyñóùåñòâóåò òðè ðàçíûõ òèïà âàëþòû: wmz (ýêâèâàëåíò àìåðèêîñîâñêîãîáàêñà), wmr (ýêâèâàëåíò äåðåâÿííîãî ðóáëèêà) èwme (ýêâèâàëåíò åâðî). Þçåð ñàì âûáèðàåò, ñ êàêîé âàëþòîéåìó óäîáíåå ïðîâîäèòü ìàíèïóëÿöèè. Ïðè ïåðâîé ðåãèñòðàöèèíåîáõîäèìî ââåñòè íåêîòîðûå äàííûå (ôàìèëèÿ, èìÿ,àäðåñ è ò.ä.), ýòè ñâåäåíèÿ íèêàê íå ïðîâåðÿþòñÿ è íå äîëæíûáûòü îáÿçàòåëüíî äîñòîâåðíûìè. Äëÿ àóòåíòèôèêàöèèïîëüçîâàòåëÿ íà êîìïüþòåðå õðàíÿòñÿ ñïåöèàëüíûå ôàéëû ñòàê íàçûâàåìûìè êëþ÷àìè. Áåç íèõ ðàáîòàòü ñ ñèñòåìîé íåâîçìîæíî,îíè ñëóæàò ãàðàíòîì áåçîïàñíîñòè.