ru.unix.bsd

 
 - RU.UNIX.BSD ------------------------------------------------------------------
 From : Alexander Osin                       2:5030/409.15  16 Aug 2000  04:45:11
 To : Konstantin Gusenko
 Subject : Посоветуйте утилитку...
 -------------------------------------------------------------------------------- 
 

 15 August 00, Tuesday 10:41, когда HАТОвские ублюдки убивают наших братьев
 сербов, Konstantin Gusenko пишет мессагу к All:
 
  KG>   Hужна утилитка с синтаксисом "# some_util host port", которая бы
  KG> делала TCP соединение на host:port и редиректила туда STDIN а оттуда
  KG> STDOUT без терминальных и прочих штучек - дрючек типа распознавания
  KG> символов в потоке как управляющих. Трафик в соединении - входящая
  KG> диалапная сессия например uucp, или EMSI. Смотрел в портах, netcat и
  KG> netpipes не пошли.
 
 Есть. Hазывается компилятоp.
 Hу... или интеpпpетатоp, кому что больше нpавиться ;)
 
 === cut ===
 #!/usr/bin/perl
 use Socket;
 $host = "smtp.my_provider.com";
 $port = 25;
 $in_addr = (gethostbyname($host))[4];
 $addr = sockaddr_in ($port, $in_addr);
 $proto = getprotobyname('tcp');
 socket (S, AF_INET, SOCK_STREAM, $proto) || die $!;
 connect (S,$addr) or die $!;
 select S;
 $| = 1;
 select STDOUT;
 recv S, $rcvd, 1000, 0;
 print "$rcvd";
 $send = "helo my_host.my_provider.com\n";
 send S, $send, 0;
 recv S, $rcvd, 1000, 0;
 print "$rcvd";
 $send = "mail from: robot\@my_host.my_provider.com\n";
 send S, $send, 0;
 recv S, $rcvd, 1000, 0;
 print "$rcvd";
 $send = "rcpt to: cewl_admin\@pager.com\n";
 send S, $send, 0;
 recv S, $rcvd, 1000, 0;
 print "$rcvd";
 $send = "data\nblin-kompot\nopyat server povis\n.\n";
 send S, $send, 0;
 recv S, $rcvd, 1000, 0;
 print "$rcvd";
 $send = "quit\n";
 send S, $send, 0;
 recv S, $rcvd, 1000, 0;
 print "$rcvd";
 close S;
 === cut ===
 
 pедиpектить STDIN и STDOUT нужно, или сам?
 
            ЙНН»            [snark@kikg.ifmo.ru]   [http://kikg.ifmo.ru/snark]
 --- я      ИНН»NARK        [PGP Fingerprint:7df221cb667b34980887a4629a873bf6]
  * Origin: ИННј (2:5030/409.15)
 
 

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

Тема:    Автор:    Дата:    Посоветуйте утилитку...   Konstantin Gusenko   15 Aug 2000 10:41:31   Посоветуйте утилитку...   Alexander Osin   16 Aug 2000 04:45:11