Question

give me a example

Develop a set of functions that will allow you to encrypt a string using a Caesar cipher.

Develop a set of functions that will allow you to decrypt a string using a Caesar cipher.

Develop a set of functions that will help you to solve (break) a Caesar cipher.

Encrypt, Decrypt, Solve in COBOL

Encrypt, Decrypt, Solve in Fortran

Answer 1

The   usage   for   encrypt   and   decrypt   should   be   as   follows:  
encrypt(str, shiftAmount)
decrypt(str, shiftAmount)
Pascal   code   fragment:  
var
x: string;
y: string;
x = encrypt("This is a test string from Alan", 8);
writeln(x);
y = decrypt(x, 8);
writeln(y);
example   output:  
BPQA QA I BMAB ABZQVO NZWU ITIV
THIS IS A TEST STRING FROM ALAN
Things   might   be   easier   if   you   use   only   capital   letters,   so   consider   writing   a   “toUpper”   function  
so   that   you   can   deal   with   mixed-case   input.   It’s   okay   if   your   output   is   all   caps.  
The   usage   for   solve   should   be   as   follows:  
solve(str, maxShiftValue);
In   Pascal,   again:      
solve("HAL", 26);
example   output:  
Caesar 26: HAL
Caesar 25: GZK
Caesar 24: FYJ
Caesar 23: EXI
Caesar 22: DWH
Caesar 21: CVG
Caesar 20: BUF
Caesar 19: ATE
Caesar 18: ZSD
Caesar 17: YRC
Caesar 16: XQB
Caesar 15: WPA
Caesar 14: VOZ
Caesar 13: UNY
Caesar 12: TMX
Caesar 11: SLW
Caesar 10: RKV
Caesar 9: QJU
Caesar 8: PIT
Caesar 7: OHS
Caesar 6: NGR
Caesar 5: MFQ
Caesar 4: LEP
Caesar 3: KDO
Caesar 2: JCN
Caesar 1: IBM
Caesar 0: HAL