A
Sample PL/SQL Code

This appendix contains a sample PL/SQL program written in C.

• "Sample PL/SQL Program"

A.1 Sample PL/SQL Program

Following is a sample PL/SQL program for your reference. Segments of this code are numbered and contain narrative text explaining portions of the code.

declare
    wallet dbms_crypto_toolkit.Wallet;
    persona_list dbms_crypto_toolkit.Persona_List;
    persona dbms_crypto_toolkit.Persona;
    string_input VARCHAR2(6)  := `123456';
    signature RAW(2048);
    signing_party dbms_crypto_toolkit.Identity;
    recipient dbms_crypto_toolkit.Identity;

    -- Flags to indicate the package state.
    initialized BOOLEAN := FALSE;
    wallet_opened BOOLEAN := FALSE;
    persona_opened BOOLEAN := FALSE;

    operation_unsupported EXCEPTION;
    PRAGMA EXCEPTION_INIT (operation_unsupported, -28841);
    ENCRYPTION_UNSUPPORTED_MESSAGE VARCHAR2(64) :=
         `**** ENCRYPTION UNSUPPORTED - IGNORING EXCEPTION ****';
    encrypted_string VARCHAR2 (2048);
    decrypted_string VARCHAR2 (2048);
    extracted_string VARCHAR2 (128);
    hash_string      VARCHAR2 (2048);
    string_verified  BOOLEAN := FALSE;
    string_validated BOOLEAN := FALSE;

begin

1. Start Oracle Cryptographic Toolkit operation.

       dbms_output.put_line(`> Initialize');
       dbms_crypto_toolkit.Initialize;
       initialized := TRUE;
   
   

2. Open a wallet at the default location.

       dbms_output.put_line(`> OpenWallet');
       dbms_crypto_toolkit.OpenWallet(`server1', wallet, persona_list, `default:');
       wallet_opened := TRUE;
   
   

3. Establish the identity associated with the first persona in the new wallet as the recipient.

       dbms_output.put_line(`>Alias ` || persona_list(1).alias);
       dbms_output.put_line(`>Comment ` || persona_list(1).comment);
       persona.persona := persona_list(1).persona;
       recipient.Descriptor := persona_list(1).identity;
   
   

4. Open the first persona.

       dbms_output.put_line(`> OpenPersona');
       dbms_crypto_toolkit.OpenPersona(persona);
       persona_opened := TRUE;
   
   

5. Create an attached signature associated with the current persona.

       dbms_output.put_line(`> Sign');
       dbms_crypto_toolkit.Sign(persona => persona, input => string_input, 
   
                                                  signature => signature);
   
   

6. Verify the attached signature.

       dbms_output.put_line(`> Verify');
       dbms_crypto_toolkit.Verify(persona => persona,
                                 signature => signature,
                                 extracted_message => extracted_string,
                                 verified => string_verified,
                                 validated => string_validated,
                                 signing_pary_identity => signing_party);
   
       If string_validated THEN
          dbms_output.put_line(`> Validated');
       END IF;
       IF string_verified THEN
          dbms_output.put_line(`> Verified');
       END IF;
   
   

7. Create a detached signature associated with the current persona.

       dbms_output.put_line(`> Sign detached');
       dbms_crypt_toolkit.SignDetached(persona => persona,
                                      input => string_input,
                                      signature => signature);
   
   

8. Verify the detached signature.

       dbms_output.put_line(`> Verify detached');
       dbms_crypto_toolkit.VerifyDetached(persona => persona,
                                         data => string_input,
                                         signature => signature,
                                         verified => string_verified,
                                         validated => string_validated,
                                         signing_party_identity => signing_party);
   
       IF string_validated THEN
          dbms_output.put_line(`> Validated');
       END IF;
       IF string_verified THEN
          dbms_output.put_line(`> Verified');
       END IF;
   
   

9. Generate a hash of the current message.

       dbms_output.put_line(`> Hash');
       dbms_crypto_toolkit.Hash(persona => persona,
                               input => string_input,
                               hash => hash_string);
   
       IF string_input = hash_string THEN
          dbms_output.put_line(`> Hash Succeeded');
       ENDIF;
   
       BEGIN
   

10. Close the current open persona.

            IF persona_opened THEN
                dbms_output.put_line(`> ClosePersona');
                dbms_crypto_toolkit.ClosePersona(persona);
            END IF;
    
    

11. Close the open wallet.

            IF wallet_opened THEN
                dbms_output.put_line(`> CloseWallet');
                dbms_crypto_toolkit.CloseWallet(wallet);
            END IF;
    
    

12. Stop the Oracle Cryptographic Toolkit operation.

            IF initialized THEN
                dbms_output.put_line(`> Terminate');
                dbms_crypto_toolkit.TERMINATE;
            END IF;
            RAISE;
    END;
    
    

---