For i = 1 To Len("проба") Step 2
ind1 = ind1 + Asc(Mid(UCase("проба"), i, 1))
Next i

For i = 2 To Len("проба") Step 2
ind2 = ind2 + Asc(Mid(UCase("проба"), i, 1))
Next i

ActiveCell = ind1 + ind2

Function Hash4(txt)
Dim x As Long, mask, i, j, nC, c As String
Dim crc As Integer, cr2 As Integer, cr3 As Integer ' переменные цикла, которые будут модифицироваться

crc = &HFFFF

For nC = 1 To Len(txt)
    j = Asc(Mid(txt, nC))
    
    ' модификация
    crc = crc Xor j
    cr2 = cr2 Xor crc
    cr3 = cr3 Xor cr2 '(j Xor &H7FFB)
    
    ' применение маскирования к одной из переменных цикла без этого частенько будем получать значния с нулями в начале
    For j = 1 To 8
        mask = 0
        If crc / 2 <> Int(crc / 2) Then mask = &HA001
        crc = Int(crc / 2) And &H7FFF
        crc = crc Xor mask
    Next j
Next nC

' теперь необходимо каждое значение превратить в строку функция Hex$() может вернуть и меньше 4 знаков текста, _
 тогда при склеивании мы рискуем получить ненужные коллизии: A0 & B0 = A & 0B0 .. или что-то в этом роде _
 можно конечно использовать  с = Hex$(crc) + "." + Hex$(cr2) + "." + Hex$(cr3), но это не этстетично

c = Hex$(cr3)
While Len(c) < 4
  c = "0" & c
Wend

c = Hex$(cr2) & c
While Len(c) < 8
  c = "0" & c
Wend

c = Hex$(crc) & c
While Len(c) < 12
  c = "0" & c
Wend

Hash4 = c

End Function

Public Function BASE64SHA1(ByVal sTextToHash As String)
    Dim asc As Object, enc As Object, TextToHash() As Byte, SharedSecretKey() As Byte, bytes() As Byte
    Const cutoff As Integer = 5
        Set asc = CreateObject("System.Text.UTF8Encoding")
        Set enc = CreateObject("System.Security.Cryptography.HMACSHA1")
            TextToHash = asc.GetBytes_4(sTextToHash)
            SharedSecretKey = asc.GetBytes_4(sTextToHash)
            enc.Key = SharedSecretKey
            bytes = enc.ComputeHash_2((TextToHash))
            BASE64SHA1 = EncodeBase64(bytes)
            BASE64SHA1 = Left(BASE64SHA1, cutoff)
        Set asc = Nothing
        Set enc = Nothing
End Function

Private Function EncodeBase64(ByRef arrData() As Byte) As String
    Dim objXML As Object, objNode As Object
        Set objXML = CreateObject("MSXML2.DOMDocument")
        Set objNode = objXML.createElement("b64")
            objNode.DataType = "bin.base64"
            objNode.nodeTypedValue = arrData
            EncodeBase64 = objNode.Text
        Set objNode = Nothing
        Set objXML = Nothing
End Function