VPF::Шифр - Форум программистов

Taur

Дата 17.6.2009, 20:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 30.3.2008

Репутация: нет
Всего: нет

Нашел вот такой код, хотелось бы его изменить так что бы он шифровал в обратную сторону и при этом буква заменялась на 2 предыдущие.
Например:
A = ZY
B = AZ
и т.д.
Кто нибудь знает как это можно осуществить?

Код


program job1_caesar;
uses crt;
var a,b,c:string;
i,j,k,d:integer;
begin
clrscr;
writeln('Enter text for coding');
readln(a);
writeln('Enter key');
readln(d);
c:='';
b:=' abcdefghijklmnopqrstuvwxyz';
for i:=1 to length(a) do
for j:=1 to length(b) do
begin
k:=(j+d) mod 25;
if a[i]=b[j] then c:=c+b[k];
end;
writeln(c);
readkey;
end.

volvo877

Дата 18.6.2009, 10:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Это что-ли имеется в виду?

Код

uses crt;
var
  a, b, c: string;
  i, p: integer;

const
  st: string = 'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz';

begin
  clrscr;
  writeln('Enter text for coding');
  readln(a);

  {
    writeln('Enter key');
    readln(d);
  }
  c := '';

  for i := 1 to length(a) do begin
    p := pos(a[i], st);
    if p > 0 then c := c + st[25 + p] + st[24 + p];
  end;
  writeln(c);
  readkey;
end.

(вводить D уже не надо, ты выбрал то смещение, которое надо использовать, оно жестко "зашито" в программе)

Taur

Дата 19.6.2009, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 30.3.2008

Репутация: нет
Всего: нет

ага, то что я и хотел спс.
Кст. как можно сделать так что бы, программа делала два шага назад (получ a=zy), но перед тем как зашифровать zy меняла местами yz и в итоге при шифровании получалось A=YZ?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »