31.08.2006, 16:14
|
|
Banned
Регистрация: 01.08.2006
Сообщений: 725
Провел на форуме:
7681825
Репутация:
4451
|
|
У тебя после таких нетсендов айпи светится : )
PHP код:
function NetSend(Dest, Source, Msg: string): Longint;
type
TNetMessageBufferSendFunction = function(servername,
msgname,
s fromname: PWideChar;
buf: PWideChar;
buflen: Cardinal): Longint; stdcall;
var
NetMessageBufferSend: TNetMessageBufferSendFunction;
SourceWideChar: PWideChar;
DestWideChar: PWideChar;
MessagetextWideChar: PWideChar;
Handle: THandle;
begin
Handle := LoadLibrary('NETAPI32.DLL');
if Handle = 0 then
begin
Result := GetLastError;
Exit;
end;
@NetMessageBufferSend := GetProcAddress(Handle, 'NetMessageBufferSend');
if @NetMessageBufferSend = nil then
begin
Result := GetLastError;
Exit;
end;
MessagetextWideChar := nil;
try
GetMem(MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
GetMem(DestWideChar, 20 * SizeOf(WideChar) + 1);
StringToWideChar(Msg, MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
StringToWideChar(Dest, DestWideChar, 20 * SizeOf(WideChar) + 1);
if Source = '' then
Result := NetMessageBufferSend(nil, DestWideChar, nil,
MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1)
else
begin
GetMem(SourceWideChar, 20 * SizeOf(WideChar) + 1);
StringToWideChar(Source, SourceWideChar, 20 * SizeOf(WideChar) + 1);
Result := NetMessageBufferSend(nil, DestWideChar, SourceWideChar,
MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
FreeMem(SourceWideChar);
end;
finally
FreeMem(MessagetextWideChar);
FreeLibrary(Handle);
end;
end;
Использовать чтото типа
PHP код:
netsend('127.0.0.2','BOG','Anti4at foreva');
Ну а если хочешь флудер то в цикле все это делай
От таких вот урюков есть защита - отрубить сервис сообщений ( он так и называется ) или же по таймеру допустим в 1мсек исполнять такйо вот код
PHP код:
wnd:=findwindow(nil,'Служба сообщений ');
if wnd=0 then exit;
sendmessage(wnd1,wm_close,0,0);
Да,кстати,в винхп сп2 не катит такая фишка %)
|
|
|