Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- If (Me.TextBox9.Text.Length.Equals(32)) Then
- Me.Label17.Text = "MD5 Hash"
- ElseIf (Me.TextBox9.Text.Length.Equals(40)) Then
- Me.Label17.Text = "SHA-1 Hash / MySQL5 Hash"
- ElseIf (Me.TextBox9.Text.Length.Equals(13)) Then
- Me.Label17.Text = "DES(Unix) Hash"
- ElseIf (Me.TextBox9.Text.Length.Equals(16)) Then
- Me.Label17.Text = "MySQL Hash / DES(Oracle Hash)"
- ElseIf (Me.TextBox9.Text.Length.Equals(41) And Me.TextBox9.Text.StartsWith("*")) Then
- Me.Label17.Text = "MySQL5 Hash"
- ElseIf (Me.TextBox9.Text.Length.Equals(64)) Then
- Me.Label17.Text = "SHA-256 Hash"
- ElseIf (Me.TextBox9.Text.Length.Equals(96)) Then
- Me.Label17.Text = "SHA-384 Hash"
- ElseIf (Me.TextBox9.Text.Length.Equals(128)) Then
- Me.Label17.Text = "SHA-512 Hash"
- ElseIf (Me.TextBox9.Text.StartsWith("$1$") And Me.TextBox9.Text.Length.Equals(34)) Then
- Me.Label17.Text = "MD5(Unix) Hash"
- ElseIf (Me.TextBox9.Text.StartsWith("$apr1$") And Me.TextBox9.Text.Length.Equals(37)) Then
- Me.Label17.Text = "MD5(APR) Hash"
- ElseIf (Me.TextBox9.Text.StartsWith("$H$") And Me.TextBox9.Text.Length.Equals(34)) Then
- Me.Label17.Text = "MD5(phpBB3) Hash"
- ElseIf (Me.TextBox9.Text.StartsWith("$P$") And Me.TextBox9.Text.Length.Equals(34)) Then
- Me.Label17.Text = "MD5(Wordpress) Hash"
- ElseIf (Me.TextBox9.Text.StartsWith("$5$") And Me.TextBox9.Text.Length.Equals(39)) Then
- Me.Label17.Text = "SHA-256(Unix) Hash"
- ElseIf (Me.TextBox9.Text.StartsWith("$6$") And Me.TextBox9.Text.Length.Equals(39)) Then
- Me.Label17.Text = "SHA-512(Unix) Hash"
- ElseIf (Me.TextBox9.Text.Length.Equals(24) And Me.TextBox9.Text.EndsWith("==")) Then
- Me.Label17.Text = "MD5(Base-64)"
- ElseIf (Me.TextBox9.Text.Length.Equals(28) And Me.TextBox9.Text.EndsWith("=")) Then
- Me.Label17.Text = "SHA-1(Base-64)"
- ElseIf (Me.TextBox9.Text.Length.Equals(40) And Me.TextBox9.Text.EndsWith("==")) Then
- Me.Label17.Text = "SHA-224(Base-64)"
- ElseIf (Me.TextBox9.Text.Length.Equals(88) And Me.TextBox9.Text.EndsWith("==")) Then
- Me.Label17.Text = "SHA-512(Base-64)"
- ElseIf (Me.TextBox9.Text.Length.Equals(44) And Me.TextBox9.Text.EndsWith("=")) Then
- Me.Label17.Text = "SHA-256(Base-64)"
- Else
- MessageBox.Show("Invalid Input / Unidentified.", "Wrong input", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement