Questo Codice in vb net

[marino1111]

Ciao a tutti.

Vorrei sapere come tradurre questo codice in vb net in modo che non contenga errori.

Dim length As Integer = string_0.Length
Dim chArray As Char() = New Char(length - 1) {}
Dim i As Integer
For i = 0 To chArray.Length - 1
Dim ch As Char = string_0.Chars(i)
Dim num3 As Byte = CByte((ch Xor (length - i)))
Dim num4 As Byte = CByte(((ch >> 8) Xor i))
chArray(i) = DirectCast(((num4 << 8) Or num3), Char)
Next i
Return String.Intern(New String(chArray))

Grazie

[alka]

Originariamente inviato da marino1111
Vorrei sapere come tradurre questo codice in vb net in modo che non contenga errori.

Leggi il Regolamento.

Qui non si fornisce codice su richiesta: documentati su Visual Basic .NET e inizia a stendere codice cercando di implementare le stesse funzionalità del codice che hai scritto; in caso di difficoltà, apri una discussione indicando l'errore che ottieni o il comportamento anomalo, e postando il codice che hai scritto (formattandolo come indicato nel regolamento), indicando un titolo appropriato nella discussione che dia un'idea significativa del problema.