Каждую букву заменить соответствующим ей числом

@Buged · Регистрация: 07.12.2014

Author24 — интернет-сервис помощи студентам

Сама задача:

В шифре каждое слово шифруется отдельно. Рассмотрим шифрования на примере слов, состоящих только из малых латинских букв.

В начале каждая буква заменяется соответствующим ей числом: a на 0, b на 1, c на 2, ..., z на 25. После этого к первому числу добавляется 5, ко второму числу добавляется первое число, к третьему - второе и т .д. После этого если какое-то число превышает 25, то оно заменяется остатком от деления этого числа на 26. И, наконец, числа обратно заменяются буквами.

Зашифруем слово secret:

Шаг 0. secret

Шаг 1. 18 4 2 17 4 19

Шаг 2. 23 27 29 46 50 69

Шаг 3. 23 1 3 20 24 17

Шаг 4. xbduyr

В итоге получилось слово xbduyr.

Входные данные: файл input.in содержит зашифрованное слово, состоящее из малых латинских букв, длиной не более 100 символов.

Выходные данные: в файл output.out выведите исходное слово.

У самого ни черта не выходит...

@JuriiMW · 27.01.2015, 06:48

Pascal

const
  C = 'abcdefghijklmnopqrstuvwxyz';
 
var
  S : String;
  i, k : Byte;
begin
  S := 'secret'; WriteLn(S);
 
  k := (Pos(S[1], C) + 4) mod 26;
  S[1] := C[k + 1];
  for i := 2 to Length(S) do
    begin
      k := (Pos(S[i], C) + k - 1) mod 26;
      S[i] := C[k + 1];
    end;
    
  WriteLn(S);
end.

@Buged · 28.01.2015, 02:01 **[ТС]**

Сообщение от JuriiMW

Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
C = 'abcdefghijklmnopqrstuvwxyz';
var
S : String;
i, k : Byte;
begin
S := 'secret'; WriteLn(S);
k := (Pos(S[1], C) + 4) mod 26;
S[1] := C[k + 1];
for i := 2 to Length(S) do
begin
k := (Pos(S[i], C) + k - 1) mod 26;
S[i] := C[k + 1];
end;
WriteLn(S);
end.

А в обратную сторону?
У меня не получается никак сделать расшифровку
Криворукий,знаю

Добавлено через 8 часов 50 минут
Ребят может кому надо будет
Вод код который расшифровывает:

Pascal

var
  f : array[1..100] of integer;
  f2 : array[1..100] of integer;
  S : String;
  i, k : Byte;
  input:Text;
  output:Text;
begin
assign(input,'input.dat');
  assign(output,'output.dat');
  reset(input);
  rewrite(output);
  read(input,S);
   for i:=1 to length(S) do 
    begin
   k:=(Pos(S[i], C)-1);
   f[i]:=k;
   end;
   writeln(f);
   if f[1] > 4 then
    begin
     f2[1]:=f[1]-5;
     S[1]:=C[f2[1]+1];
     
   end;
     if f[1] <= 4 then
    begin
     f2[1]:=f[1]-21;
     S[1]:=C[f2[1]+1];
     
   end;
   for i:=2 to length(S) do
   begin
   f[i]:=f[i]+26;
   end;
   writeln(f);
    for i:=2 to length(S) do
   begin
   if f[i]<f[i-1] then
    f[i]:=f[i]+26;
    f2[i]:=f[i]-f[i-1];
   if f[i] > f[i-1] then
   f2[i]:=f[i]-f[i-1] ;
   end;
   writeln(f2);
   for i:=2 to length(S) do
   begin
 
    S[i] := C[f2[i]+1];
    end;
     writeln(output,S,' расшифровано');
   close(output);
   end.

@Buged 0 / 0 / 1 Регистрация: 07.12.2014 Сообщений: 7
		1
	Каждую букву заменить соответствующим ей числом 26.01.2015, 23:05. Показов 2972. Ответов 2 Метки нет (Все метки) Сама задача: В шифре каждое слово шифруется отдельно. Рассмотрим шифрования на примере слов, состоящих только из малых латинских букв. В начале каждая буква заменяется соответствующим ей числом: a на 0, b на 1, c на 2, ..., z на 25. После этого к первому числу добавляется 5, ко второму числу добавляется первое число, к третьему - второе и т .д. После этого если какое-то число превышает 25, то оно заменяется остатком от деления этого числа на 26. И, наконец, числа обратно заменяются буквами. Зашифруем слово secret: Шаг 0. secret Шаг 1. 18 4 2 17 4 19 Шаг 2. 23 27 29 46 50 69 Шаг 3. 23 1 3 20 24 17 Шаг 4. xbduyr В итоге получилось слово xbduyr. Входные данные: файл input.in содержит зашифрованное слово, состоящее из малых латинских букв, длиной не более 100 символов. Выходные данные: в файл output.out выведите исходное слово. У самого ни черта не выходит... 0

	28.01.2015, 02:01

Каждую букву заменить соответствующим ей числом

Решение