то есть задать строка символов вот так задать
const
a:string=('abcdefghijklmnopqrstuvwxyz')
или
const Buk:array[0..25] of char=('a','b','c','d','e','f','g','h','i','j','k', 'l','m','n','o','p','q','r','s','t','u','v','w','x ','y','z')
var b:array[0..25] of char;
а где там нужно поменять знаки? а мне казалось что все логично вроде)
sh:=chr(100+(ord(sl)-97+ord(kl)-97)mod(26));
...
rassl:=chr(94+(ord(sh)-97+ord(kl)-97)mod(26));
а так в целом нормально, чтоб зашифровать с ключом(кодовое слово) и со сдвигом на какое-то число?
|