Problema con login.passport.com - MSNP9

Iniciado por Jorgedro, 16 Octubre 2009, 00:55 AM

0 Miembros y 2 Visitantes están viendo este tema.

Jorgedro

Estoy haciendo un cliente para msn, pero tngo problemas cuando tengo que comunicarme con login.passport.com, no se que hago mal, ya revise un monton de manuales.
Colocare las partes del codigo que puede tener el error:
En esta parte cuando se recibe el mensaje USR se conecta a el otro winsock:
     Case "USR"
     strTmp = Split(datos, " ")  'Se guardan los parametros
        ParamAuth = strTmp(4) 'para usarlos mas adelante
        Login.RemoteHost = "login.passport.com"
        Login.RemotePort = "login.passport.com"
        Login.Connect

Luego cuando el winsock conecta:
Dim autenti As String
autenti = "GET /login2.srf HTTP/1.1" & vbNewLine & _
"Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & _
"usuario%40hotmail.com,pwd=contraseña," & ParamAuth & _
"Host: login.passport.com " & vbNewLine & vbNewLine
Login.SendData autenti


El problema con este código es que conecta y envia los datos bien, pero no recibo nada  :huh: >:(


Sobre lo que mando es algo asi:
GET /login2.srf HTTP/1.1
Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=usuario%40hotmail.com,pwd=contraseña,ct=1255644762,rver=5.5.4182.0,wp=FS_40SEC_0_COMPACT,lc=1033,id=507,ru=http:%2F%2Fmessenger.msn.com,tw=0,kpp=1,kv=4,ver=2.1.6000.1,rn=1lgjBfIL,tpf=b0735e3a873dfb5e75054465196398e0
Host: login.passport.com




Tal vez sea algo mal de los parametros, no he podido saber que pasa, espero que ustedes si, por que ando renegando con esta parte hace varios días.

Saludos!


ssccaann43 ©

Hola, yo publique un codigo de un MSN, que se conectaba de esa manera. El source no es de mi autoría, pero lo subi acá porque lo estaban buscando mucho. Buscalo e intenta estudiar el codigo, allí está lo que necesitas.

Saludos.
- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"

rembolso

no no lo estas haciendo mal mira:

WS.Close
WS.RemoteHost = "messenger.hotmail.com"
WS.RemotePort = 1863
WS.Connect
' a ese si si funca yo e echo de todo
`toma mas datos
Timer1.Enabled = False
If num < 10 Then
num = num + 1

ElseIf num = 10 Then
num = num + 1

End If
Dim tmp2() As String, tmp3 As String, tmp4 As String, hopen As Long, hConnection As Long, hRequest As Long, lgRep As Long, stStatusCode As String
hopen = InternetOpen("MSMSGS", 1, 0, 0, 0)
hConnection = InternetConnect(hopen, "loginnet.passport.com", 443, vbNullString, vbNullString, 3, &H280000, 0)
hRequest = HttpOpenRequest(hConnection, "GET", "/login2.srf", 0, vbNullString, 0, &H84E8F000, 0)
tmp2 = Split(Text1.Text, "@")
tmp4 = tmp2(0) & "%40" & tmp2(1)
tmp3 = "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & tmp4 & ",pwd=crapware, " & res
lgRep = HttpSendRequest(hRequest, tmp3, -1, 0, 0)
stStatusCode = Space$(1000)
HttpQueryInfo hRequest, &H16, ByVal stStatusCode, 1000, 0
InternetCloseHandle hopen
InternetCloseHandle hConnection
InternetCloseHandle hRequest
ak se conecta y enviamos esto
WS.SendData "VER 1 MSNP8 CVR0" & Chr(13) & Chr(10)
para mas informacion agregame y explicame q queres hacer y te ayudo

mi correo : rembolso@rembolso.com

Jorgedro

Cita de: rembolso en 16 Octubre 2009, 19:45 PM
no no lo estas haciendo mal mira:

WS.Close
WS.RemoteHost = "messenger.hotmail.com"
WS.RemotePort = 1863
WS.Connect
' a ese si si funca yo e echo de todo
`toma mas datos
Timer1.Enabled = False
If num < 10 Then
num = num + 1

ElseIf num = 10 Then
num = num + 1

End If
Dim tmp2() As String, tmp3 As String, tmp4 As String, hopen As Long, hConnection As Long, hRequest As Long, lgRep As Long, stStatusCode As String
hopen = InternetOpen("MSMSGS", 1, 0, 0, 0)
hConnection = InternetConnect(hopen, "loginnet.passport.com", 443, vbNullString, vbNullString, 3, &H280000, 0)
hRequest = HttpOpenRequest(hConnection, "GET", "/login2.srf", 0, vbNullString, 0, &H84E8F000, 0)
tmp2 = Split(Text1.Text, "@")
tmp4 = tmp2(0) & "%40" & tmp2(1)
tmp3 = "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & tmp4 & ",pwd=crapware, " & res
lgRep = HttpSendRequest(hRequest, tmp3, -1, 0, 0)
stStatusCode = Space$(1000)
HttpQueryInfo hRequest, &H16, ByVal stStatusCode, 1000, 0
InternetCloseHandle hopen
InternetCloseHandle hConnection
InternetCloseHandle hRequest
ak se conecta y enviamos esto
WS.SendData "VER 1 MSNP8 CVR0" & Chr(13) & Chr(10)
para mas informacion agregame y explicame q queres hacer y te ayudo

mi correo : rembolso@rembolso.com


sospechaba que era con algunas de las api para internet y no con otro winsock. Lo pruebo y comento. Gracias.
De paso te hago un comentario: en vez de hacerle el split al text1 podrias hacer:
replace(text1.text,"@","%40") que me parece mas rapido.
Saludos.

Jorgedro

Pude conectarme a login.passport.com, y recibi el ticket.  ;D

Pero los molesto de nuevo porque cuando lo envio el servidor me dice que es invalido, enviando el error "911 7", que es el mismo que envia si le digo:
  USR 6 TWN S t=cualquier_valor


Algo que me parece raro es que en todos los manuales el ticket que da login.passport aparace como:
  PP='t=[TICKET]
mientras que a mi me aparece asi:
  PPAuth=[TICKET]

Probe cambiandolo, al enviarlo al server, de muchas formas(con comillas simples, etc) pero me sigue diciendo el mismo error...

Cita de: ssccaann43 en 16 Octubre 2009, 03:33 AM
Hola, yo publique un codigo de un MSN, que se conectaba de esa manera. El source no es de mi autoría, pero lo subi acá porque lo estaban buscando mucho. Buscalo e intenta estudiar el codigo, allí está lo que necesitas.

Saludos.
Hola, busque en el foro pero no encontre nada(tal vez no se usar bien este buscador), si es que lo publicaste vos en un tema.
Por otro lado lei un monton de manuales, los que mas sirven son los que no estan orientados a ningun lenguaje. Pero hay algunos casos como este que no se como hacer determinada cosa.

Festor

Hace tiempo que tengo un pdf que conseguí... (no tengo ni idea de donde lo consegui...) sobre el protocolo del MSN.

Quizás te ayude: http://www.megaupload.com/?d=GO0Y3OVX

Jorgedro

#6
Cita de: Festor en 17 Octubre 2009, 19:12 PM
Hace tiempo que tengo un pdf que conseguí... (no tengo ni idea de donde lo consegui...) sobre el protocolo del MSN.

Quizás te ayude: http://www.megaupload.com/?d=GO0Y3OVX
Como dije en el primer mensaje del tema, ya mire un monton de manuales, ese es el mejor y mas facil de encontrar en la web, gracias pero ya lo habia leido.
Otra cosa
Se me dio por pegarle una revisada al texto que envia login.passport y me di cuenta q 't=... estaba en otro lado, acabo de encontrar y me conecte correctamente,

Saludos y gracias.

[SMT]

Creo que mejor te buscas algun code sobre esto, hay cosas que ni entiendo porque las haces, primero porque usas HttpOpenRequest y cosas asi? Para conectarte y eso solo necesitas sockets =/

Segundo, esto que quiere decir:

     Case "USR"
     strTmp = Split(datos, " ")  'Se guardan los parametros
        ParamAuth = strTmp(4) 'para usarlos mas adelante
        Login.RemoteHost = "login.passport.com"
        Login.RemotePort = "login.passport.com"
        Login.Connect


RemoteHost y RepotePort "login.Pass...." estas mal, te recomiendo que mejor leas bastante y busques algun code si no entiendes y en la parte de la contraseña y eso existen modulos para eso.

Jorgedro

Cita de: [SMT] en 17 Octubre 2009, 23:45 PM
Creo que mejor te buscas algun code sobre esto, hay cosas que ni entiendo porque las haces, primero porque usas HttpOpenRequest y cosas asi? Para conectarte y eso solo necesitas sockets =/

Segundo, esto que quiere decir:

     Case "USR"
     strTmp = Split(datos, " ")  'Se guardan los parametros
        ParamAuth = strTmp(4) 'para usarlos mas adelante
        Login.RemoteHost = "login.passport.com"
        Login.RemotePort = "login.passport.com"
        Login.Connect


RemoteHost y RepotePort "login.Pass...." estas mal, te recomiendo que mejor leas bastante y busques algun code si no entiendes y en la parte de la contraseña y eso existen modulos para eso.

Hola, mira me sirve mas hacerlo con la api http, ya que tendria que agregarle mas sockets solo por una pequeña cosa, aparte el port, ya se q esta mal , me di cuenta dsp pero seguia teniendo el problema. = Gracias, pero ya habia solucionado el problema y estoy terminando el programa. Saludos.

m[a]rkus

Hola pues eso fue lo que mas me costo a mi también incluso cree un tema tratado sobre "Protocolo MSN" donde puse una función que te resuelve el tema del passport, aqui te paso el enlace.

Espero te sirva

http://foro.elhacker.net/programacion_vb/vb_dudas_sobre_protocolo_msn-t267831.0.html

Ahi encotraras las respuestas a preguntas que tienes ahora y que te haras, no creas que conectando al msn resuelves todo.

Un saludo
Existen dos maneras de ser feliz en esta vida, una es hacerse el idiota y la otra serlo.