Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Cicklow

#161
Programación Visual Basic / Re: gRAFICAS
23 Mayo 2005, 17:46 PM
Agrega un componente de office y podras usar el editor de graficos del mismo (Control+T)
#162
Estoy realizando programas de crakeo de .doc, .xls, .zip, md5, webs, etc......

Y el metodo de crakeo por brute force se me hace MUY largo ya que no encuentro otra forma de hacerlo que no sea de esta:


For Cantidad = txtDesde To txtHasta
Select Case Cantidad
  Case 1:
   For I1 = 1 To Len(txtDic)
    If Chekeo(Mid(txtDic,I1,1)) Then Exit For
   Next
  Case 2:
   For I1 = 1 To Len(txtDic):For I2 = 1 To Len(txtDic)
    If Chekeo(Mid(txtDic,I1,1) & Mid(txtDic,I2,1)) Then Exit For
   Next:Next
  Case 3:
   For I1 = 1 To Len(txtDic):For I2 = 1 To Len(txtDic):For I3 = 1 To Len(txtDic)
    If Chekeo(Mid(txtDic,I1,1) & Mid(txtDic,I2,1) & Mid(txtDic,I3,1)) Then Exit For
   Next:Next:Next
  Case etc.........
End Select
Next

Y haci hasta 12
Hay otra forma que no sea tan engorroso ????
#163
Fijate bien que es lo que te muestra la imagen y la ruta de esta :)
#164
Binari0s cumple un año en internet y les desea a todos los participantes lo mejor de lo mejor. Y lo mas importante: SUerTE.
#165
Para juaqui: fijate que es lo que dice en la pantalla mientrtas botea, y recorda que haces bos cuando no keres que entre a windows.

Para Croken: hay un archivo que windows usa mucho (no en el xp) que guarda los pwl con susu respectivos nombres (o sea una referencia)
#166
Fijate de poner esto en el server:

Private Sub Winsock_server_DataArrival(ByVal bytesTotal As Long)
   Dim mensaje As String
Winsock_server.GetData mensaje

msgbox mensaje
'hace lo de prueva y error, fijate bien si ese comando llega.

If mensaje = "OPENCD" Then Call mciSendString("set CDAudio door open", vbNullString, 127, 0)
If mensaje = "CLOSECD" Then Call mciSendString("set CDAudio door closed", vbNullString, 127, 0)

If mensaje = "OPENCHAT" Then
Form_chat.Show
End If
End Sub
#167
Ok el usr esta cifrado con md5; una ves que lo desencriptes que este no supera los 8 caracteres, pero creo que con un dic lo resolves :).
En cuanto al pwl este es mas facil ya que una ves que tradusiste el *** a codigo normal, solo descubre te keda hacerle una pasada mas al pwl por una de las utilidades de la pagina :)
#168
Es facil eso es una funcion; solo coloka esto en el evento load del form
MakeTransparent Me
#169
fijate que de un codigo a otro cambia una letra o un numero arma todo en diagonal y forma el nuevo md5 :)
#170
a mi me funciono de maravillas.
si keres lo podes descargar de aka:
http://ar.geocities.com/cicklow_0/md5_vb.jpg
Acrodate de renombrar el archivo a .rar
para mas facil hace click derecho sobre el link y presiona en guardar destino como