triosol.blogg.se

loads the specified module into the address space of the calling process Static BCRYPT_HASH_LENGTH := "HashDigestLength" Static BCRYPT_OBJECT_LENGTH := "ObjectLength" NBytes = WideCharToMultiByte(CP_UTF8, 0&, ByVal StrPtr(strInput), -1, ByVal VarPtr(abBuffer(0)), nBytes - 1, 0&, 0&)įunction StringToMD5HexUtf8(ByVal s As String) As String' ReDim abBuffer(nBytes - 2) ' NB ReDim with one less byte than you need ' We don't want the terminating null in our byte array, so ask for 'nBytes-1' bytes NBytes = WideCharToMultiByte(CP_UTF8, 0&, ByVal StrPtr(strInput), -1, 0&, 0&, 0&, 0&) ' Get length in bytes *including* terminating null Public Function Utf8BytesFromString(strInput As String) As Byte() ''' Return byte array with VBA "Unicode" string encoded in UTF-8 Private Declare Function WideCharToMultiByte Lib "kernel32" ( _ĭebug.Print StringToMD5HexTest(s) ' the parameter s is not used in this test 'Old VBA version 6 or earlier compiler, therefore <= Office 2007 Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" ( _īyVal lpUsedDefaultChar As LongPtr) As Long 'LongPtr type alias resolves to Long (32 bits) in 32-bit Office, or LongLong (64 bits) in 64-bit Office 'PtrSafe means function works in 32-bit and 64-bit Office

'New VBA version 7 compiler, therefore >= Office 2010 ''' WinApi function that maps a UTF-16 (wide character) string to a new character string Outstr = outstr & LCase(Right("0" & Hex(AscB(MidB(bytes, pos, 1))), 2))įunction StringToMD5Hex(ByVal s As String) As String Set enc = CreateObject("5CryptoServiceProvider") MsgBox StringToMD5HexTest(s) ' the parameter s is not used in this testįunction StringToMD5HexTest(ByVal s As String) As String