| 
 3.1 AESDECRYPT: Feldinhalte entschlüsseln
 
 
 
 
|  |  |  |  |  |  |  | Format:Call AesEncrypt using Key Feld.
 |  |  |  |  |  |  |  
 In Key beinhaltet den Key mit dem der Inhalt von Feld verschlüsselt wurde.Feld  beinhaltet das Ergebnis einer AES-128 Bit-Verschlüsselung.
 
 Die Länge des angegebenen Feldes muss ein Vielfaches von 32 sein.
 
 Siehe auch: AesEncrypt GetHash
 
 
  Beispiel: aes.cob       Beispiel: !href aes.cob
      *c32 aes.cob;slink aes
       identification division.
       environment division.
       data division.
       working-storage section.
        01 aesbuffer    pic x(128).  // Vielfaches von 32
       procedure division.
      * Aufruf: aes "text" --> verschlüsselung in datei cr.aes
      * Aufruf: aes        --> entschlüsselung von datei cr.aes
        call dom using aesbuffer.
        if aesbuffer = space go to decode.
        call aesencrypt using 'acc' aesbuffer.
        call dlfile using "cr.aes".
        call wrfile using 'cr.aes' aesbuffer.
        stop run.
       decode.
        call rdfile using 'cr.aes' aesbuffer.
        call aesdecrypt using 'acc' aesbuffer.
        display "Text: "' aesbuffer.
        call getchar.
 
  Zurück zu Procedure Divison in COBOL    Hoch zu Funktionslibrary    Weiter zu AESENCRYPT: Feldinhalte verschlüsseln   |