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

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


  Mostrar Mensajes
Páginas: 1 ... 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 [92] 93 94 95 96 97 98 99 100 101 102 103 104 105 106
911  Programación / Programación Visual Basic / Re: dudilla sobre como hazer un dicionario en: 12 Octubre 2008, 23:48 pm
Código
  1. Dim palabras(0 To 10) As String
  2. Dim definiciones(0 To 10) As String
  3.  
  4. Private Sub Command1_Click()
  5.  
  6.  
  7. palabras(0) = "a-su"
  8. palabras(1) = "Aa"
  9. palabras(2) = "Abayo"
  10. palabras(3) = "Abekku"
  11. palabras(4) = "Abunai"
  12. palabras(5) = "Ace o Nerea"
  13. palabras(6) = "Achi Kochi"
  14. palabras(7) = "Aenaisago"
  15. palabras(8) = "Agemasu"
  16. palabras(9) = "Ah souka"
  17.  
  18.  
  19.  
  20.  
  21. definiciones(0) = "Dia de la Tierra (22 de Abril)."
  22. definiciones(1) = "Ah, Er. "
  23. definiciones(2) = "Es a 'sayonara' como 'kisama' es a 'anata'... En términos más simples, 'abayo' es una forma muy poco cortés de despedirse de alguien."
  24. definiciones(3) = "Juntos (con alguien)."
  25. definiciones(4) = "Peligro, Peligroso, ¡Cuidado!."
  26. definiciones(5) = "Raqueta de oro."
  27. definiciones(6) = "Aquí y alla"
  28. definiciones(7) = "Muerte Tragica. "
  29. definiciones(8) = "Dar."
  30. definiciones(9) = "Ah correcto."
  31.  
  32. Dim i As Integer
  33. Dim pal As String
  34.  
  35. Dim mensaje As Variant
  36. If Text1.Text = "" Then
  37.     mensaje = MsgBox("escribe una palabra", vbExclamation, "te has olvidado de escribir la palabra")
  38. End If
  39.  
  40. mensaje = MsgBox("esta palabra no existe", vbOKOnly, "te has olvidado de escribir la palabra")
  41.  
  42.  
  43. pal = Text1.Text
  44. For i = 0 To 10
  45.     If pal = palabras(i) Then
  46.         Text2.Text = definiciones(i)
  47.         Exit Sub
  48.     End If
  49. Next
  50.  
  51. For i = 0 To 10
  52.     If InStr(LCase(definiciones(i)), LCase(Text1.Text)) Then
  53.         MsgBox palabras(i)
  54.     End If
  55. Next
  56. End Sub

- Dim solo se usa para declarar variables, nunca más a lo largo del programa.
- Has declarado la variable "palabras" y ese es el mismo nombre que tenía el vector. No puede haber dos variables con un mismo nombre en un programa.
- Indenta bien tu código, sólo tenias indentado lo que habías copiado de mi ejemplo y si un código no está bien indentado es más difícil de entender.
- Te he corregido varias faltas de ortografía, "escribe" es con b y no es "oblidado" es "olvidado".

LEE UN BUEN MANUAL DE VISUAL BASIC, POR TUS ERRORES DEDUZCO QUE ESTÁS MUY PERDIDO Y NO TIENES MUCHA IDEA DEL TEMA, ASÍ QUE ES MEJOR QUE ESTUDIES UN POCO ANTES DE EMPEZAR A PROGRAMAR.

Como siempre digo, no quieras correr sin saber gatear...

Saludos!
912  Programación / Programación Visual Basic / Re: dudilla sobre como hazer un dicionario en: 12 Octubre 2008, 21:27 pm
Claro que tendrás que ponerlo de uno en uno o bien cargarlos desde un fichero. Pero eso hazlo tú porque yo no tengo ganas de ponerme a hacer eso xD

Para que fuese al revés... que buscases algo de la definición y te mostrase el nombre dices?, pues es muy sencillo, con el código que te he puesto podrías sacarlo...

Código
  1. Dim palabras(1 To 50) As String
  2. Dim definiciones(1 To 50) As String
  3.  
  4. Private Sub Command1_Click()
  5. palabras(20) = "Nijizuishou"
  6. definiciones(20) = "Cristal Arco Iris. Son 7 cristales con los colores del arcoiris que al reunirse con la lagrima de Serena forman el Cristal de Plata, ocultos en el interior de siete humanos que son la reencarnacion de los siete demonios más poderosos del negaverso."
  7.  
  8. For i = 1 To 50
  9.     If InStr(LCase(definiciones(i)), LCase(Text1.Text)) Then
  10.         MsgBox palabras(i) & ": " & definiciones(i)
  11.     End If
  12. Next
  13. End Sub
