[help] semplice crypta stringhe

[kerberos5]

Ciao,
leggendo un po di documentazione ho provato a ri-codare la funzione incriminata in questo modo:

Originale VB6:

Public Function ASMXORString(Str As String, Password As String) As String
 Call LeggiCodiceMasm32
 Call CallWindowProc(ptrMC, StrPtr(Str), Len(Str), StrPtr(Password), Len(Password))
     ASMXORString = Str
End Function

VB.NET

Public Function ASMXORString(ByVal Str As String, ByVal Password As String) As String
     Dim handleStr As GCHandle = GCHandle.Alloc(Str, GCHandleType.Pinned)
     Dim strPtr1 As IntPtr = handleStr.AddrOfPinnedObject()

     Dim handlePwd As GCHandle = GCHandle.Alloc(Password, GCHandleType.Pinned)
     Dim strPtr2 As IntPtr = handlePwd.AddrOfPinnedObject()
     Call LeggiCodiceMasm32()
     Call CallWindowProc(ptrMC, strPtr1, Len(Str), strPtr2, Len(Password))
     handleStr.Free()
     handlePwd.Free()
     ASMXORString = Str
   End Function

ma non funziona.... avete idea di come fare?
grazie in anticipo