Example: Gcm.Dispose  Gcm.ErrCode  Gcm.InitKey  Gcm.Instance 

[VB6 equivalent: GCM_InitKey]

Dim abKey() As Byte
Dim nCode As Integer
Dim nRet As Integer
Dim oGcm As Gcm = Gcm.Instance()

' Initialise with a valid key
abKey = Cnv.FromHex("feffe9928665731c6d6a8f9467308308")
nRet = oGcm.InitKey(abKey)
Console.WriteLine("GCM_InitKey returns " & nRet & " (expected zero)")
If nRet = 0 Then
    '... do something here...
    ' Destroy the key
    oGcm.Dispose()
End If

' Now try an invalid key (length must be 16,24, or 32 bytes)
abKey = Cnv.FromHex("badace")
nRet = oGcm.InitKey(abKey)
Console.WriteLine("GCM_InitKey returns " & nRet)
' Use General.ErrorCode to find the error value
nCode = oGcm.ErrCode()
Console.WriteLine("General.ErrorCode returns " & nCode & ": " & General.ErrorLookup(nCode))

See Also:
Gcm.InitKey Method - @superseded

[Contents] [Index]