913  Programación / Programación Visual Basic / Re: dudilla sobre como hazer un dicionario en: 12 Octubre 2008, 20:21 pm
Yo lo haría usando la función InStr.

Yo tendría dos arrays tipo string. Uno con los nombres y otro con las definiciones. Entonces, haría un textbox donde se insertaría la palabra a buscar. Y luego haría un InStr para buscar esa palabra en el array con todas las palabras y si no lo encontrase, entonces haría una búsqueda de esa palabra en las definiciones por si lo encontrase.

Sería algo así:

Suponiendo que hay dos arrays, uno con las palabras y otro con las definiciones, crea un textbox donde se introducirá la palabra a buscar y un botón que servirá para realizar la búsqueda. Obviamente esto es sólo un ejemplo y he cargado sólo una posición del vector con su nombre y definición pero tendrías que hacer una función que cargase ambos vectores con sus nombres y definiciones correspondientes. Ahí va el ejemplo:

Código
  1. Dim palabras(1 To 50) As String
  2. Dim definiciones(1 To 50) As String
  3.  
  4. Private Sub Command1_Click()
  5. palabras(20) = "Nijizuishou"
  6. definiciones(20) = "Cristal Arco Iris. Son 7 cristales con los colores del arcoiris que al reunirse con la lagrima de Serena forman el Cristal de Plata, ocultos en el interior de siete humanos que son la reencarnacion de los siete demonios más poderosos del negaverso."
  7.  
  8. For i = 1 To 50
  9.     If InStr(LCase(palabras(i)), LCase(Text1.Text)) Then
  10.         MsgBox definiciones(i)
  11.     Else
  12.         If InStr(LCase(definiciones(i)), LCase(Text1.Text)) Then
  13.             Msgbox definiciones(i)
  14.         End If
  15.     End If
  16. Next
  17. End Sub

Lo paso todo a minúsculas antes de comparar para evitar que al buscar la palabra "Nijizuishou" con n minúscula no se produjese ningún resultado y ese tipo de cosas. Para esto sólo he tenido que usar la función LCase antes de comparar.
914  Programación / Programación Visual Basic / Re: Ayuda con envio por Email y FTP en: 12 Octubre 2008, 15:12 pm
[MODO IRONICO]Yo necesito las llaves de un ferrari, pero que me lo traigan a mi casa, y que me pongan un seguro a todo riesgo, pero no quiero tener que pagarlo!...[/MODO IRONICO]

Lo dicho... mejor no pedir tanto y estudiar un poco más...
915  Seguridad Informática / Materiales y equipos / Re: necesito comprar una tarjeta usb para wifislax en: 12 Octubre 2008, 15:00 pm
Para wifislax tengo entendido que no recomiendan usar tarjetas usb, que es recomendable usar tarjetas normales, PCI y con chip atheros. Suelen ser las más recomendables.

Saludos!
916  Programación / Programación Visual Basic / Re: Ayuda con envio por Email y FTP en: 12 Octubre 2008, 14:53 pm
Puntúa el texto para que se entienda mejor Sharki, porque es bastante complicado entenderte así. No busques como enviar un e-mail o un archivo por FTP en dos líneas porque no lo vas a encontrar. Sobre ese tipo de cosas hay muchos ejemplos en internet, así que te recomiendo que si quieres entenderlos estudies Visual Basic en lugar de buscar cosas más fáciles, no se puede aprender a programar sólo mirando códigos...
917  Programación / Programación Visual Basic / Re: [Source] The Golden Bug (Análisis de Frecuencia) en: 12 Octubre 2008, 13:22 pm
Cita de: cobein en 12 Octubre 2008, 13:14 pm
Lindo ejemplo, la verdad hay muy poco de esto en la red, vi un ejemplo en PSC pero nada mas que eso.
Aunque esta un poco crudo (falta funcionalidad) es un buen comienzo, la verdad es muy interesante, epero que continues agregandole cosas =).


