 Autor
|
Tema: |VB| Dudas sobre Protocolo MSN (Leído 11,281 veces)
|
m[a]rkus
 Desconectado
Mensajes: 64
Si juegas a ser hacker piensa como un hacker.
|
Hola a todos, eh creado este tema para todo aquel que tenga dudas con respecto al protocolo MSN y el uso del mismo en visual basic. Comenzare yo ... Ya estoy conectado a una cuenta mia de MSN, sincronizados los contactos, perfectamente en funcionamiento el evento "PING" de msn, pero ahora quiero cambiar el nick de esa cuenta y segun el protoclo es asi : REA TrID tu_cuenta_de_hotmail@hotmail.com nuevo_nick Y asi lo tengo yo en el evento "Command1_Click" Private Sub Command1_Click()
SEG.SendData "REA 5 " & Replace(usuario.Text, "@", "%40") & " " & Replace(Text2.Text, " ", "%20") & vbCrLf
End Sub Entonces cuando envio eso me responde el servidor: Servidor2 >216 5 La verdad no tengo ni ida de que significa esos números. Si alguien sabe la respuesta a esto agradecería que fuera posteada gracias.. SOLUCIONADO: Pues ahora mismo me di cuenta que el error estaba en la conversion no hace falta poner "cuenta%40hotmail.com" sino de forma " cuenta@hotmail.com" y el servidor deberia enviarles esto: Al final quedo así el código: Private Sub Command1_Click()
SEG.SendData "REA 5 " & usuario.Text & " " & Replace(Text2.Text, " ", "%20") & vbCrLf
End Sub
|
|
|
|
« Última modificación: 18 Septiembre 2009, 02:29 am por m[a]rkus »
|
En línea
|
Existen dos maneras de ser feliz en esta vida, una es hacerse el idiota y la otra serlo. 
|
|
|
m[a]rkus
Desconectado
Mensajes: 64
Si juegas a ser hacker piensa como un hacker.
|
Evento PING de protocolo MSN: Para todo aquel que tenga problemas con el cliente que este creando y a los 50 segundos el server lo desconecte, pego este trozo de codigo que es la parte esencial del evento PING de MSN. Private Sub PING()
Dim BUG1() As String
Dim Fijo As String
Fijo = "Q1P7W2E4J9R8U3S5"
BUG1 = Split(conca, vbCrLf)
conca = BUG1(0) & Fijo
Monitor2.Text = Monitor2.Text & "Cliente > Cargada Variable para cifrar: " & conca & vbCrLf
hmd5 = oMD5.MD5(conca)
SEG.SendData "QRY 1049 msmsgs@msnmsgr.com 32" & vbCrLf
SEG.SendData hmd5
Monitor2.Text = Monitor2.Text & "Cliente > Enviando Codificacion MD5 del PING: " & hmd5 & vbCrLf
Monitor2.Text = Monitor2.Text & "Cliente > Enviando Respuesta QRY despues de 50 seg" & vbCrLf
End Sub Cualquier duda postear y respondere mientras pueda.
|
|
|
|
|
En línea
|
Existen dos maneras de ser feliz en esta vida, una es hacerse el idiota y la otra serlo.
|
|
|
m[a]rkus
Desconectado
Mensajes: 64
Si juegas a ser hacker piensa como un hacker.
|
Hola otra vez, tengo problemas para enviar mensajes a un contacto, segun el protocolo tengo que enviar esto: SEG.SendData "XFR 5 SB" & vbCrLf A lo que me responde el MSN Server con esto: XFR 5 SB 65.54.48.118:1863 CKI 1068799700.11777157.105189171 Entonces en teoria despues tengo que conectarme a esa IP y ese Puerto: Case "XFR"
Dim serverconver As String
Dim subserver() As String
serverconver = sbuff(3)
subserver = Split(serverconver, ":")
Conserver = subserver(0)
Porserver = subserver(1)
Monitor2.Text = Monitor2.Text & "INFO >" & "Iniciando conexion con server de conversación" & vbCrLf
'MsgBox (subserver(0) & subserver(1))
codcon = sbuff(5)
conver.Connect Conserver, Porserver Una vez conectado enviar esto: conver.SendData "USR 1 hack.markus@hotmail.es " & codcon & vbCrLf codcon = Numero de seguridad 1068799700.11777157.105189171 Entonces si todo sale bien envia esto: USR 1 OK usuario@hotmail.es Markus Hasta ahí todo bien, lo malo del tema es que instantáneamente que me envía ese mensaje el servidor pierdo la conexión con la IP de conversación, si alguien conoce el motivo me lo diga no encuentro ejemplos o información por ningún sitio. Gracias |
|
|
|
|
En línea
|
Existen dos maneras de ser feliz en esta vida, una es hacerse el idiota y la otra serlo.
|
|
|
m[a]rkus
Desconectado
Mensajes: 64
Si juegas a ser hacker piensa como un hacker.
|
Bueno pues va a ser que a nadie le ah pasado esto. Cuando encuentre la solución la posteo por si en un futuro le sucede a alguien. Solucionado:
Me faltaba un "espacio" entre dos palabras, por eso me desconectaba. |
|
|
|
« Última modificación: 23 Septiembre 2009, 10:48 am por m[a]rkus »
|
En línea
|
Existen dos maneras de ser feliz en esta vida, una es hacerse el idiota y la otra serlo.
|
|
|
m[a]rkus
Desconectado
Mensajes: 64
Si juegas a ser hacker piensa como un hacker.
|
Hola tengo una interesante pregunta, de como enviar zumbidos desde el cliente que estoy haciendo hacia cualquier otro, supongo que sea un mensaje y que los clientes lo interpreten como un Zumbido, pero no lo encuentro en ninguna parte asi que intentare pedirle a algún contacto mio que le haga zumbido a ver que me envia el server y asi comprobar si yo enviando lo mismo funciona.
|
|
|
|
|
En línea
|
Existen dos maneras de ser feliz en esta vida, una es hacerse el idiota y la otra serlo.
|
|
|
m[a]rkus
Desconectado
Mensajes: 64
Si juegas a ser hacker piensa como un hacker.
|
Asi esta quedando:  |
|
|
|
|
En línea
|
Existen dos maneras de ser feliz en esta vida, una es hacerse el idiota y la otra serlo.
|
|
|
mujot
Desconectado
Mensajes: 1
|
Hola Muy interesante tu proyecto!! Se ve muy bien  ¿Podrías postear el código fuente para descargar?  O aunque sea el protocolo... llevo tiempo buscandolo para hacer algo, encontré varios pero desactualizados.  Saludos! |
|
|
|
|
En línea
|
|
|
|
|
Ari Slash
|
que interesante tema muy bueno  salu2 |
|
|
|
|
En línea
|
|
|
|
|
fary
|
hola buenas
yo estoy intentando acer un autonick cambiante y e intentado utilizar el codigo que puso Markus el primero de todos y nada no me funciona no tengo ni idea de xk es alguien me podria responder????
Salu2
|
|
|
|
|
En línea
|
Un byte a la izquierda.
|
|
|
m[a]rkus
Desconectado
Mensajes: 64
Si juegas a ser hacker piensa como un hacker.
|
Hola Fary94, pues el para cambiar el nick automático solo debes poner una condicional que cuando conecte envié este mensaje al server: Por ejemplo yo lo tengo puesto el usuario en un Textbox y tengo un Command que cuando le doy click me envia el siguiente comando: Private Sub Command1_Click()
SEG.SendData "REA 5 " & usuariox.Text & " " & Replace(Text2.Text, " ", "%20") & vbCrLf
End Sub SEG = Nombre del Sock usuariox = un Txt con el usuario actualmente conectado al MSN ejemplo : lofj23@hotmail.comText2 = Pues eso... ahi pongo el nick que quiero. Ejemplo: loco de locos Importante: Fijate que se cambia en el nuevo nick el espacio " " por "%20" , pero en el usuario no, en el usuario no cambies la "@" por "%40" simplemente ponla natural. |
|
|
|
|
En línea
|
Existen dos maneras de ser feliz en esta vida, una es hacerse el idiota y la otra serlo.
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Unas dudas sobre protocolo TCI/IP
Redes
|
Mario Olivera
|
6
|
5,268
|
11 Julio 2014, 01:19 am
por Mario Olivera
|
|
|
|
Dudas sobre protocolo DNS y DNS Spoofing
Seguridad
|
Ethicalsk
|
0
|
2,451
|
16 Enero 2016, 02:46 am
por Ethicalsk
|
|
|
|
Desembuchando las dudas: protocolo FTP.
Dudas Generales
|
[Arg] $triker;
|
1
|
2,331
|
11 Agosto 2016, 20:04 pm
por engel lex
|
|
|
|
dudas protocolo smb windows
Seguridad
|
regalosorpresa
|
3
|
3,001
|
5 Agosto 2017, 00:30 am
por engel lex
|
|
|
|
Dudas sobre el protocolo torrent (tema serio)
Dudas Generales
|
inma55
|
7
|
4,148
|
9 Marzo 2020, 17:42 pm
por engel lex
|
 |
