Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: BigBear en 12 Octubre 2011, 16:43 pm



Título: [Perl] Funcion hideit()
Publicado por: BigBear en 12 Octubre 2011, 16:43 pm
Con esta funcion podran esconder o mostraR archivos/directorios ocultos en windows

Código
  1. #By Doddy H
  2. use Win32::File;
  3.  
  4. sub hideit {
  5. if ($_[1] eq "show") {
  6. Win32::File::SetAttributes($_[0],NORMAL);
  7. }
  8. elsif ($_[1] eq "hide") {
  9. Win32::File::SetAttributes($_[0],HIDDEN);
  10. }
  11. else {
  12. print "error\n";
  13. }
  14. }
  15.  

Ejemplo de uso show/hide

Código
  1. hideit("test.pl","show");
  2.  
  3.