Simple Hashing Algorithm

   Private Function GenerateHash(ByVal PlainText As String) As String
        Dim str As String
        str = PlainText
        Return str.Length / Math.Sqrt(str.Length) / str.Length ^ (1 / 3)
    End Function