Example: Cipher.KeyUnwrap 

[VB6 equivalent: CIPHER_KeyUnwrap]

Dim abWK() As Byte
Dim abKeyData() As Byte
Dim abKek() As Byte

abWK = Cnv.FromHex("503D75C73630A7B02ECF51B9B29B907749310B77B0B2E054")
abKek = Cnv.FromHex("c17a44e8 e28d7d64 81d1ddd5 0a3b8914")
Console.WriteLine("INPUT:")
Console.WriteLine("KEK=" & Cnv.ToHex(abKek))
Console.WriteLine("WK =" & Cnv.ToHex(abWK))
Console.WriteLine("ALG=AES-128")

abKeyData = Cipher.KeyUnwrap(abWK, abKek, CipherAlgorithm.Aes128)
Console.WriteLine("OUTPUT:")
Console.WriteLine("KD =" & Cnv.ToHex(abKeyData))
Console.WriteLine("OK =00112233445566778899AABBCCDDEEFF")

See Also:
Cipher.KeyUnwrap Method

[Contents] [Index]