Mensajes

mmm si esta en españa es facil hackearlo.

• Tomas un martillo
• Tomas un avion
• Buscas el servidor
• Lo rompes con el martillo

Ahora si esta en EEUU es mas dificil. Un latino con un martillo no pasaria las medidas antiterroristas

algunas cosas que veo...

1 - si preguntas si es numerico , ni hace falta preguntar si es <> ""

Ok gracias lo tendre presente...

2 - podes validar para que el textbox solo acepte numero y te olvidas de Val() y de la validacion anterior.

Necesito que acepte letras y numeros

3 - usar DAO hoy en dia es como comparar la playstation 3 con la NES.

Dejame aprender bien esto y me pongo con ADO que igual me interesa aprenderlo, usar access es como usar atari, pero se me hizo interesante aprender tambien

Gracias por los consejos

Gracias Karcrack...

El error era que estaba pensando en numeros cuando de verdad necesito una palabra (nombre de usuario "user" en la base de datos). por lo que trataba de comprobar una palabra como numero... Lo que pasa es que primero lo iba a hacer con codigos numericos pero cambie por texto.

Osea:

Código (vb) [Seleccionar] Expandir

Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii = "13" Then
        If (Text3.Text) <> "" Then
                                                                        'If IsNumeric(Text3.Text) Then Esta comprobacion sobra!
        Set R = BD.OpenRecordset("usuario", dbOpenTable)
        R.Index = "us"
        R.Seek "=", (Text3.Text)
                If Not R.NoMatch Then
                    Text4.Text = R("pass")
                    'Text4.Enabled = True
                    'Command2.Enabled = True
                Else
                    MsgBox ("Lo siento, No existe")
                    Text3.Text = ""
                End If
       
                                                                             'End If  Esto tambien
        End If
    End If
End Sub

Quitando eso el codigo ya hace lo que quiero, que es evaluar el nombre de usuario y tirar la contraseña asociada a un text para posteriormente hacer una comprobacion con el boton de ingresar...

Por ejemplo el pass queda en text4 por lo que si quiero comparar con text5 en el boton seria:

Código (vb) [Seleccionar] Expandir

If (Text4.Text = Text5.Text) Then
Haz esto...
Else
Esto otro
End If

Muchas gracias

Hola, estoy haclendo un sistema pequeño y quiero validar a travez de enter. Les dejo el codigo:

Código (vb) [Seleccionar] Expandir

Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii = "13" Then
        If (Text3.Text) <> "" Then
            If IsNumeric(Text3.Text) Then
            Set R = BD.OpenRecordset("usuario", dbOpenTable)
            R.Index = "us"
            R.Seek "=", (Text3.Text)
                If Not R.NoMatch Then
                    Text4.Text = R("pass")
                    'Text4.Enabled = True
                    'Command2.Enabled = True
                Else
                    MsgBox ("Lo siento, No existe")
                    Text3.Text = ""
                End If
       
            End If
        End If
    End If
End Sub

El codigo deberia hacer que al presionar el enter despues de escribir el usuario mostrara el pass en otro text (text4 en este caso) pero no me toma el evento KeyPress, alguien ve algun error?

Si alguien lo quiere probar les dejo el codigo modificado ya que en el anterior tengo cargada una base de datos en el form.

Saludos y gracias

Ok de todas maneras siempre es recomendable actualizar a la ultima versión. Seguro que en un par de días más se pública alguna vulnerabilidad de la 1.1.9

y la 1.1.9 no era la ultima de la 1?

La 2 también se actualizó?

Gracias por la info

Va para el señor que comenzó el post, me fundamento en que tenía una conexión con está página.

Fíjate en lo que dice en su mensaje. Menciona que se abrieron muchas páginas de elhacker y que el netstat le arrojó una conexión con la página.

PD: El tono amenazante está de más no?

Lo más probable es que tú pc sea parte de la botnet que usaron hace unos días para botar el foro. Eso sería sólo culpa tuya y del que hizo el gusano para atacar la web.

Saludos

Pequeña... Lo que para ti es todo, para el resto no es nada

Por cierto muy bueno el análisis de código de la prueba, estar muy cerca de ser la siguiente en pasarla

Para eso sirve rss es una "tecnología" bastante útil xD