ANTICHAT - Net Send ???

ANTICHAT (https://forum.antichat.xyz/index.php)

- Защита ОС: вирусы, антивирусы, файрволы. (https://forum.antichat.xyz/forumdisplay.php?f=80)

- - Net Send ??? (https://forum.antichat.xyz/showthread.php?t=23913)

Сниффер мессаг нетсенда. Принимает все пакеты, определяет их айпи и имя(в случае несоответствия имени реальному айпи сообщение подсвечивают красным - значит сообщение подставное). Так же прога умеет отправлять собщения от кого-угодно к кому-угодно.
http://sec-123.narod.ru/facksenders/PopCapturer11.exe

Более подробно о этой и прочих программах я писал здесь:
http://forum.antichat.ru/thread11384.html

Однако чтение привата вам обломится только в том случае, если сеть на хабах.

Есть спасение. Идём вот сюда http://forum.antichat.ru/thread21282.html
Ставим плюсики sn0w и качаем релиз.
Отравляем кэш юзверю, которого хотим подслушать. Весь трафик жертвы(в том числе и нетсенд-сообщения попрут через ваш комп).
Так же можно воспользоваться снифером Каин&Абель.

Всё. Будите видеть чужую переписку.

Интранет-чат известен своей бажностью. Есть даже проект ему посвященный =)
http://ikill.fatal.ru

Скорей всего снифером. Я у себя в техникуме послал один раз вот так net send * fuck of lamo's так патом со всех кабинетов прибижали и орали на меня :)

Elekt проект этот закрыт и на нем не обновлении нифига нету, только есть как перехватывать сообщение и то я ели додумался до процесса

Если надоели месаги с рекламой, отсылаемые через net send то

while h=0 do h:=Findwindow(nil,'служба сообщений Windows');
Sendmessage(h, SC_Close);

и все это в бесконечном цикле.

Синтаксис точно не помню

Насчет нетсенда - я же все выкладывал

Код:

function NetSend(Dest, Source, Msg: string): Longint;

  type

TNetMessageBufferSendFunction = function(servername,

                                           msgname,

                                           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;

Со спуфингом отправителя.В xp sp2 не пашет даже отправка.И,кстати,тамже и флуд протект.Но лучше всего отрубить службу сообщений и ничего не получать

А вот и сама програма ( писалась 2 года назад )

http://www.mytempdir.com/978874

Цитата:

Сообщение от vvs777

проще в командной строке (или выполнить) net stop messenger вот и все.

Elekt Решпект как всегда по делу и кратко !!! :) Всё работает ! А может кто знает как расшифровать сообщения QIP при условии что что сообщения отправляются под паролем ? спасибо за внимание !!!