|
ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Vadim Naimushin 2:5080/101 17 Dec 2002 09:41:56
To : Zahar Kiselev
Subject : Re: исследование сети и машины
--------------------------------------------------------------------------------
06 Dec 2002 09:08, you wrote to Anton Kovalenko:
AK>> Именно проксю. Точнее, http проксю (потому и http), через
AK>> которую
AK>> можно сходить методом CONNECT на _чужой_ 25 порт.
ZK> А на 25 порт зачем? Через http проксю разве можно не только по сайтам
ZK> лазать, но и письма посылать? Вот не знал.
=== Cut ===
#!/usr/bin/perl
#
# taty.pl
# A simple script for sending e-mails via HTTP proxy servers
#
# usage: taty.pl < message.txt
# message.txt file contains message to send
#
#
# Alexander Yurchenko <grange@rt.mipt.ru>
#
use IO::Socket;
$proxyhost = 'proxy.domen.ru';
$proxyport = '3128';
$smtpserver = 'mail.domen.ru';
$sender = '<sendername@domen.ru>';
$recipient = '<receipname@domen.ru>';
local $/ = undef;
$message = <Try to catch me...>;
$smtpdata = "HELO $proxyhost\n";
$smtpdata .= "MAIL FROM: $sender\n";
$smtpdata .= "RCPT TO: $recipient\n";
$smtpdata .= "DATA\n";
$smtpdata .= "$message\n.\n";
$smtpdata .= "QUIT\n";
$request = "POST http://$smtpserver:25/ HTTP/1.0\n";
$request .= "Host: $smtpserver\n";
$request .= "Content-type: application/x-www-form-urlencoded\n";
$request .= "Content-length: ".length($smtpdata)."\n\n";
$request .= "$smtpdata";
$socket = IO::Socket::INET->new(PeerAddr => $proxyhost,
PeerPort => $proxyport,
Proto => 'tcp',
Type => SOCK_STREAM)
or die "could not connect to $proxyhost:$proxyport : $!\n";
print $socket $request;
$answer = <$socket>;
close($socket);
print "SMTP session log:\n\n$answer";
=== Cut ===
Vadim
--- GEcho 1.20/Pro
* Origin: Good night everybody. (2:5080/101)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
