Problem: Analyze types of force Password

[Morpheus]

I have this source code to prevent the size of the password does not exceed the value [4 and 255] in a control NumericUpDown.

Code: (SELECT ALL CODE)

Private Sub Size_Pass_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Size_Pass.KeyPress
           If e.KeyChar <> ControlChars.Back Then 'AndAlso e.KeyChar <> "-"c
            '---------------------------
            e.Handled = Not Char.IsNumber(e.KeyChar)
            If Not e.Handled Then
                Dim num As Integer = Integer.Parse(String.Format("{0}{1}", If(Size_Pass.Text = String.Empty, "", Size_Pass.Text), e.KeyChar.ToString()))
                If num <= 0 OrElse num > 255 Then
                    e.Handled = True
                End If
            End If
        End If
    End Sub

But adding this source to inform the quality of the password, when we write what size.
The problem in controlling the write does not indicate that quality.
Also control has difficulty accepting any value.

Code: (SELECT ALL CODE)

'Size_Pass :  [4 - 255] Caracteres
        Select Size_Pass_Palavra.Value
                Case 4
                    Me.Label3.ForeColor = Color.DarkRed
                    Me.Label3.Text = "Low"
                Case 5 To 64
                    Me.Label3.ForeColor = Color.OrangeRed
                    Me.Label3.Text = "Normal"
                Case 65 To 127
                    Me.Label3.ForeColor = Color.ForestGreen
                    Me.Label3.Text = "Optimized"
                Case 128 To 255
                    Me.Label3.ForeColor = Color.MidnightBlue
                    Me.Label3.Text = "High"
            End Select

Adding :

Code: (SELECT ALL CODE)

Private Sub Size_Pass_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Size_Pass.KeyPress
    'Size_Pass :  [4 - 255] Caracteres
        Select Size_Pass_Palavra.Value
                Case 4
                    Me.Label3.ForeColor = Color.DarkRed
                    Me.Label3.Text = "Low"
                Case 5 To 64
                    Me.Label3.ForeColor = Color.OrangeRed
                    Me.Label3.Text = "Normal"
                Case 65 To 127
                    Me.Label3.ForeColor = Color.ForestGreen
                    Me.Label3.Text = "Optimized"
                Case 128 To 255
                    Me.Label3.ForeColor = Color.MidnightBlue
                    Me.Label3.Text = "High"
            End Select    
    '---------------------------  
        If e.KeyChar <> ControlChars.Back Then 'AndAlso e.KeyChar <> "-"c
            e.Handled = Not Char.IsNumber(e.KeyChar)
            If Not e.Handled Then
                Dim num As Integer = Integer.Parse(String.Format("{0}{1}", If(Size_Pass.Text = String.Empty, "", Size_Pass.Text), e.KeyChar.ToString()))
                If num <= 0 OrElse num > 255 Then
                    e.Handled = True
                End If
            End If
        End If
    End Sub

Thank you for your attention.

[KoBE]

It is very hard to follow the logic and understand what you're trying to do. Can you please submit a screenshot or some sort of demo application with the controls so we can get an idea?

[RDCA]

Code: (SELECT ALL CODE)

Private Sub Size_Pass_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Size_Pass.KeyPress
           If e.KeyChar <> ControlChars.Back Then 'AndAlso e.KeyChar <> "-"c
            '---------------------------
            e.Handled = Not Char.IsNumber(e.KeyChar)
            If Not e.Handled Then
                Dim num As Integer = Integer.Parse(String.Format("{0}{1}", If(Size_Pass.Text = String.Empty, "", Size_Pass.Text), e.KeyChar.ToString()))
                If num < 4 OrElse num > 255 Then
                    e.Handled = True
                Else
                      Select num
                Case 4
                    Me.Label3.ForeColor = Color.DarkRed
                    Me.Label3.Text = "Low"
                Case 5 To 64
                    Me.Label3.ForeColor = Color.OrangeRed
                    Me.Label3.Text = "Normal"
                Case 65 To 127
                    Me.Label3.ForeColor = Color.ForestGreen
                    Me.Label3.Text = "Optimized"
                Case 128 To 255
                    Me.Label3.ForeColor = Color.MidnightBlue
                    Me.Label3.Text = "High"
            End Select
            End If
        End If
    End Sub

Not sure if I misunderstood something, but here is what I got out of it.

[Morpheus]

Link : http://youtu.be/XLCOUPtfNo0

[AceInfinity]

I need to show you this:



However I'm on the same boat as KoBE here, the logic behind your code is hard to follow, and when that happens I always then rely on the person's description of what they want to do, but it's not clicking in my brain for me yet, i'm still fairly confused here... :(

I see the lengths as part of it, but what about the checkboxes? Where do they play a role in determining the strength of the password, because you can have a password "a" or a password "aaaaaaaa", but for the same length, even "a" is not as strong as a password like this if they allowed symbols "╓". Just as an example.

[Morpheus]

Hello Ace.
Thank you for your dedication and patience.
Currently, the code is a bit confusing, but it works.
As for the strength of the password and evaluation have no more ideas.
Let me give an example
http://depositfiles.com/files/xftsmav88