How convert to VB.NET?

http://snipplr.com/view/48906/
C#:

Code:

---

a += (uint)(url[k + 0] + (url[k + 1] << 8) + (url[k + 2] << 16) + (url[k + 3] << 24));

---

How convert to VB.NET?

Try this site to convert C# to VB.NET

Code:

---

a = a + CType((url((k + 0)) + ((url((k + 1)) << 8) + ((url((k + 2)) << 16) + (url((k + 3)) << 24)))), UInteger)

---

Operator '<<' is not defined for types 'Char' and 'Integer'.

Try the following for conversion, of course you need assign values appropriately to the variables being used.

Code:

---

Dim url() As Integer = {}
Dim a As Long
Dim k As Integer
a += CUInt(url(k + 0) + (url(k + 1) << 8) + (url(k + 2) << 16) + (url(k + 3) << 24))

---

url - String :)

http://snipplr.com/view/48906/

C#:

Code:

---

private static string GoogleChecksum(string url){
uint GoogleMagic = 0xE6359A60;
uint a, b;
uint c = GoogleMagic;
a = b = 0x9E3779B9;
int k = 0;
int length = url.Length;
//Algorithm
while (length >= 12){
a += (uint)(url[k + 0] + (url[k + 1] << 8) + (url[k + 2] << 16) + (url[k + 3] << 24));
...

---

My VB.NET:

Code:

---

Private Shared Function GoogleChecksum(ByVal url As String) As String
        Dim GoogleMagic As UInteger = 3862272608
        Dim b As UInteger
        Dim a As UInteger
        Dim c As UInteger = GoogleMagic
        b = 2654435769
        a = 2654435769
        Dim k As Integer = 0
        Dim length As Integer = url.Length
        'Algorithm
        While (length >= 12)
        a = a + CType((url((k + 0)) + ((url((k + 1)) << 8) + ((url((k + 2)) << 16) + (url((k + 3)) << 24)))), UInteger)
        ...

---