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
|