[Mono-devel-list] VB ... Very difficult to translate to C# !!!

[Alessandro Torrisi]

Do you know how can I translate this in C# code ???
I have very difficulties...

============================================================================

Public Class DCUtils
 
    Public Function LockToKey(ByVal Lck As String) As String
        Dim h As Integer, j As Integer, n As Integer
        n = 5
 
        h = InStr(1, Lck, " ")
        If h Then Lck = Left$(Lck, h - 1)
 
        h = Asc(Lck) Xor Asc(Right$(Lck, 1)) Xor Asc(Right$(Lck, 2)) Xor
n
        h = (h \ 16) Xor (h * 16)
 
        Do While h > 255
            h = h - 256
        Loop
 
        Select Case h
            Case 0, 5, 36, 96, 124, 126
                LockToKey = "/%DCN" & Right$("00" & CStr(h), 3) & "%/"
            Case Else
                LockToKey = Chr(h)
        End Select
 
        For j = 2 To Len(Lck)
            h = Asc(Mid$(Lck, j, 1)) Xor Asc(Mid$(Lck, j - 1, 1))
            h = (h \ 16) Xor (h * 16)
 
            Do While h > 255
                h = h - 256
            Loop
 
            Select Case h
                Case 0, 5, 36, 96, 124, 126
                    LockToKey = LockToKey & "/%DCN" & Right$("00" &
CStr(h), 3) & "%/"
                Case Else
                    LockToKey = LockToKey & Chr(h)
            End Select
        Next
    End Function
 
End Class

============================================================================

Please help ME !!! Alex.
P.S. Compiling it with MBAS it took some error !!!