Y sino la otra es rogar que la clave sean 8 caracteres numéricos, en ese caso con john y aircrack en un par de horas lo sacás.
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ú
Public Class Form1
Dim Num1, Num2 As Integer
Dim Resultado As Single
Dim numeros(9) As Short
Private Sub btnmas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmas.Click
Dim comp1 As String = txtnum1.Text
Dim comp2 As String = txtnum2.Text
If comp1 = "" Or comp2 = "" Then
MessageBox.Show("Hay que completar los cuadros de texto con los dígitos del 0 al 9 antes de elegir el operador", "Error")
Else
Num1 = Convert.ToInt32(txtnum1.Text)
Num2 = Convert.ToInt32(txtnum2.Text)
Resultado = Num1 + Num2
txtresultado.Text = Convert.ToSingle(Resultado)
End If
End Sub
Private Sub btnmenos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmenos.Click
Dim comp1 As String = txtnum1.Text
Dim comp2 As String = txtnum2.Text
If comp1 = "" Or comp2 = "" Then
MessageBox.Show("Hay que completar los cuadros de texto con los dígitos del 0 al 9 antes de elegir el operador", "Error")
Else
Num1 = Convert.ToInt32(txtnum1.Text)
Num2 = Convert.ToInt32(txtnum2.Text)
Resultado = Num1 - Num2
txtresultado.Text = Convert.ToSingle(Resultado)
End If
End Sub
Private Sub btnpor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpor.Click
Dim comp1 As String = txtnum1.Text
Dim comp2 As String = txtnum2.Text
If comp1 = "" Or comp2 = "" Then
MessageBox.Show("Hay que completar los cuadros de texto con los dígitos del 0 al 9 antes de elegir el operador", "Error")
Else
Num1 = Convert.ToInt32(txtnum1.Text)
Num2 = Convert.ToInt32(txtnum2.Text)
Resultado = Num1 * Num2
txtresultado.Text = Convert.ToSingle(Resultado)
End If
End Sub
Private Sub btndiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndiv.Click
Dim comp1 As String = txtnum1.Text
Dim comp2 As String = txtnum2.Text
If comp1 = "" Or comp2 = "" Then
MessageBox.Show("Hay que completar los cuadros de texto con los dígitos del 0 al 9 antes de elegir el operador", "Error")
Else
Num1 = Convert.ToInt32(txtnum1.Text)
Num2 = Convert.ToInt32(txtnum2.Text)
Resultado = Num1 / Num2
txtresultado.Text = Convert.ToSingle(Resultado)
End If
End Sub
Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
txtnum1.Clear()
txtnum2.Clear()
txtresultado.Clear()
End Sub
Private Sub txtnum1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnum1.KeyPress
If e.KeyChar.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
MessageBox.Show("Solo dígitos del 0 al 9 =P", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Private Sub txtnum2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnum2.KeyPress
If e.KeyChar.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
MessageBox.Show("Solo dígitos del 0 al 9 =P", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
End Class