Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
и что с этим текстом делать??? 30.11.01 15:42 Число просмотров: 1395
Автор: Natyral Статус: Незарегистрированный пользователь
|
#!/usr/local/bin/perl
############################################################
# Configuration
# Your proxy server
$host="127.0.0.1";
$host1="web.icq.com";
$port="3128";
$data_length=length($data);
$path="http://web.icq.com/whitepages/change_details/1,,,00.html";
############################################################
print <<END;
Content-Type: text/html\n\n
<html>
<head>
<title>ICQ Paasword Checker</title>
</head>
<body>
ICQ Paasword Checker<p>
END
############################################################
print "Proxy: $host<br>\n";
print "Port: $port<br>\n";
print "Path: $path<br>\n";
print "DataLength: $data_length\n";
print "Host asked to use: $host1<p>\n\n\n";
use IO::Socket;
my ($remote) = IO::Socket::INET->new(Proto => "tcp", PeerAddr => $host, PeerPort => $port);
(die "can't connect: $!\n") unless scalar ($remote);
print $remote "POST $path HTTP/1.0\n";
print $remote "Accept: application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg,/;
print $remote "Accept-Language: ru,en\n";
print $remote "Accept-Charset: windows-1251,koi8-r,iso-8859-5,cp866,*\n";
print $remote "Content-Type: application/x-www-form-urlencoded\n";
print $remote "Accept-Encoding: gzip, deflate\n";
print $remote "User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows NT)\n";
print $remote "Host: $host1\n";
print $remote "Content-Length: $data_length\n";
print $remote "Proxy-Connection: Keep-Alive\n";
print $remote "Pragma: no-cache\n";
print $remote "Cookie: KarmaLogin=C6E09CBAA76BF435CB6FDF422C303E38EC1320B416115CCF85DD5C56DFF0085790186AC50C7DEF805CEDADAC4EB5AAABBB5541B9; KarmaService4=Yes; uin=123456; KarmaLogin=C6E09CBAA7635CDE675AB6FDF422C303E38EC1320B416115CCF85DD5C56DFF0085790186AC50C7DF805CEDAD54EB5AAABBB5541B9; KarmaService4=Yes; uin=123456\n\n";
print $remote "uService=4&Uin=123456&Password=pas%20%20w&SEND=Submit";
# pas%20%20w - Пасс, "pas w"
# 123456 - номер аси
my (@lines) = <$remote>;
close $remote;
# print "@lines";
$error="1";
foreach $line (@lines) {
if ( $line =~ /Update Details of ICQ/ ){
$error=0;
}
}
if ($error == 1){
# Zapuskat programmu otsuda!
print "Error!\n";
foreach $line(@lines) {
print "$line";
}
}
else {
print "<h3>Result?!</h3>\n<br>";
foreach $line(@lines) {
print "$line";
}
}
############################################################
print <<END;
</html></body>
END
############################################################
1;
что с этим текстом делать?
|
|
|