Convertitemi queste 2 righe di codice da C# a VB.NET

[madai]

Da C# devo convertirlo in VB.NET:

I valori dati sono u, sgh (costanti) e k (variabile)
u e sgh sono stringhe
k è un intero

k = (uint)k ^ (uint)(sgh[i%sgh.Length])^(uint)(u[i]);
k = k>>23|k<<9;

Ho provato con:

k = k Xor Asc(Mid(sgh, i Mod sgh.Length)) Xor Asc(Mid(u, i))
k = k >> 23 Or k << 9

ma i risultati non corrispondono.

Cosa ho sbagliato?

[djciko]

http://www.developerfusion.co.uk/Utilities/

k = CType(k, System.UInt32) Xor CType((sgh(i Mod sgh.Length)), System.UInt32) Xor CType((u(i)), System.UInt32)
k = k >> 23 Or k << 9

se non va prenditela con loro

[madai]

Grazie ma non va

Ho fatto qualche progresso ma i risultati continuano a non essere uguali.

Mi sto concentrando su questa riga:

C#

k = (uint)k ^ (uint)(sgh[i%sgh.Length])^(uint)(u[i]);

VB.NET

k = Asc(k) Xor Asc(sgh(i Mod sgh.Length)) Xor Asc(u(i))

Sembrano dover svolgere lo stesso compito e invece i risultati non coincidono...

Nessuno sa aiutarmi?

[cassano]

k = CType(k, System.UInt32) Xor CType((sgh(i Mod sgh.Length)), System.UInt32) Xor CType((u(i)), System.UInt32) 
k = k >> 23 Or k << 9 

[madai]

Originariamente inviato da cassano

k = CType(k, System.UInt32) Xor CType((sgh(i Mod sgh.Length)), System.UInt32) Xor CType((u(i)), System.UInt32) 
k = k >> 23 Or k << 9 

Ti ringrazio però non funziona (non è lo stesso codice postatomi da djciko?)

Voi mi suggerite di convertire ad es. (uint)k con CType(k, System.UInt32)

k però è una stringa e (uint) se posto davanti ad una stringa, la converte nel corrispettivo valore ASCII... per pter ottenere l'equivalente in VB utilizzo la funzione Asc().


Altri suggerimenti?

[madai]

Ho risolto

k = k Xor Asc(sgh(i Mod sgh.Length)) Xor Asc(u(i))

Ciao