Underc0de - Hacking y seguridad informática

Programación Scripting => Perl => Mensaje iniciado por: BigBear en Julio 03, 2011, 09:43:57 pm

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

Código: Perl
  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: Perl
  1. hideit("test.pl","show");
  2.