Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicCkPythonChilkat2-PythonRubySQL ServerSwift 2Swift 3,4,5...TclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcelGo

VB.NET UWP/WinRT Examples

Web API Categories

ASN.1
Amazon EC2
Amazon Glacier
Amazon S3
Amazon S3 (new)
Amazon SES
Amazon SNS
Amazon SQS
Azure Cloud Storage
Azure Service Bus
Azure Table Service
Base64
Bounced Email
Box
CAdES
CSR
CSV
Certificates
Compression
DKIM / DomainKey
DSA
Diffie-Hellman
Digital Signatures
Dropbox
Dynamics CRM
EBICS
ECC
Ed25519
Email Object
Encryption
FTP
FileAccess
Firebase
GMail REST API
GMail SMTP/IMAP/POP
Geolocation
Google APIs
Google Calendar
Google Cloud SQL
Google Cloud Storage
Google Drive
Google Photos
Google Sheets
Google Tasks
Gzip
HTML-to-XML/Text
HTTP

HTTP Misc
IMAP
JSON
JSON Web Encryption (JWE)
JSON Web Signatures (JWS)
JSON Web Token (JWT)
Java KeyStore (JKS)
MHT / HTML Email
MIME
MS Storage Providers
Microsoft Graph
NTLM
OAuth1
OAuth2
OIDC
Office365
OneDrive
OpenSSL
Outlook
Outlook Calendar
Outlook Contact
PDF Signatures
PEM
PFX/P12
PKCS11
POP3
PRNG
REST
REST Misc
RSA
SCP
SCard
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
ScMinidriver
SharePoint
Socket/SSL/TLS
Spider
Stream
Tar Archive
Upload
WebSocket
XAdES
XML
XML Digital Signatures
XMP
Zip
curl

 

 

 

(VB.NET UWP/WinRT) AEAD AES 128-bit GCM

Demonstrates AES encryption using the Galois/Counter Mode (GCM). GCM is an authenticated encryption mode with "additional data" (often referred to as AEAD). GCM is a cipher mode that can be applied to any symmetric encryption algorithm with a 16-byte block size, such as AES and Twofish. In GCM mode, the block encryption algorithm is transformed into a stream encryption algorithm, and therefore no padding occurs (and the PaddingScheme property does not apply). The "additional data" (known as the AAD) does not get encrypted but plays a role in the computation of the resulting "authenticated tag".

Chilkat Universal Windows Platform (UWP) / WinRT Downloads

Chilkat for the Universal Windows Platform (UWP)

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim crypt As New Chilkat.Crypt2

' Set the encryption algorithm to "AES"	
crypt.CryptAlgorithm = "aes"

' Indicate that the Galois/Counter Mode (GCM) should be used:
crypt.CipherMode = "gcm"

' KeyLength may be 128, 192, 256
crypt.KeyLength = 128

' This is the 128-bit AES secret key (in hex format)
Dim K As String = "feffe9928665731c6d6a8f9467308308"

' This is the 16-byte initialization vector:
Dim IV As String = "cafebabefacedbaddecaf888"

' This is the additional data to be used as input to the GCM AEAD algorithm,
' but is not included in the output.  It plays a role in the computation of the
' resulting authenticated tag.
Dim AAD As String = "feedfacedeadbeeffeedfacedeadbeefabaddad2"

' The plain-text bytes (in hex format) to be encrypted.
Dim PT As String = "d9313225f88406e5a55909c5aff5269a86a7a9531534f7da2e4c303d8a318a721c3c0c95956809532fcf0e2449a6b525b16aedf5aa0de657ba637b39"

' The expected cipher text (in hex format)
Dim CT As String = "42831ec2217774244b7221b784d0d49ce3aa212f2c02a4e035c17e2329aca12e21d514b25466931c7d8f6a5aac84aa051ba30b396a0aac973d58e091"

