Programovani - perl
yanek
yanek na yankuv.koniec.sk
Sobota Prosinec 8 22:48:35 CET 2001
# OK, tak s barvou ven. Chci takhle obejit posilani SMS pres eurotelackou
# branu. Protoze oni maji formular, kde nazvy poli se generuji nahodne, tak ten
# vrchni postup by nemohl fungovat. Takze zbyva postup, ze data se odeslou na
# muj perlovskej skript, kterej uz vyplni ten formular a odesle jej za me.
# A tak to muze fungovat se vsema operatorama :-)
$socket = IO::Socket::INET->new('www.nejakyweb.cz:80') or die "neni";
$socket->autoflush(1);
$data = 'ppp='.$ppp.'&number='.$cislo.'&message='.$message.'&predcisli=0'.$predvolba;
$delka = length($data);
$header = "POST http://www.nejakyweb.cz/send.php3 HTTP/1.0\n";
$header .= "Host: www.nejakyweb.cz\n";
$header .= "Accept: application/vnd.ms-excel, application/msword, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*\n";
$header .= "Accept-Encoding: gzip, deflate\n";
$header .= "Accept-Language: cs,cz;q=0.5\n";
$header .= "Content-Length: ".$delka."\n";
$header .= "Content-Type: application/x-www-form-urlencoded\n";
$header .= "Pragma: no-cache\n";
$header .= "Referer: http://www.nejakyweb.cz/script.php3\n";
$header .= "User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; MSNATLAS01.CZ)\n";
$header .= "\n" . $data . "\n";
print $socket $header;
neco takoveho ?
--
[~~~~~~~~ yanek <yanek na yankuv.koniec.sk> ~~~~~~~~~~~~~~~~~~~~]
| LiNUX-Server/Perl http://yankuv.koniec.sk/ |
[____________________________________________________________]
Antivirus alert: file .signature infected by signature virus.
Hi! I'm a signature virus! Copy me into your signature file to help me spread!
Další informace o konferenci Linux