C# / VB.NET - Funzione di hashing "Hashword" chi sa come implementarla in vb.net??

Tutto descritto nel titolo,
spero di non aver sbagliato categoria...
Thnx

Se la specifica implementazione riguarda .NET, è da postare nella sezione .NET World.

Comunque, ho preso da questo sito:
koders.com/cpp/…
Il codice di HashWord::hash:

void HashWord::hash(){
	unsigned x =0;
	hashvalue =0;
	while( wd[x] != 'Se la specifica implementazione riguarda .NET, è da postare nella sezione .NET World.



Comunque, ho preso da questo sito:

koders.com/cpp/…

Il codice di HashWord::hash:

void HashWord::hash(){
	unsigned x =0;
	hashvalue =0;
	while( wd[x] != '{parsed_message}'){
		/* 6 is a random number (base 26 too large)*/
		hashvalue = ((hashvalue*3)+(wd[x++]-97));	
	}	
}

Creando una classe identica in vb.NET, questo metodo diventerebbe:

Public Sub hash()
   Dim x As UInt32 = 0
   hashvalue = 0
   Do While (wd(x) <> Chr(0))
      hashvalue = hashvalue * 3 + wd(x) - 97
      x += 1
   Loop
End Sub
'){
		/* 6 is a random number (base 26 too large)*/
		hashvalue = ((hashvalue*3)+(wd[x++]-97));	
	}	
}

Creando una classe identica in vb.NET, questo metodo diventerebbe:

Public Sub hash()
   Dim x As UInt32 = 0
   hashvalue = 0
   Do While (wd(x) <> Chr(0))
      hashvalue = hashvalue * 3 + wd(x) - 97
      x += 1
   Loop
End Sub