elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Ayuda]Programa Que Envie Paquetes Hexadecimales Por Medio De Winsok
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Ayuda]Programa Que Envie Paquetes Hexadecimales Por Medio De Winsok  (Leído 5,693 veces)
ViRuS-DoKtOr

Desconectado Desconectado

Mensajes: 9


Ver Perfil
[Ayuda]Programa Que Envie Paquetes Hexadecimales Por Medio De Winsok
« en: 8 Junio 2009, 17:37 pm »

Hola ,,, Yo Quiero Crear Un Programa Que Envie Codigos A Servidores Remotos


Ejemplo Que Envie Paquetes Hexadecimales Tipo : C1 03 BC 48 DA
 

Ejemplo Este Programa Hecho Con Winsok :

pero en vez de enviar archivos .. envie paquetes


este es el code mio ....

Option Explicit


Private Declare Function GetFileTitle _
Lib "comdlg32.dll" _
Alias "GetFileTitleA" ( _
ByVal lpszFile As String, _
ByVal lpszTitle As String, _
ByVal cbBuf As Integer) As Integer

Private Sub Command1_Click()
On Error Resume Next
'conectamos al servidor. El Text1 es la dirección IP y el Text2 es el puerto
Winsock1.Connect Text1, Text2
Command1.Enabled = False
End Sub

Private Sub Command2_Click()

Dim sFileName As String
'Comprobamos que hay un archivo a enviar
If Trim(Text3) = "" Then
MsgBox "Debe elegir un archivo"
Exit Sub
End If

If Dir(Text3) <> "" Then
sFileName = GetFileName(Text3)

'Enviamos los datos (El tamaño, y el nombre)
Winsock1.SendData "|Archivo|" & FileLen(Text3) & "|" & sFileName
Else
MsgBox "El archivo no existe"
End If

End Sub


Private Sub Form_Load()
'Ip del formulario servidor
Text1 = "127.0.0.1"
'Puerto
Text2 = "3000"
Text3.Enabled = True
Command1.Caption = "Conectar"
Command2.Caption = "Enviar"
Me.Caption = "Cliente"
End Sub

Private Sub Winsock1_Close()

On Error Resume Next

Command1.Enabled = True
Command2.Enabled = False

'Cerramos el winsock
Winsock1.Close

MsgBox "La Conexion se ha cerradado", vbInformation
End Sub

Private Sub Winsock1_Connect()
Command1.Enabled = False
Command2.Enabled = True

MsgBox "Conectado correctamente al servidor"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
Winsock1.GetData sData, vbString

If sData = "|Ok|" Then Call Enviar_Archivo
End Sub

Private Sub Winsock1_Error( _
ByVal Number As Integer, _
Description As String, _
ByVal Scode As Long, _
ByVal Source As String, _
ByVal HelpFile As String, _
ByVal HelpContext As Long, _
CancelDisplay As Boolean)

On Error Resume Next

Command1.Enabled = True
Command2.Enabled = False
'Cerramos el winsock
Winsock1.Close
MsgBox "Error al cerrar la conexion"
End Sub

Private Sub Enviar_Archivo()
Dim Size As Long
Dim arrData() As Byte

Open Text3 For Binary Access Read As #1

'Obtenemos el tamaño exacto en bytes del archivo para
' poder redimensionar el array de bytes
Size = LOF(1)
ReDim arrData(Size - 1)

'Leemos y almacenamos todo el fichero en el array
Get #1, , arrData
'Cerramos
Close

'Enviamos el archivo
Winsock1.SendData arrData

End Sub

Private Function GetFileName(sPath As String)
Dim sBuffer As String * 255
Dim sTemp As String

GetFileTitle sPath, sBuffer, Len(sBuffer)
GetFileName = Left(sBuffer, InStr(1, sBuffer, Chr(0)) - 1)
End Function

cuando lo hago y pongo el codigo y le doy enviar me dice ''El Archivo No Existe''
O.o ... cuando pngo un archivo si sirve pero lo que yo quiero es enviar codigos no archivos ^^


« Última modificación: 9 Junio 2009, 03:21 am por ViRuS-DoKtOr » En línea

LookArounD[xD]

Desconectado Desconectado

Mensajes: 11


Ver Perfil
Re: [Ayuda]Programa Que Envie Paquetes Hexadecimales Por Medio De Winsok
« Respuesta #1 en: 8 Junio 2009, 18:22 pm »

Te conozco  :¬¬

Lo Mismo Quiero Hacer Yo.. y No Me Sale


En línea

Fr4NN^

Desconectado Desconectado

Mensajes: 56



Ver Perfil
Re: [Ayuda]Programa Que Envie Paquetes Hexadecimales Por Medio De Winsok
« Respuesta #2 en: 8 Junio 2009, 18:26 pm »

es lo mismo q enviar un archivo porq lo q estas haciendo es enviar packetes que despues en el server los unís y forma el archivo con la diferencia que antes de enviar el mensaje aca lo vas a tener q pasar a hexadecimal. Busca un tutorial cliente-server y vas a ver
En línea

