Codigo fuente del ---- Ice Cold Reload -- congelar msn

[Zion_Tm]

Buenos dias compañeros VB 

Estaba pensando como sera el codigo del famoso programa que congela cuentas de hotmail ......  Ice Cold Reload.
lo que hace este programa es bombardear una direccion de correo con contraseñas aleatorias , ya todos sabemos que al intentar entrar a un correo a la 10 vez si el pass no es correcto se blokea la cuenta por unas horas. Es justo lo que hace este programita.
El tema esta en crear un texbox ( donde ira la direccion de correo)
 y un boton que al presionarlo comienze a probar contraseñas aleatorias, no con el fin de crackear el pass sino de provocar el  blokeo de seguridad de hotmail y esta accion loopearla ( do - loop ) infinitamente.

Alguien entendio mi propuesta ?? se agradece alguna idea 

[Krosty_ufc]

Interesante ami tambien me gustaria saber como seria el codigo.
Salu2

[Guan]

la idea mia seria ir mandando las pulsaciones del teclado con la api tipica de hacer keyloggers y usar la api sleep para dar tiempo a cargar la pagina, o el programa, depende de como lo hagas. En la pagina te puedes mover enviando pulsaciondes de la tecla {tab} y en el messenger tmb, pero no podrias tocar el ordenador mientras realizas el 'ataqe'

Saludos

[Zion_Tm]

estas son las apis ?

Declare Function GetAsyncKeySta te Lib "user32" (ByVal vKey As Long) As Integer
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function GetForegroundW indow Lib "user32" () As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextL ength Lib "user32" Alias "GetWindowTextL engthA" (ByVal hwnd As Long) As Long


cual es la api sleep ??

[Guan]

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

y para usarla:
Sleep (150) 'por ejemplo, seria hacer una pausa de 150 milisegundos

Saludos

[Zion_Tm]

Bueno aqui empeze a hacerlo, pero no puedo enviar teclas con sendkeys sino tengo el foco en la pagina web, sabes como se hace foco para poder enviar teclas ??


 PROYECTO CONGELAR MSN

Para ver este enlace Registrate o Inicia Sesion

http://www.fupload.com/download.php?file_id=b9vgkhnxsf70tpyj64rc

[crypto136]

es un archivo sin extension!!, que hago con eso ? normalmente deberia saber que hacer con ese archivo pero ahoro no

[Zion_Tm]

es el link de una pagina donde subi el proyecto.

[crypto136]

si ya se que es un enlace! pero el archivo que has alojado no tiene extension revisa eso bien y lo que pides es con la Api FindWindow y algo mas deja reviso un poco

[Guan]

Bueno aqui empeze a hacerlo, pero no puedo enviar teclas con sendkeys sino tengo el foco en la pagina web, sabes como se hace foco para poder enviar teclas ??


 PROYECTO CONGELAR MSN

Para ver este enlace Registrate o Inicia Sesion

http://www.fupload.com/download.php?file_id=b9vgkhnxsf70tpyj64rc

Tecleando alt y manteniendo, y luego pulsando tab, nose si si ya lo sabrias, en vb, no se como se hace para mantener pulsada una tecla x tiempo, tampoco me he puesto nunca a averiguarlo.

Saludos

[zXxOsirisxXz]

Bueno aqui empeze a hacerlo, pero no puedo enviar teclas con sendkeys sino tengo el foco en la pagina web, sabes como se hace foco para poder enviar teclas ??


 PROYECTO CONGELAR MSN

Para ver este enlace Registrate o Inicia Sesion

http://www.fupload.com/download.php?file_id=b9vgkhnxsf70tpyj64rc

Ps, fijate que mandarlas sin foco es facil.. solo necesitas un timer, y ya :S

Private Declare Function GetAsyncKeySta te Lib "user32"  (ByVal vKey As Long) As Integer
   
Private Sub Form_Load()
Timer1.Interva l = 1
End Sub

Private Sub Timer1_Timer()
 If GetAsyncKeySta te(vbKeyShift) Then
 SendKeys "Bla, Bla, Bla"
End If
End Sub

Los unico que yo no se hacer.. es darle algo, para k vuelva a empezar como si fuese una macro 

[Zion_Tm]

Nop, sin foco no se puede porque cuando carga el form el foco esta sobre el form1
te expongo el code aqui

en un modulo

Código:

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

en el form1

Código:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer



Private Sub Form_Load()
Form1.WebBrowser1.Navigate "http://login.live.com/login.srf?id=2"
Sleep (2000)
End Sub
Private Sub Timer1_Timer()
 If GetAsyncKeyState(vbKeyShift) Then
 SendKeys "Bla, Bla, Bla"
End If
End Sub

Como veran cuando carga la pagina, no tiene foco y no puedo mandar con sendkeys

[jackl007]

B
 y un boton que al presionarlo comienze a probar contraseñas aleatorias, no con el fin de crackear el pass sino de provocar el  blokeo de seguridad de hotmail y esta accion loopearla ( do - loop ) infinitamente.

pero yo pieso q no es asi.. xq cuando colocamos lo cerramos.. todo vuelve a lo normal ... ya q si fuera probar cn contraseñas aleatorias bastaria una ves paa q el resto del dia todo marche bien.. cosa q no sucese...
o salvo de q arregle la cuenta..!

[zXxOsirisxXz]

Nop, sin foco no se puede porque cuando carga el form el foco esta sobre el form1
te expongo el code aqui

en un modulo

Código:

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

en el form1

Código:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer



Private Sub Form_Load()
Form1.WebBrowser1.Navigate "http://login.live.com/login.srf?id=2"
Sleep (2000)
End Sub
Private Sub Timer1_Timer()
 If GetAsyncKeyState(vbKeyShift) Then
 SendKeys "Bla, Bla, Bla"
End If
End Sub

Como veran cuando carga la pagina, no tiene foco y no puedo mandar con sendkeys

Ps no se si lo cojiste, pero el codigo k te puse funciona para cualkier cosa, no e para el form :S.
Usalo, y preciona shift para k veas ><

[Zion_Tm]

Intente decompilar el IceCol Reloaded y resulta que no esta hecho en VB