Advertisement
Guest User

Untitled

a guest
Aug 16th, 2017
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.54 KB | None | 0 0
  1. If (Me.TextBox9.Text.Length.Equals(32)) Then
  2. Me.Label17.Text = "MD5 Hash"
  3. ElseIf (Me.TextBox9.Text.Length.Equals(40)) Then
  4. Me.Label17.Text = "SHA-1 Hash / MySQL5 Hash"
  5. ElseIf (Me.TextBox9.Text.Length.Equals(13)) Then
  6. Me.Label17.Text = "DES(Unix) Hash"
  7. ElseIf (Me.TextBox9.Text.Length.Equals(16)) Then
  8. Me.Label17.Text = "MySQL Hash / DES(Oracle Hash)"
  9. ElseIf (Me.TextBox9.Text.Length.Equals(41) And Me.TextBox9.Text.StartsWith("*")) Then
  10. Me.Label17.Text = "MySQL5 Hash"
  11. ElseIf (Me.TextBox9.Text.Length.Equals(64)) Then
  12. Me.Label17.Text = "SHA-256 Hash"
  13. ElseIf (Me.TextBox9.Text.Length.Equals(96)) Then
  14. Me.Label17.Text = "SHA-384 Hash"
  15. ElseIf (Me.TextBox9.Text.Length.Equals(128)) Then
  16. Me.Label17.Text = "SHA-512 Hash"
  17. ElseIf (Me.TextBox9.Text.StartsWith("$1$") And Me.TextBox9.Text.Length.Equals(34)) Then
  18. Me.Label17.Text = "MD5(Unix) Hash"
  19. ElseIf (Me.TextBox9.Text.StartsWith("$apr1$") And Me.TextBox9.Text.Length.Equals(37)) Then
  20. Me.Label17.Text = "MD5(APR) Hash"
  21. ElseIf (Me.TextBox9.Text.StartsWith("$H$") And Me.TextBox9.Text.Length.Equals(34)) Then
  22. Me.Label17.Text = "MD5(phpBB3) Hash"
  23. ElseIf (Me.TextBox9.Text.StartsWith("$P$") And Me.TextBox9.Text.Length.Equals(34)) Then
  24. Me.Label17.Text = "MD5(Wordpress) Hash"
  25. ElseIf (Me.TextBox9.Text.StartsWith("$5$") And Me.TextBox9.Text.Length.Equals(39)) Then
  26. Me.Label17.Text = "SHA-256(Unix) Hash"
  27. ElseIf (Me.TextBox9.Text.StartsWith("$6$") And Me.TextBox9.Text.Length.Equals(39)) Then
  28. Me.Label17.Text = "SHA-512(Unix) Hash"
  29. ElseIf (Me.TextBox9.Text.Length.Equals(24) And Me.TextBox9.Text.EndsWith("==")) Then
  30. Me.Label17.Text = "MD5(Base-64)"
  31. ElseIf (Me.TextBox9.Text.Length.Equals(28) And Me.TextBox9.Text.EndsWith("=")) Then
  32. Me.Label17.Text = "SHA-1(Base-64)"
  33. ElseIf (Me.TextBox9.Text.Length.Equals(40) And Me.TextBox9.Text.EndsWith("==")) Then
  34. Me.Label17.Text = "SHA-224(Base-64)"
  35. ElseIf (Me.TextBox9.Text.Length.Equals(88) And Me.TextBox9.Text.EndsWith("==")) Then
  36. Me.Label17.Text = "SHA-512(Base-64)"
  37. ElseIf (Me.TextBox9.Text.Length.Equals(44) And Me.TextBox9.Text.EndsWith("=")) Then
  38. Me.Label17.Text = "SHA-256(Base-64)"
  39. Else
  40. MessageBox.Show("Invalid Input / Unidentified.", "Wrong input", MessageBoxButtons.OK, MessageBoxIcon.Error)
  41. End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement