Значение хеш-функции меняется изо дня в день с одним и тем же - PullRequest
Новая
       43

Значение хеш-функции меняется изо дня в день с одним и тем же

0 голосов
/ 08 июля 2019

У меня есть простая хэш-функция, которую я скопировал с https://en.wikibooks.org/wiki/Visual_Basic_for_Applications/String_Hashing_in_VBA. Она отлично работает. Я перефразировал текст, и он соответствовал сохраненному хешу. Я попробовал это снова в другой день, и тот же текст хэширует к другому значению. 

Public Function SHA512(ByVal sIn As String, Optional bB64 As Boolean = 0) As String
    'Set a reference to mscorlib 4.0 64-bit

    'Test with empty string input:
    '128 Hex:   cf83e1357eefb8bd...etc
    '88 Base-64:   z4PhNX7vuL3xVChQ...etc

    Dim oT As Object, oSHA512 As Object
    Dim TextToHash() As Byte, bytes() As Byte

    Set oT = CreateObject("System.Text.UTF8Encoding")
    Set oSHA512 = CreateObject("System.Security.Cryptography.SHA512Managed")

    TextToHash = oT.Getbytes_4(sIn)
    bytes = oSHA512.ComputeHash_2((TextToHash))

    If bB64 = True Then
       SHA512 = ConvToBase64String(bytes)
    Else
       SHA512 = ConvToHexString(bytes)
    End If

    Set oT = Nothing
    Set oSHA512 = Nothing

End Function

Private Function ConvToHexString(vIn As Variant) As Variant

    Dim oD As Object

    Set oD = CreateObject("MSXML2.DOMDocument")

      With oD
        .LoadXML "<root />"
        .DocumentElement.DataType = "bin.Hex"
        .DocumentElement.nodeTypedValue = vIn
      End With
    ConvToHexString = Replace(oD.DocumentElement.Text, vbLf, "")

    Set oD = Nothing

End Function

1 Ответ

0 голосов
/ 20 июля 2019

Решил мою проблему.Хеш хэшировал случайное значение кэша.Переписана передача значения в хэш-функцию.

...