(PureBasic) Generate a Random 256-bit AES Key and RSA Encrypt

See more RSA Examples

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkBinData.pb"
IncludeFile "CkPublicKey.pb"
IncludeFile "CkPrng.pb"
IncludeFile "CkRsa.pb"

Procedure ChilkatExample()

    success.i = 0

    ; The RSA public key is used for encryption, and the private key for decryption.

    ; The public key's role is to make encryption accessible to anyone while ensuring that
    ; only the private key holder can decrypt the messages.
    ; The public key is designed to be widely distributed so anyone can use it to encrypt messages
    ; intended for the owner of the private key.

    ; Load our 2048-bit RSA public key.
    pubKey.i = CkPublicKey::ckCreate()
    If pubKey.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; In all Chilkat methods expecting a path, you pass either absolute or relative paths.
    success = CkPublicKey::ckLoadFromFile(pubKey,"rsaKeys/Test2048Rsa.pem")
    If success = 0
        Debug CkPublicKey::ckLastErrorText(pubKey)
        CkPublicKey::ckDispose(pubKey)
        ProcedureReturn
    EndIf

    rsa.i = CkRsa::ckCreate()
    If rsa.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Tell RSA to use the public key.
    CkRsa::ckUsePublicKey(rsa,pubKey)

    ; Generate a random 256-bit AES key (32 bytes)
    bdAesKey.i = CkBinData::ckCreate()
    If bdAesKey.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    prng.i = CkPrng::ckCreate()
    If prng.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkPrng::ckGenRandomBd(prng,32,bdAesKey)

    ; RSA encrypt.
    CkRsa::ckEncryptBd(rsa,bdAesKey,0)

    ; Save the RSA encrypted AES key to a file.
    success = CkBinData::ckWriteFile(bdAesKey,"rsaEncrypted/myAes.key")


    CkPublicKey::ckDispose(pubKey)
    CkRsa::ckDispose(rsa)
    CkBinData::ckDispose(bdAesKey)
    CkPrng::ckDispose(prng)


    ProcedureReturn
EndProcedure