elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Mensajes
Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ... 47
51  Programación / Programación Visual Basic / Re: combinaciones VB en: 30 Diciembre 2008, 01:17 am
si pero no es para sacar contraseñas... sino para hacer juegos de palabras
52  Programación / Programación Visual Basic / Re: combinaciones VB en: 30 Diciembre 2008, 01:10 am
jjaa gracias x el ejemplo! funciona de 10 asi tal cual lo pasaste ;)

yo pasaba a postear una solucion tb... pero es mas lammer xD
de todos modos la dejo x si les interesa =P

Código
  1. Private Sub Command1_Click()
  2. Dim a As Byte
  3. Dim b As Byte
  4. Dim c As Byte
  5. Dim d As Byte
  6.  
  7. Text1.Text = ""
  8.  
  9. For a = 1 To 4
  10.    For b = 1 To 4
  11.        For c = 1 To 4
  12.            For d = 1 To 4
  13.                If a = b Or a = c Or a = d Or b = c Or b = d Or c = d Then
  14.                Else
  15.                Text1.Text = Text1.Text & a & b & c & d & vbCrLf
  16.                End If
  17.            Next d
  18.        Next c
  19.    Next b
  20. Next a
  21. End Sub
  22.  
53  Programación / Programación Visual Basic / Re: alerta cuando editen archivo en: 29 Diciembre 2008, 23:28 pm
podrias hacer un programa q cada cierto tiempo verifique si tal archivo existe en tal carpeta con un determinado nombre, peso... incluso podrias hacer una copia en otra carpeta oculta, o un poco mas dicil de encontrar y q compare los archivos para ver si son iguales...

es solo una idea xD
54  Programación / Programación Visual Basic / Re: Textbox StYl3 ? en: 29 Diciembre 2008, 21:10 pm
pero eso se usa en las labels y no en los textbox...
55  Programación / Programación Visual Basic / combinaciones VB en: 29 Diciembre 2008, 20:42 pm
hola.. tengo un problema con un fuerza bruta...

el tema es asi, tengo 6 letras y necesito ver las combinaciones de todas ellas...
pero no se como hacer a q no se repitan... xq asi el codigo es mucho mas lento :S

x ejemplo asdfgh
con este codigo primero aparece aaaaaa en vez de asdfgh y luego cambiarlas de lugar a x ejemplo asdfhg :S

colocar 2 command button, un timmer con intervalo 0
para hacer funcionar el code presionar el segundo command :P
Código
  1. Dim cont As Byte
  2. Dim Letras As String
  3. Dim Letra() As String
  4. Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte, f As Byte
  5. Dim La As String, Lb As String, Lc As String, Ld As String, Le As String, Lf As String
  6.  
  7. Private Sub Command1_Click()
  8. Letras = ""
  9.  
  10. Do While Text1.Text <> ""
  11. Letras = Letras & Left(Text1.Text, 1) & "|"
  12. Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
  13. Loop
  14.  
  15. Letra = Split(Letras, "|")
  16.  
  17. For a = 0 To 5
  18.   La = Letra(a)
  19.    For b = 1 To 5
  20.        Lb = Letra(b)
  21.        For c = 2 To 5
  22.            Lc = Letra(c)
  23.            For d = 3 To 5
  24.               Ld = Letra(d)
  25.                For e = 4 To 5
  26.                    Le = Letra(e)
  27.                    For f = 5 To 5
  28.                       Lf = Letra(f)
  29.                        SendKeys La & Lb & Lc & Ld & Le & Lf
  30.                        SendKeys "{Enter}"
  31.                        DoEvents
  32.                    Next f
  33.                Next e
  34.            Next d
  35.        Next c
  36.    Next b
  37. Next a
  38.  
  39. MsgBox "Termino"
  40.  
  41. End Sub
  42.  
  43. Private Sub Command2_Click()
  44. Timer1.Interval = 1000
  45. End Sub
  46.  
  47. Private Sub Timer1_Timer()
  48. If cont = 3 Then
  49. Call Command1_Click
  50. Timer1.Interval = 0
  51. cont = 0
  52. Else
  53. cont = cont + 1
  54. End If
  55. End Sub
  56.  
56  Programación / Programación Visual Basic / Re: Efecto destroza pantalla en: 19 Noviembre 2008, 16:33 pm
mmm esta bueno... es un poco raro, fuera de lo normal xD jaja

taria bueno q se vaya "arruinando" a medida q uno mueve el mouse... o algo asi...
con el evento mousemove creo q se podria hacer facilmente :P
57  Programación / Programación Visual Basic / Re: AYUDA con insertar Imagen en FORM en: 18 Noviembre 2008, 02:26 am
Código:
Image1.Picture = LoadPicture("Desktop.bmp")

el error esta ahi... si es un jpg no tenes q cargar un bmp xD

Código:
Image1.Picture = LoadPicture("Desktop.jpg")

asi tendria q ser... de todos modos esa ruta tb esta incompleta : /
58  Programación / Programación Visual Basic / Re: AYUDA con insertar Imagen en FORM en: 18 Noviembre 2008, 01:56 am
el problema es q ese pedazito de code al cual hiciste referencia no esta completo...
eso es solo el llamado al modulo clase.. pero falta el modulo clase
tal vez el error q te tira es aqui:
Código
  1. Dim Foto As New Class1
eso es xq te falta el modulo clase CJpeg

el link esta mas arriba en ese mismo hilo posteado x EON.. el link q dejo es este:

http://www.pscode.com/vb/scripts/ShowZip.asp?lngWId=1&lngCodeId=56382&strZipAccessCode=tp%2FP563821492
59  Programación / Programación Visual Basic / Re: Imprimir en: 18 Noviembre 2008, 00:49 am
no hace falta q hagas dos post sobre lo mismo para q se te ayude...

para imprimirlos puedes mostrar los datos en un textbox o donde quieras del formulario, y luego imprimier este... para eso puedes usar el control CommonDialog
60  Programación / Programación Visual Basic / Re: claculadora en: 17 Noviembre 2008, 22:18 pm
te explico... te pones a estudiar... y lo haces  ;D

y sino te fijas bien donde carajo posteas... xq esto no es VBscript...
Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ... 47
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines