Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ElChispa en 25 Enero 2012, 09:22 am



Título: Send packet
Publicado por: ElChispa en 25 Enero 2012, 09:22 am
Hola gente necesito una mano si alguien me puede guiar
Necesito crear una aplicación que edite los paketes de otra aplicación
Como el Wpe Pro , que envia Sock , necesito hacer lo mismo
Pero que mi aplicación lo haga , Si alguien me puede ayudar
Estaría muy agradecido
ya que en esto estoy hace 2 semanas buscando ya eh hecho muchos post
en otros foros , pero no ahi respuestas S: . Espero que alguien me responda esta vez
Hasta luego !  :-[


Título: Re: Send packet
Publicado por: BlackZeroX en 25 Enero 2012, 09:32 am
inyecta una dll y hookea las apis que manejan Winsock...

Dulces Lunas!¡.


Título: Re: Send packet
Publicado por: BlackZeroX en 25 Enero 2012, 22:24 pm
Leete esto:

http://msdn.microsoft.com/en-us/library/windows/desktop/ms632589%28v=vs.85%29.aspx

Dulces Lunas!¡.


Título: Re: Send packet
Publicado por: ElChispa en 25 Enero 2012, 23:13 pm

Le puedo implentar algo para que este codigo funcione ? o algo asi

Option Explicit


Private Sub about_Click()
frmAbout.Show
End Sub

      Private Sub Command1_Click()
        winsock1.SendData "7D 05"
      End Sub

Private Sub credits_Click()
frmCredits.Show
End Sub

      Private Sub Form_Load()
         Command1.Enabled = False
         winsock1.Connect "61.19.250.152", 2104
         frmSplash.Show

      End Sub

      Private Sub Form_Unload(Cancel As Integer)
         winsock1.Close
         frmSplash.Hide
      End Sub

      Private Sub Winsock1_Connect()
         Command1.Enabled = True
      End Sub

      Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
         Dim temp As String
         temp = String(bytesTotal, Chr$(0))
         winsock1.GetData temp, vbString, bytesTotal
         MsgBox temp
      End Sub

Para hacer algo como esto

(http://img820.imageshack.us/img820/8614/estog.png) (http://imageshack.us/photo/my-images/820/estog.png/)