Claro que sí. Ahora mismo sé que es muy simple, sólo haya la frecuencia. Ahora estoy intentando implementar un algoritmo que use esa tabla de frecuencias obtenida para intentar descifrar el algoritmo, haciendo comparaciones con las tablas relativas de frecuencia del español o inglés, dependiendo del texto que señales. Intentaré hacer un algoritmo que consiga descifrar aunque sea algo el texto, a ver si consigo que pueda sacar algo legible. Espero que sí.

Saludos!
918  Programación / Programación Visual Basic / Re: Problemas con SELECT CASE en: 12 Octubre 2008, 13:17 pm
stork32 ese programa no está acabado tio.

Yo creo que sería algo así:

Código
  1. Dim i As Integer
  2.  
  3. Private Sub Command1_Click()
  4. End
  5. End Sub
  6.  
  7. Private Sub Command2_Click()
  8. If Text1.Text = "mar1" And Text2.Text = "mar1" And i < 3 Then
  9.     MsgBox "Bienvenido a mi sistema"
  10. Else
  11. i = i + 1
  12. Select Case i
  13.     Case 1
  14.         vez = "una primera"
  15.     Case 2
  16.         vez = "una segunda"
  17.     Case 3
  18.         vez = "una tercera"
  19.     Case Else
  20.         vez = "No quedan intentos"
  21.     End Select
  22.  
  23.     MsgBox vez
  24. End If
  25. End Sub

Se puede hacer de otras maneras, pero esa sería una correcta.
919  Programación / Programación Visual Basic / Re: Dirigir a otro sitio en: 11 Octubre 2008, 23:18 pm
Claro que sí. Por ejemplo los subdominios .ya.st o .miarroba.com es muy fácil de conocer la dirección real. Entra en la web y haz click con el botón derecho del ratón sobre el fondo, dale a ver código fuente y verás algo así:

Código
  3. <meta NAME="generator" CONTENT="http://subdominios.miarroba.com">
  4. <meta NAME="description" CONTENT="Gana Dinero vendiendo productos Oriflame y logra una carrera profesional con el patrocinio">
  5. <meta NAME="keywords" CONTENT="cosmeticos,oriflame,oriken">
  6. <TITLE>Una Gran Oportunidad de Ganar Dinero ... redireccionada por miarroba.com</TITLE>
  7. <LINK REL="SHORTCUT ICON" HREF="/favicon.ico">
  8. </head>
  9. <frameset frameborder='0' framespacing='0' border='0' rows='100%,0' noresize>
  10. <frame name='frame' src='http://mx.geocities.com/oriken2003/index.html' noresize>
  11. <frame name='publi' src='http://subdominios.miarroba.com/popup.php?r=854d6fae5ee42911677c739ee1734486&z=462' noresize>
  13. <NOFRAMES><h1><a href="http://mx.geocities.com/oriken2003/index.html">Una Gran Oportunidad de Ganar Dinero</A></h1></NOFRAMES>
  14. </html>
  15.  

Este es el subdominio:
Código:
http://oriken.ya.st/

Y como puedes ver aquí tienes la dirección real de la página:
Código:
<frame name='frame' src='http://mx.geocities.com/oriken2003/index.html' noresize>
Código:
<NOFRAMES><h1><a href="http://mx.geocities.com/oriken2003/index.html">Una Gran Oportunidad de Ganar Dinero</A></h1></NOFRAMES>

Siempre se puede hallar la ruta verdadera de un subdominio. Haz click sobre cualquier imagen y dale a "ver imagen", te mostrará la ruta completa de la imagen y podrás ver la ruta verdadera... Hay mil maneras, sólo hay que pensar un poco.
920  Programación / Programación Visual Basic / Re: [Source] The Golden Bug (Análisis de Frecuencia) en: 11 Octubre 2008, 23:06 pm
Usé el control MSCHART.

Si quieres probarlo aunque sin código fuente, puedes probarlo desde este enlace:

http://auronweb.es/news/file.php?file=The_Golden_Bug.zip

NOTA: Ahora estoy intentando implementarle una función para descifrar el código, es decir que con los resultados obtenidos de frecuencia de caracteres, haga una sustitución por la frecuencia de las letras más usadas en inglés o español. Con un poco de suerte puede salir un texto más o menos legible. :)

Saludos!
Páginas: 1 ... 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 [92] 93 94 95 96 97 98 99 100 101 102 103 104 105 106
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines