Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Text
- Imports System.Security.Cryptography
- Public Class Funny
- Public Shared Function AndroidHash() As String
- Static r As New Random
- Dim sb As New StringBuilder
- For i = 0 To 63
- Select Case r.Next(2)
- Case 0
- sb.Append(Chr(r.Next(65, 71)))
- Case 1
- sb.Append(Chr(r.Next(48, 58)))
- End Select
- Next
- sb.Append("_MsOIJ39Q28:")
- Dim data As Byte() = Encoding.UTF8.GetBytes(sb.ToString(0, 64) & ":MsOIJ39Q28:PTDc3H8a)Vi=UYap")
- Using sha As SHA1 = New SHA1CryptoServiceProvider()
- For Each b As Byte In sha.ComputeHash(data)
- sb.AppendFormat("{0:x2}", b)
- Next
- End Using
- Return Convert.ToBase64String(Encoding.UTF8.GetBytes(sb.ToString))
- End Function
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement