ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     12 Mar 2002  15:01:00
 To : Alexander Lunkov
 Subject : Re: промиск
 -------------------------------------------------------------------------------- 
 

 Alexander Lunkov wrote:
 
 > 01 января 1970, Vladimir Podgorny wrote to Alexander Lunkov:
 > 
 >  >>    Hа перле сетевушку в сабж перевести реально?
 > 
 >  VP> my $iface = 'eth0';
 >  VP> my $errorcode = system("/sbin/ifconfig $iface promisc");
 > 
 >     А win?
 
 Hа win, да и на большистве *nix-ов нет документированых способов
 перевести интерфейс в promiscious mode изменяя свойства самого
 интерфейса. Интерфейс находится в promiscious mode до тех пор
 пока открыт хоть один сокет в этом режиме. Чтобы это не было совсем
 уж оффтопиком, вот пример на Perl для Win2k:
 #!/usr/bin/perl -w
 use strict;
 use Socket;
 use constant SIO_RCVALL => 0x98000001;
 
 # IP address of Ethernet interface we will listen
 my $ipaddr = '192.168.1.1';
 
 # Create RAW socket
 socket(S, AF_INET, SOCK_RAW, 0) or die $!;
 
 # Bind socket to interface we will listen
 bind(S, sockaddr_in(0, inet_aton($ipaddr))) or die $!;
 
 # Set promiscious mode
 my $opt = pack('i', 1);
 ioctl(S, SIO_RCVALL, \$opt) or die $!;
 
 # Read paw packets
 while (defined(recv(S, my $buf, MAX_IP_SIZE, 0))) {
      # .....
 }
 Андрей
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    промиск   Alexander Lunkov   06 Mar 2002 23:28:15   Re: промиск   Vladimir Podgorny   07 Mar 2002 12:25:16   промиск   Alexander Lunkov   08 Mar 2002 07:14:58   Re: промиск   Andrey Sapozhnikov   12 Mar 2002 15:01:00