В общем согласно заданию необходимо, что бы в методе шифрования цезаря участвовали только символы "а...я", я очень долго пытался разобраться но ничего не выходит помогите плз.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | procedure TForm1.BZShClick(Sender: TObject);
var
i:integer;
begin
str1:=mzSh.Text;
MZZash.Text:='';
bl:=StrToInt(ESdv.Text);
for i:=1 to length(str1) do
mzZash.Text:=mzZash.Text+chr( (ord(str1[i])+bl) mod 256 );
end;
procedure TForm1.BZPozShClick(Sender: TObject);
var
i:integer;
begin
MZPozsh.Text:='';
for i:=1 to length(str1) do
MZPozsh.Text:=MZPozsh.Text+chr( (ord(str1[i])+(224-32)) mod +224 );
end;
|
Админ: Пользуемся тегами для оформления кода!
11.05.2012, 10:00
Криптография, Необходима помощь!
Mouse 
Древовидный вид