Dim message As String
Dim secret_key As String
message="test TEXT for coding"
secret_key="12345"
Dim k As KeyGenerator
k.Initialize("HMACSHA256")
k.KeyFromBytes(secret_key.GetBytes("UTF8"))
Dim m As Mac
m.Initialise("HMACSHA256", k.Key)
m.Update(message.GetBytes("UTF8"))
Dim b() As Byte
b = m.Sign
Log("text => "&message)
Log("key => "&secret_key)
Log("Hash Function => "&"HMACSHA 256")
Dim bc As ByteConverter
Log("Hashed Output => "&bc.HexFromBytes(b))