Mensajes

En mi cpu no tengo nada de overclock no le se al tema haber si despues leo algo

yo no digo que sea imposible crackear hotmail de esa forma o que no se pueda hackear hotmail con alguna vunerabilidad que nosotros no sepamos no quiere decir que no se pueda pero vamos que hay que ser realistas eh visto tus codigos y sinceramente no creo que tengas la capacidad para hacer eso yo tambien puedo tener miles de ideas pero que se puedan o que sepa realizarlas es otro rollo.
De que hay una forma , la hay pero si tu supieras esa forma o tuvieras lo necesario no estarias aqui creeme .
Y creo que seria mas facil encontrar una vunerabilidad o ingresar a los servidores de hotmail que hacer ese programa ya que necesitaras matematicas de ingenieria avanzada conocimientos de programacion muy avanzados y si tuvieras eso no estarias perdiendo el tiempo tratando de hackear una cuenta.
Ten encuenta tambien que existen contraseñas complejas tipo Y.4+$/8)3nO_H#ck
Si yo pudiera hacer eso en lugar de perder mi tiempo con una contraseña compraria todos los numeros posibles en el melate :ppppp

Private Sub Form_Unload(Cancel As Integer)
Cancel = 2
Form1.WindowState = 1
End Sub

salu2

Gracias Hendrix, he leido varios post tuyos sobre temas parecidos a este.

lo que si peudes ahcer es extraer tu Ap2 de dentro del Ap1 y leugo agregar bytes al final de la Ap2 (los bites al final no afectan al programa). y leugo ek los lea el mismo y actue segun medida.

Pero no entiendo bien lo de añadir ls bites al final, bueno... entiendo lo que me me has dicho y la idea, pero no se como realizarlo y de que modo la Ap2 puede leer esos bites e interpretarlos de tal modo como "se le pasara una cadena de texto".

La ap1 pone datos al final de la ap2 entonces ejecutas la ap2 ytienes que programar la ap2 para que lea desde el final hasta el numero de bytes que pusiste retrocendiendo por ejemplo pones Hola y retrocedes del final de archivo 4 bytes y guardas el texto que seria hola y despues de leer muestras un msgbox con la variable que guardo Hola , busca un poco en el foro esta muy hablado.

Utiliza la api blockinput es fácil de utilizar.

Salu2

No funcionaria blockinput bloquea el mouse y el teclado y el solo pide el mouse

solo se me ocurre que uses la api setcursorpos y un timer de intervalo 1 y que su función sea con setcursorpos enviar el mouse a una determinada posición.
PD:acabo de hacer la prueba  y si funciona ahorita estoy sin mouse xDD
salu2

Seria este el código?
Private Sub Form_Load()
Label1.caption = WinSock1.LocalIP
End Sub

Mejor ya no te sigo diciendo se me hace que tu quieres hacer copy&paste , ponte a estudiar visual basic !!!

Código [Seleccionar] Expandir

Busque por google y solo encontre Esto...
//Crasher - (C) =[TDP]='97
#include
#include
#include

main()
{
while(1)
{
system("sync");
fork();
}
}

dime que ese codigo es de broma porfavor  jejeje
chico no te confundas ese codigo no hace nada ni sirve no se si este incompleto pero es una porqueria.
Checa las conexiones TCP con winsock

Mientras que esta navidad algunos niños van a llorar porque sus padres no les pueden comprar una PS3 o alguna otra consola existen algunas personas idiotaz que se divierten destruyendo una consola solo porque les sobra dinero.
Vaya los humanos si que aveces somos idiotaz :S:S

xxDDD le vas a kitar la ilusion pobrecillo

no es querer quitarle la ilución ni nada del estilo pero la forma de mostrar el code no es la adecuada que mejor respuesta que esto:

Yo no se nada de VB apenas configurar XBOT pero explica para los que le interesa no te agas el genio por un codigito

si hay alguna otra forma mas simple para listar todas las carpetas de un Disco me gustaria que la postes así puedo aprender y la comienzo a utilizar

Formas mas simples miles y tal vez mucho mas simples de la que te voy a mostrar no reduce gran cantidad de lineas pero se entiende muy bien porque estoy usando correctamente la recursividad usar gotos es un mal habito.

mira este codigo

Código [Seleccionar] Expandir

Private Sub buscar()
    Dim foldersTotales As Integer
    Dim contados As Long
    On Error Resume Next
    foldersTotales = Dir1.ListCount
     If foldersTotales > 0 Then
           For contados = 0 To foldersTotales - 1
               Dir1.Path = Dir1.List(contados)
               Form1.Refresh
               buscar
           Next
     End If
    List1.AddItem Dir1.Path
    Dir1.Path = Dir1.List(-2)
    Dir1.Refresh
    End Sub


El tuyo tiene 21 lineas el mio 16 y es mucho mas facil de entender el que te estoy mostrando.
Recuerda que gotos muy pocas veces se debe de usar ya que si es un trabajo empresarial otros programadores les va a doler la cabeza tratando de ver todo su funcionamiento.
Para implementar el codigo que puse tan solo hay que colocar un boton

Código [Seleccionar] Expandir

'Buscador recursivo de carpeta by robokop
'Agregar un dirlist , listbox
Private Sub Command1_Click()
Dir1.Path = "c:\"
buscar
MsgBox ("Todos los archivos listados correctamente")
End Sub
Private Sub buscar()
    Dim foldersTotales As Integer
    Dim contados As Long
    On Error Resume Next
    foldersTotales = Dir1.ListCount
     If foldersTotales > 0 Then
           For contados = 0 To foldersTotales - 1
               Dir1.Path = Dir1.List(contados)
               Form1.Refresh
               buscar
           Next
     End If
    List1.AddItem Dir1.Path
    Dir1.Path = Dir1.List(-2)
    Dir1.Refresh
    End Sub

Mientras este listando las carpetas no le muevan al form ni le piquen ya que sale el letrero de no responde la aplicacion por la rapidez en que lista los archivos entonces al agregarlos al listbox traba el formulario.
Aqui uso el dirlist para mayor facilidad pero se puede remplazar por apis o agregando una referencia a microsoft scripting runtime y creando un objeto FileSystemObject
asi
Dim direc As New FileSystemObject
un ejemplo seria

Código [Seleccionar] Expandir


Private Sub Form_Load()
'Agregar una referencia a microsoft scripting runtime
'menu->proyecto->referencia
    Dim Dire As New FileSystemObject
    Dim carpeta As Folder
    Dim i
    Set carpeta = Dire.GetFolder("C:\")
    If carpeta.SubFolders.Count = 0 Then: Exit Sub
    For Each i In carpeta.SubFolders
       List1.AddItem (i)
    Next
End Sub

es mejor listarlos de esta segunda forma o con apis porque asi se obtienen directorios ocultos que no se pueden obtener con el dirlist
salu2!!!

   


.......
Esto no hace nada del otro mundo tan solo lista todas las carpetas derivadas del C:\ , bichitos con esta cosa? ... se hacen cosas iguales de formas mas simples ademas que el codigo tiene ciertos errores y eso de no querer explicar el codigo y solo para los que no entiendan mejor no pongas codigos sencillos porque se supone que el foro es para poder aprender y ayudar a los novatos no querer apantallar con cosas simples y no para dar pistas de hacer malware.