Software components for data protection, secure storage and transfer
Public Function ByteArr2HexStr(ByRef v As Variant) As String
Dim i As Integer
Dim b As Byte
Dim C As String
Dim result As String
If VarType(v) <> vbArray + vbByte Then
ByteArr2HexStr = ""
For i = LBound(v) To UBound(v)
result = result + Hex(v(i))
If i <> UBound(v) Then
result = result + ":"
ByteArr2HexStr = result
S = "Server key fingerprint: " + ByteArr2HexStr(ServerKey.FingerprintSHA1)
Number of guests: 1, registered members: 0,
in total hidden: 0
Copyright (c) 2017, /n software, Inc.
As of July 15, 2016 EldoS Corporation will operate as a division of /n software inc. For more information, please read the announcement.