C# to VB.net conversion: byte pointers etc

[fixit]

Hello there,

I need to convert the following code from C# to Vb.net (it's part of an EMV API).

unsafe public uint InputPIN(ref byte pPinNum)
        {
 
            MessageBox.Show("Input Password and Push Enter !");
 
            Event_EndOfPinInput.Reset();
            Event_EndOfPinInput.WaitOne();
 
            if (txtPassword.InvokeRequired)
            {
                string  strPassword = Invoke(new GetPasswordTextCallback(GetPasswordText), new object[] { }).ToString();
                byte[] byPassword = StrToByteArray(strPassword);
                fixed (byte* _pPinNum = &pPinNum)
                {
                    byte* ps = _pPinNum;
                    for (int i = 0; i < 4; i++)
                        *(ps + i) = byPassword[i];
                }
 
            }
            return 1;
        }

How do I go about converting the 'fixed' block of code. AFAIK VB.net doesn't have byte pointers etc. I think I need Marshal.Copy but guidance would be appreciated.

    ' InputPin
    Public Function InputPIN(ByRef pPinNum As Byte) As UInteger
 
        MessageBox.Show("Input Password and Push Enter !")
 
        Event_EndOfPinInput.Reset()
        Event_EndOfPinInput.WaitOne()
 
        If txtPassword.InvokeRequired Then
            Dim strPassword As String = Invoke(New GetPasswordTextCallback(AddressOf GetPasswordText), New Object() {}).ToString()
            Dim byPassword As Byte() = StrToByteArray(strPassword)
 
            '...
 
 
        End If
        Return 1
    End Function

BTW it's compact framework 2.0.

Thanks again

[Birnida]

I convert it by conversion tools, see below code:

  Public Function InputPIN(ByRef pPinNum As Byte) As UInteger
        MessageBox.Show("Input Password and Push Enter !")
        Event_EndOfPinInput.Reset
        Event_EndOfPinInput.WaitOne
        If txtPassword.InvokeRequired Then
            Dim strPassword As String = Invoke(New GetPasswordTextCallback(GetPasswordText), New Object(-1) {}).ToString
            Dim byPassword() As Byte = StrToByteArray(strPassword)
            pPinNum
            Dim ps As Byte = _pPinNum
            Dim i As Integer = 0
            Do While (i < 4)
                (ps + i) = byPassword(i)
                i = (i + 1)
            Loop
        End If
        Return 1
    End Function

[fixit]

Hello,

Thanks for the reply. Unfortunately no solution was found so I had to keep the code in a DLL.