Die DongleRead Funktion wird von einer unmanaged DLL wie folgt importiert:
<DllImport("Sense_LC.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
Private Function LC_read(ByVal handle As System.UInt32, ByVal block As Int32, _
  ByVal buffer As Byte()) As Int32
End Function

Function DongleReadBlock(ByVal AccessLevel As Integer, ByVal Password As _
  String, ByVal BlockNumber As Integer) As Byte()
        Dim rev As Integer
        Dim UserPassByteArray As Byte() = System.Text.Encoding.Default.GetBytes( _
          Password)
        Dim buffer(255) As Byte
        DongleReadBlock = buffer 'For default
 
        Dim LC2_Handle As System.UInt32 'lc_handle_t = UInt32
        Try
            For i As Integer = 0 To 255
                rev = LC_open(DongleDeveloperID, i, LC2_Handle)
                If rev = LC_SUCCESS Then
                    rev = LC_passwd(LC2_Handle, AccessLevel, UserPassByteArray) _
                      '0=Admin  1=User  2=Authentification
                    If rev = LC_SUCCESS Then
                        rev = LC_read(LC2_Handle, BlockNumber, buffer) 'KILL 
                        ' Read
                        If rev = LC_SUCCESS Then
                            LC_close(LC2_Handle)
                            Return buffer
                        Else
                            LC_close(LC2_Handle)
                        End If
                    Else
                        LC_close(LC2_Handle)
                    End If
                Else
                    LC_close(LC2_Handle)
                End If
            Next i
        Catch ex As Exception
            frm_Main.WriteErrorString = "Dongle Error 3: " & ex.Message.ToString
            LC_close(LC2_Handle)
        End Try
 
        Dim ClearBuffer(255) As Byte 'Deb
        Return ClearBuffer
    End Function

Dim LC2_Handle As UInt32
Try
    For i As Integer = 0 To 255
        rev = LC_open(DongleDeveloperID, i, LC2_Handle)
        If rev = LC_SUCCESS Then
            rev = LC_passwd(LC2_Handle, AccessLevel, UserPassByteArray)
            If rev = LC_SUCCESS Then
                rev = LC_read(LC2_Handle, BlockNumber, buffer) 'KILL Read
                If rev = LC_SUCCESS Then
                    Return buffer
                End If
            End If
        End If
        LC_close(LC2_Handle)
    Next
Catch ex As Exception
    MsgBox("Dongle Error 3: " & ex.Message.ToString)
Finally
    If LC2_Handle <> 0 Then
        LC_close(LC2_Handle)
    End If
End Try