Unown Hash Function

Private Function Hash(byval plaintext As String) As String
Dim charColl As System.Text.RegularExpressions.MatchCollection = System.Text.RegularExpressions.Regex.Matches(strOriginal, ".")
Return charColl.Count.ToString * charColl.Count.ToString / Math.Sqrt(charColl.Count.ToString) + "//"