MÃ HÓA CAESAR

MÃ HÓA CAESAR

Hệ mã hoá CAESAR là một hệ mã hoá thay thế đơn làm việc trên 
bảng chữ cái tiếng Anh 26 ký tự (A, B, ... , Z).
Trong hệ CAESAR và các hệ tương tự còn lại ta sử dụng các số tự 
nhiên thay cho các ký tự - đánh số các ký tự trong bảng chữ cái theo thứ 
tự: A là 0, B là 1,...và Z là 25. 
A B C D ... L M N ... W X Y Z

0 1 2 3 ... 11 12 13 ... 22 23 23 25 

Mã hóa caesar bằng Pascal

uses crt;

var s : string;

    i,k : byte;

Function caesar(c: char; k: byte) : char;

var tmp : byte;

Begin

   if (upcase(c) in ['A'..'Z']) then

      Begin

        tmp := ord(upcase(c)) + k;

        if (tmp > 90) then tmp := tmp - 26;

        exit(char(tmp));

      End

    else exit(c);

End;

Begin

   clrscr();

   writeln('Nhap chuoi can ma hoa');

   readln(s);

   writeln('Nhap K = ');

   readln(k);

   for i := 1 to length(s) do

        s[i] := caesar(s[i],k);

   writeln('Chuoi da ma hoa: ');

   writeln(s);

   readln();

End.