I have the same problem as this topic.
here is the DLL info.
Code:extern "C" __declspec(dllexport) int GetHash(HASHINFO*);Here is the VBCode:typedef struct { unsigned char* pHash; // Address of buffer for saving hash unsigned char* szPassword; // Password int nPasswordLen; // Password length unsigned char* szSalt; // Salt int nSaltLen; // Salt length unsigned char* szName; // User name int nNameLen; // User name length DWORD dwFlags; // Flags } HASHINFO;
Code:Private Type HASHINFO hash As String szPassword As String * 10 nPasswordLen As Long szSalt As String * 10 nSaltLen As Long szName As String * 10 nNameLen As Long dwFlags As Long End Type Private Declare Sub GetHash Lib "c:\md5\md5.dll" (ByRef pudt As HASHINFO)I just get a crash.Code:Private Sub Command1_Click() Dim udt As HASHINFO udt.hash = vbNullString udt.szPassword = "test" & Chr(0) udt.nNameLen = 4 udt.szSalt = "test" & Chr(0) udt.nSaltLen = 4 udt.szName = "test" & Chr(0) udt.nNameLen = 4 udt.dwFlags = 0 Call GetHash(udt) End Sub
Anyone out there to help me?




Reply With Quote