Leyendo se aprende
ViRuS-DoKtOr

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Re: [Ayuda]Programa Que Envie Paquetes Hexadecimales Por Medio De Winsok
« Respuesta #3 en: 8 Junio 2009, 18:28 pm »

NO ME SIRVE ME DICE QUE SOLO ES PARA ENVIAR ARCHIVOS NO PACKETES
« Última modificación: 8 Junio 2009, 22:24 pm por ViRuS-DoKtOr » En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: [Ayuda]Programa Que Envie Paquetes Hexadecimales Por Medio De Winsok
« Respuesta #4 en: 9 Junio 2009, 02:00 am »

NO ME SIRVE ME DICE QUE SOLO ES PARA ENVIAR ARCHIVOS NO PACKETES

mmm pero no te exasperes bro...¡! lo que debes saber es que para enviar texto, datos binarios, archivo (EXe, jpg, todo lo que se t ocurra) por medio el Winsock o derivados. se mandan de la misma forma TODOS.

Busca en el foro un manual de Winsock que basta cantidad de esto.

P.D.: Lee un manual/tuto de esto.¡!
« Última modificación: 9 Junio 2009, 02:05 am por ░▒▓BlackZeroҖ▓▒░ » En línea

The Dark Shadow is my passion.
ViRuS-DoKtOr

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Re: [Ayuda]Programa Que Envie Paquetes Hexadecimales Por Medio De Winsok
« Respuesta #5 en: 9 Junio 2009, 03:26 am »

men hay puse el codigo que consegui .. pero cuando le envio el codigo me dice ''El Archivo No Existe'' Pero Cuando Pongo Un Archivo Si Lo Manda ^ La Idea Es Mandar Codigos Ejemplo : C1 03 BC 48 DA
En línea

Spider-Net


Desconectado Desconectado

Mensajes: 1.165


Un gran poder conlleva una gran responsabilidad


Ver Perfil WWW
Re: [Ayuda]Programa Que Envie Paquetes Hexadecimales Por Medio De Winsok
« Respuesta #6 en: 9 Junio 2009, 08:03 am »

men hay puse el codigo que consegui .. pero cuando le envio el codigo me dice ''El Archivo No Existe'' Pero Cuando Pongo Un Archivo Si Lo Manda ^ La Idea Es Mandar Codigos Ejemplo : C1 03 BC 48 DA

Empieza por aprender a programar y cuando tengas dudas de verdad preguntas...
En línea

DArKgØD™

Desconectado Desconectado

Mensajes: 5


Ver Perfil
Re: [Ayuda]Programa Que Envie Paquetes Hexadecimales Por Medio De Winsok
« Respuesta #7 en: 9 Junio 2009, 17:51 pm »

Mmm bueno yo ando en lo mismo  :silbar: la idea original es mia a lo que se refieren es a un sniffer,queresmos capturar packet que viajan atraves del  cliente al servidor para asi modificarlo!

se puede cerrar el tema ya esta solucionado!
En línea

ViRuS-DoKtOr

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Re: [Ayuda]Programa Que Envie Paquetes Hexadecimales Por Medio De Winsok
« Respuesta #8 en: 9 Junio 2009, 18:15 pm »

^^ quien lo soluciono ??? O.o?
En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: [Ayuda]Programa Que Envie Paquetes Hexadecimales Por Medio De Winsok
« Respuesta #9 en: 9 Junio 2009, 19:34 pm »

Hola ,,, Yo Quiero Crear Un Programa Que Envie Codigos A Servidores Remotos


Ejemplo Que Envie Paquetes Hexadecimales Tipo : C1 03 BC 48 DA
 

Ejemplo Este Programa Hecho Con Winsok :

pero en vez de enviar archivos .. envie paquetes


este es el code mio ....

Option Explicit


Private Declare Function GetFileTitle _
Lib "comdlg32.dll" _
Alias "GetFileTitleA" ( _
ByVal lpszFile As String, _
ByVal lpszTitle As String, _
ByVal cbBuf As Integer) As Integer

cuando lo hago y pongo el codigo y le doy enviar me dice ''El Archivo No Existe''
O.o ... cuando pngo un archivo si sirve pero lo que yo quiero es enviar codigos no archivos ^^


men hay puse el codigo que consegui .. pero cuando le envio el codigo me dice ''El Archivo No Existe'' Pero Cuando Pongo Un Archivo Si Lo Manda ^ La Idea Es Mandar Codigos Ejemplo : C1 03 BC 48 DA

Que tipos tan extraños...¡! primero q es de el, depsues que lo consigue mmm raros.¡! (Si fuera de el sabria donde esta el error...¡!).

P.D.: los paquetes si es para el muOnline no podran mas que solo teletransportase/pegar mas rapido...¡! pero en un mismo mapa (Lo mensionaron en un Post Anterior...¡!)... pero al cazo no va al tema.¡!, por cierto el codigo esta deplorable usan mucho "On Error Resume Next" y sin validaciones xS
« Última modificación: 9 Junio 2009, 19:51 pm por ░▒▓BlackZeroҖ▓▒░ » En línea

The Dark Shadow is my passion.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

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