А на счёт Л.С

[SMK]

Люди ктонить пробывал сервака ломать в локальной сети?
А как можно в сетке сообщение отослать прям на рабочий стол.Или забросать его сообщениями.?
А то в чате не прикольно он сразу выходит. :mad:

[r0]

net send сообщение

[max_pain89]

Все зависит от корявой настройки сети. Раньше и у нас в сети можно было флудить пакетами Винды. Утилита обозвана net.
Пишешь в командной строке (очень занимает на уроках информатики).

net send 127.0.0.1(или другой ип) Ха-ха-ха, ты придурок!

мдя, в мелком окне сообщения будет написан ип отправителя, так что придумай что-нить, но соксы не катят.

зипать можно создав бат'никсодержанием

net send 127.0.0.1(или другой ип) Ха-ха-ха, ты придурок!
net send 127.0.0.1(или другой ип) Ха-ха-ха, ты придурок!
net send 127.0.0.1(или другой ип) Ха-ха-ха, ты придурок!
net send 127.0.0.1(или другой ип) Ха-ха-ха, ты придурок!
net send 127.0.0.1(или другой ип) Ха-ха-ха, ты придурок!
net send 127.0.0.1(или другой ип) Ха-ха-ха, ты придурок!
net send 127.0.0.1(или другой ип) Ха-ха-ха, ты придурок!
net send 127.0.0.1(или другой ип) Ха-ха-ха, ты придурок!
net send 127.0.0.1(или другой ип) Ха-ха-ха, ты придурок!
много раз



Издеваться же над всеми можно так.
net send * Ха-ха-ха, я великий Мандавоше!

[gemaglabin]

У тебя после таких нетсендов айпи светится : )


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;


Использовать чтото типа


netsend('127.0.0.2','BOG','Anti4at foreva');


Ну а если хочешь флудер то в цикле все это делай

От таких вот урюков есть защита - отрубить сервис сообщений ( он так и называется ) или же по таймеру допустим в 1мсек исполнять такйо вот код

wnd:=findwindow(nil,'Служба сообщений ');
if wnd=0 then exit;
sendmessage(wnd1,wm_close,0,0);


Да,кстати,в винхп сп2 не катит такая фишка %)

[SMK]

АХАХАХ маленькая фишка ,но пойдёт спасибо всем.

[Azazel]

Целый день сегодня виртуалку ломал. За Isa сервером хрен ты до локалки доберёшся. Я про винду. Хрен ты что сделаешь. Не правда-ли?

[Ch3ck]

Программа Net Send.
Вот скачай, так удобней будет отсылать...
_http://www.delphisources.ru/pages/sources/internet/2_internet.html

[SMK]

http://www.delphisources.ru/pages/sources/internet/2_internet.html
Чёт прога дурацкая.
AZAZEL
сделать можно всё если напряч мозги.