Migrating from BareboneThunks to cTlsSocket #2

[gaouservbf]

I just had a blank response

-Windows XP Service Pack 3 SSE2 enabled x86

[gaouservbf]

msgbox had no content

[gaouservbf]

[gaouservbf]

I think issue is related to version difference between mdThunks and cTlsSocket

[wqweto]

Yes, these are always bundled together so mismatched versions are sometimes incompatible.

[gaouservbf]

I have fixed both your code AND VBWebSocket.

Public Function pvCryptoHashSha1(baRetVal() As Byte, baInput() As Byte, Optional ByVal Pos As Long, Optional ByVal Size As Long = -1) As Boolean
    Const FUNC_NAME     As String = "CryptoHashSha256"
    Dim lPtr            As Long
    Dim hHash           As Long
    
    If Size < 0 Then
        Size = pvArraySize(baInput) - Pos
    Else
        Debug.Assert pvArraySize(baInput) >= Pos + Size
    End If
    If Size > 0 Then
        lPtr = VarPtr(baInput(Pos))
    End If
    pvArrayAllocate baRetVal, LNG_SHA1_HASHSZ, FUNC_NAME & ".baRetVal"
    If CryptCreateHash(m_uData.hRandomProv, CALG_SHA1, 0, 0, hHash) = 0 Then
        GoTo QH
    End If
    If CryptHashData(hHash, ByVal lPtr, Size, 0) = 0 Then
        GoTo QH
    End If
    If CryptGetHashParam(hHash, HP_HASHVAL, baRetVal(0), LNG_SHA1_HASHSZ, 0) = 0 Then
        GoTo QH
    End If
    '--- success
    pvCryptoHashSha1 = True
QH:
    If hHash <> 0 Then
        Call CryptDestroyHash(hHash)
    End If
End Function

I made the SHA1 function public in your code. and rest is with VBWebSocket, unrelated to you.

[wqweto]

You can copy/paste (or reimplement) this procedure in VBWebSocket sources as I don't plan on making it visible from outside mdTlsThunks module.

[gaouservbf]

Sure, though I think it would be mildly useful if they were public.

[wqweto]

Btw, another option is to add a Public Function CryptoHashSha1 which calls pvCryptoHashSha1 -- you might find this easier when you sync the module with latest changes from here.

[gaouservbf]

Thanks to the function finding combobox thing VB6 IDE has, it might be actually harder lmao.

[gaouservbf]

I would have to copy and paste a new function, but I can just find the function from the dropbox and make it public.