' The expected authenticated tag given the above inputs.
Dim T As String = "5bc94fbc3221a5db94fae95ae7121a47"


' Note: The above data are the values for test vector #4 from 
' the PDF document at: http://csrc.nist.gov/groups/ST/toolkit/BCM/documents/proposedmodes/gcm/gcm-spec.pdf

' EncodingMode specifies the encoding of the output for
' encryption, and the input for decryption.
' It may be "hex", "url", "base64", or "quoted-printable".
crypt.EncodingMode = "hex"

' Set the secret key and IV
crypt.SetEncodedIV(IV,"hex")
crypt.SetEncodedKey(K,"hex")

' Set the additional authenticated data (AAD)
Dim success As Boolean = crypt.SetEncodedAad(AAD,"hex")

' For the purpose of duplicating the test vectors, we are using the EncryptEncoded method.
' This method decodes the input string according to the encoding specified by the EncodingMode
' property, which in this case is "hex".  The decoded bytes are encrypted using the mode specified
' by the CipherMode property.  The resulting
' encrypted bytes are encoded (again using the encoding mode specified by EncodingMode),
' and the result is returned.
' <b>Note:</b> The CipherMode property sets the block mode of operation (gcm, cfb, cbc, ofb, ecb, etc.) 
' for any of the Chilkat encryption/decryption methods (such as EncryptBytes, EncryptString, 
' CkEncryptFile, etc.)   Just because GCM mode is demonstrated with EncryptEncoded/DecryptEncoded,
' does not imply that GCM mode is specific to only these methods.
Dim ctResult As String = crypt.EncryptEncoded(PT)
If (crypt.LastMethodSuccess <> True) Then
    Debug.WriteLine(crypt.LastErrorText)
    Exit Sub
End If


' Examine the result.  It should be the same (case insensitive) as our expected result:
Debug.WriteLine("computed result: " & ctResult)
Debug.WriteLine("expected result: " & CT)

' Examine the authenticated tag. It should be the same (case insensitive) as our expected authenticated tag:
Dim tResult As String = crypt.GetEncodedAuthTag("hex")
Debug.WriteLine("computed authTag: " & tResult)
Debug.WriteLine("expected authTag: " & T)

' -------------------------------------------------------------------------------------
' Now let's GCM decrypt...
' -------------------------------------------------------------------------------------

' Before GCM decrypting, we must set the authenticated tag to the value that is expected.
' The decryption will fail if the resulting authenticated tag is not equal (case insensitive) to 
' the expected result.
' Note: The return value of SetEncodedAuthTag indicates whether the string passed was a valid
' representation of the encoding specified in the 2nd arg.
success = crypt.SetEncodedAuthTag(T,"hex")

' All of our properties (IV, secret key, cipher mode, and AAD) are already set from the code above...

' So let's decrypt CT to and check to see if we get PT.
Dim ptResult As String = crypt.DecryptEncoded(CT)
If (crypt.LastMethodSuccess <> True) Then
    ' Failed.  The resultant authenticated tag did not equal the expected authentication tag.
    Debug.WriteLine(crypt.LastErrorText)
    Exit Sub
End If


' Examine the decrypted result.  It should be the same as our expected plaintext (case insensitive)
Debug.WriteLine("plaintext decrypted: " & ptResult)
Debug.WriteLine("plaintext expected:  " & PT)


' Let's intentionally set the expected authenticated tag to an incorrect value. 
' The decrypt operation should fail:
Dim tInvalid As String = "ffaabbbc3221a5db94fae95ae7121a47"

success = crypt.SetEncodedAuthTag(tInvalid,"hex")

ptResult = crypt.DecryptEncoded(CT)
If (crypt.LastMethodSuccess <> True) Then
    ' Failed.  The resultant authenticated tag did not equal the expected authentication tag.
    Debug.WriteLine(crypt.LastErrorText)
End If


 

© 2000-2022 Chilkat Software, Inc. All Rights Reserved.