internal unsafe static int CanonicalHash(string fname)

        {

            string x = fname + "\0";

            fixed(char* c = x)

            {

                int hash = (char.ToLower(*c) ^ 0x4B9ACE2F) * 0x1000193;

                for (int z = 1; z < x.Length; z++)

                    hash = (char.ToLower(x[z]) ^ hash) * 0x1000193;

                return hash;

            }

            return 0;

        }

    Friend Shared Function CanonicalHash(fname As String) As Integer

	Dim x As String = fname & Convert.ToString(vbNullChar)

		Dim hash As Integer = (Char.ToLower(c.Target) Xor &H4b9ace2f) * &H1000193

	For z As Integer = 1 To x.Length - 1

		hash = (Char.ToLower(x(z)) Xor hash) * &H1000193

	Next

	Return hash



	Return 0

End Function

    int CanonicalHash(const char* str)

{

 int hash = (tolower(*str) ^ 0x4B9ACE2F) * 0x1000193;

 for (size_t i = 1; i <= strlen(str); i++)

  hash = (tolower(str[i]) ^ hash) * 0x1000193;

 return hash;

}