option explicit
Public Function HextoAscii(inputstr As String) As String
    Dim spilter As Variant, i As Integer, finnal As String
    If InStr(1, inputstr, " ") <> 0 Then
    spilter = Split(inputstr, " ")
    For i = 0 To UBound(spilter)
    finnal = finnal & Chr(Val("&H" & spilter(i)))
    Next i
    HextoAscii = finnal
    ElseIf Len(inputstr) = 2 Then
    finnal = Chr(Val("&H" & inputstr))
    HextoAscii = finnal
    End If
    End Function

Public Function Asciitohex(inputstr As String) As String
On Error Resume Next
Dim spilter As Variant, i As Integer, finnal As String
For i = 1 To Len(inputstr)
finnal = finnal & Hex(Asc(Mid(inputstr, i, 1))) & " "
Next i
Asciitohex = Mid(finnal, 1, Len(finnal) - 1)
End Function

Public Function hashCode(Value)
Const maxInt = 4294967295#
Const maxPostInt = 2147483647
Dim h As Currency
Dim div As Long
Dim i As Integer
h = 0
For i = 1 To Len(Value)
    h = h * 31 + Asc(Mid(Value, i, 1))
    If (h > maxInt) Then
        div = Int(h / (maxInt + 1))
        h = h - (div * (maxInt + 1))
    End If
Next i
If h > maxPostInt Then
    h = h - maxInt - 1
End If
hashCode = h
End Function

Public Function GenerateHashCode(Packet As String) As String
Dim aLong As Long
Dim TempPacket As String
aLong = hashCode(Packet)
TempPacket = Hex(aLong)
GenerateHasCode = Left(TempPacket, 2) & " " & Mid(TempPacket, 3, 2) & " " & Mid(TempPacket, 5, 2) & " " & Right(TempPacket, 2)
End Function

Public Function UnHex(sHex As String) As Long
    UnHex = Val("&H" & sHex)
End Function

Public Function DecToHexFull(strAsc) As String
'this function will convert decimal (only decimal) to hex and the result will be in 00 00 00 00 format
'maximal value which can be handled will be only 2147483647
    strAsc = Hex(strAsc)
    If Len(strAsc) < 8 Then
        Do Until Len(strAsc) = 8
            strAsc = "0" & strAsc
        Loop
    End If
    Dim lonLen As Long
    lonLen = Len(strAsc)
    Dim i As Integer
    For i = 1 To Len(strAsc)
        strAsc = strAsc & Mid(strAsc, i, 2) & " "
        i = i + 1
    Next i
    DecToHexFull = Mid(strAsc, lonLen + 1)
    DecToHexFull = Mid(DecToHexFull, 1, Len(DecToHexFull) - 1)
End Function