| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
"шифруемся" в net send
arp © (2004-04-28 16:51:00)Люди знающие, как отправить сообщение net send'ом так что бы имя отправителя не было показанно
SammIk (2004-05-27 10:02:00) [1]http://logid.narod.ru/PopUp.zip
pasher (2004-05-27 01:31:00) [2]С NetMessageBufferSend всё просто. Вот кто бы сказал, как всему домену мессагу этим путём отправить ??? Как делает Net send * Message ... Localhost как имя отправителя воспринимается, LocalDomain почему-то нет :))
Очень легко:
NET_API_STATUS NetMessageBufferSend(
LPTSTR servername,
LPTSTR msgname,
LPTSTR fromname,
LPBYTE buf,
DWORD buflen
);
В параметре LPTSTR msgnameпишешь имя машины,с символом
'*' на конце.
RedCow (2004-05-10 19:17:00) [3]С NetMessageBufferSend всё просто. Вот кто бы сказал, как всему домену мессагу этим путём отправить ??? Как делает Net send * Message ... Localhost как имя отправителя воспринимается, LocalDomain почему-то нет :))
Lamer2004 (2004-05-02 14:42:00) [4]Удалено модератором
Примечание: Задай свой вопрос с своей ветке и еще одна наппадка на модератора и тогда придется задуматься
Lamer2004 (2004-05-01 21:13:00) [5]Удалено модератором
Примечание: Личная переписка
BlackTr (2004-04-30 14:25:00) [6]Там нужно было указать 3 параметр From
arp (2004-04-30 09:53:00) [7]Rouse_ © вот этот код теперь и правда работает.
А тот не работает не известно почему.
BlackTr (2004-04-30 09:38:00) [8]А че не работает то ?
Вот счас попробовал, все замечательно работает
Rouse_ (2004-04-30 09:38:00) [9]ну попробуй вот этот код, тот я не проверял:
const
NetApi32 = 'NetApi32.dll';
function NetMessageBufferSend(
servername:PWideChar ;
msgname:PWideChar ;
fromname:PWideChar ;
buf:PWideChar ;
buflen:DWORD):DWORD;stdcall;
var
Form1: TForm1;
implementation
function NetMessageBufferSend; external NetApi32 name 'NetMessageBufferSend';
{$R *.dfm}
Function SendLanMessage(FromName,ToName:String;Text:String):Boolean;
Var
RName,TName,HostName: LPCWSTR;
buf: Pointer;
size: Integer;
Begin
Result:=True;
HostName:=nil;
size := SizeOf (WideChar) * Length (FromName)+1;
GetMem (RName, Size);
RName :=StringToWideChar (FromName, RName, Length (FromName)+1);
size := SizeOf (WideChar) * Length (ToName)+1;
GetMem (TName, Size);
TName :=StringToWideChar (ToName, TName, Length (ToName) + 1);
size := SizeOf (WideChar) * Length (text)+1;
GetMem (buf, Size);
try
PWideChar (Buf) := StringToWideChar (text, buf, Length (text) + 1);
If NetMessageBufferSend (HostName, rname, tname, buf, size) <> NO_ERROR
then Result:=False;
finally
FreeMem(buf);
if assigned(TNAME) then FreeMem(TName);
if assigned(RNAME) then FreeMem(RName);
if assigned(HOSTNAME) then FreeMem(HOSTNAME);
end;
End;
но если и этот не работает, то тогда ты точно косячишь :)
BiN (2004-04-30 09:37:00) [10]Может это конечно касячу я, но пару людей пробовали тоже и у них она тоже не работала.
LOL
Это что, те люди которые пользуются кодом из [11]?
arp (2004-04-30 08:10:00) [11]Rouse_ © по тому адресу куда ты отпавил ( http://www.delphimaster.ru/cgi-bin/forum.pl?id=1083084021&n=4) не работает эта функция. Кстати я уже давно это хотел сказать:-)). Вот. Она безусловно совершает какие то действия, только все эти действия ни к чему хорошему не приводят.
Может это конечно касячу я, но пару людей пробовали тоже и у них она тоже не работала.
Rouse_ (2004-04-29 22:23:00) [12]Код отправки приводился уже сотни раз, эта тема настолько уже изжована. Если лень искать, то ничего, я сам поищу, не гордый...
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1083084021&n=4
Lena19 (2004-04-29 21:13:00) [13]не слабо
мето на сервере жалко занимать
и скорее всего его удалят так как он весьма фнушительных размеров
а вырезать из проекта кусок кода лениво а так весь исходник дам
Iks (2004-04-29 21:01:00) [14]>Lena19
>не зажал бы мыло далаб исходник
а что исходный код слабо выложить ???
Lena19 (2004-04-29 20:55:00) [15]не зажал бы мыло далаб исходник
arp (2004-04-29 19:24:00) [16]Ну модно подробно и как отсылаются. Хотелось бы знать.
Отключить не могу эту службу. Нужна она обязательно (такое желание у начальства). А вот всякие пользуются наверно таким кодом (или чем то подобным):
while (true) do
begin
WinExec('NET SEND 192.168.0.1 Атака',SW_SHOW);
sleep(100);
end;
и просто достали.
Rouse_ (2004-04-29 16:02:00) [17]> а поподробнее можно про это?
Поподробней как посылают или как бороться?
Если про бороться то отключить
arp (2004-04-29 14:03:00) [18]> Для этого они используют NetMessageBufferSend или мэйлслоты...
а поподробнее можно про это? как-нибудь с этим можно бораться не отключая службу сообщений?
Rouse_ (2004-04-29 12:52:00) [19]> вот хочу узнать как таких можно выловать и как вообще они
> это делают
Для этого они используют NetMessageBufferSend или мэйлслоты...
arp (2004-04-29 12:03:00) [20]Скачал программу LANguard. Все по англиски:-)). предстоит долго и муторно разбираться как там что
| |
Страницы: 