Example: Gcm.Gmac 

[VB6 equivalent: GCM_Encrypt]

Dim abKey() As Byte
Dim abAAD() As Byte
Dim abIV() As Byte
Dim abTag() As Byte
' Source: http://www.mail-archive.com/stds-p1619@listserv.ieee.org/msg00321.html
' KEY feffe9928665731c6d6a8f9467308308
' IV  cafebabefacedbaddecaf888
' AAD feedfacedeadbeeffeedfacedeadbeef
' TAG 54df474f4e71a9ef8a09bf30da7b1a92
abKey = Cnv.FromHex("feffe9928665731c6d6a8f9467308308")
abIV = Cnv.FromHex("cafebabefacedbaddecaf888")
abAAD = Cnv.FromHex("feedfacedeadbeeffeedfacedeadbeef")

Console.WriteLine("KEY " & Cnv.ToHex(abKey))
Console.WriteLine("IV  " & Cnv.ToHex(abIV))
Console.WriteLine("AAD " & Cnv.ToHex(abAAD))

' Dimension output array
abTag = New Byte(15) {}

' GMAC := Encrypt with no CT output or PT input. GMAC value is in tag.
abTag = Gcm.Gmac(abKey, abIV, abAAD)
Console.WriteLine("TAG " & Cnv.ToHex(abTag))
Console.WriteLine("OK  " & "54df474f4e71a9ef8a09bf30da7b1a92")

See Also:
Gcm.Encrypt Method - @superseded

[Contents] [Index]