Question

Организовать процессы шифрования и дешифровки записью семёрок символов текста в обратном порядке. Если длина сообщения не кратна семи, то сообщение перед шифрованием дополнить словом «корвет» или некоторой его левой частью до получения длины, кратной семи.

Answer 1

Var
  i,j,n:integer;
  s,a,t:string;
begin
write('Введи текст: ');
readln(s); 
n:=length(s); 
i:=n mod 7; 
if i>0 then
    begin
    i:=7-i;
    s:=s+copy('корвет',1,i);
    n:=n+i;
    end;
for i:=1 to n do
   begin
   a:=a+s[i];
   if i mod 7=0 then
     begin
     for j:= 7 downto 1 do
        t:=t+a[j];
     a:='';
     end
   end;
writeln(t)
end.

Можно использовать специальную функция переворота строки. Будет чуть короче
var
  i,j,n:integer;
  s,a,t:string;
begin
write('Введи текст: ');
readln(s); 
n:=length(s); 
i:=n mod 7; 
if i>0 then
    begin
    i:=7-i;
    s:=s+copy('корвет',1,i);
    n:=n+i;
    end;
for i:=1 to n do
   begin
   a:=a+s[i];
   if i mod 7=0 then
     begin  
     t:=t+ReverseString(a);
     a:='';
     end
   end;
writeln(t)
end.

Sub z()
s = InputBox("Введи текст")
n = Len(s)
i = n Mod 7
If i > 0 Then
    i = 7 - i
    s = s & Mid("корвет", 1, i)
    n = n + i
    End If
For i = 1 To n
    a = a + Mid(s, i, 1)
    If i Mod 7 = 0 Then
          t = t + StrReverse(a)
          a = ""
          End If
Next i
MsgBox (t)
End Sub

Answer 2

Для организации процессов шифрования и дешифровки записи семерок символов текста в обратном порядке, вы можете использовать следующий алгоритм:

1. Проверьте длину сообщения. Если она не кратна семи, дополните сообщение словом "корвет" или его левой частью до получения длины, кратной семи.

2. Разделите сообщение на семерки символов.

3. Инвертируйте порядок символов в каждой семерке.

4. Объедините все семерки символов в обратном порядке.

5. Полученный результат будет зашифрованным сообщением.

Для дешифровки зашифрованного сообщения, просто примените те же шаги в обратном порядке:

1. Разделите зашифрованное сообщение на семерки символов.

2. Инвертируйте порядок символов в каждой семерке.

3. Объедините все семерки символов в обратном порядке.

4. Если сообщение было дополнено словом "корвет" или его левой частью, удалите это дополнение.

5. Полученный результат будет дешифрованным сообщением.

Пример:

Пусть у нас есть сообщение "Hello, world!". Длина этого сообщения равна 13, что не кратно семи. Дополним его словом "корвет" до получения длины, кратной семи: "Hello, world! корвет".

Теперь разделим сообщение на семерки символов: "Hello, ", "world! ", "корвет".

Инвертируем порядок символов в каждой семерке: ", olleH", " !dlrow", "теврок".

Объединим все семерки символов в обратном порядке: "теврок !dlrow , olleH".

Полученный результат "теврок !dlrow , olleH" является зашифрованным сообщением.

Для дешифровки применим те же шаги в обратном порядке:

Разделим зашифрованное сообщение на семерки символов: "теврок ", "!dlrow ", ", olleH".

Инвертируем порядок символов в каждой семерке: "корвет ", "world! ", "Hello, ".

Объединим все семерки символов в обратном порядке: "Hello, world! корвет".

Удалим дополнение "корвет".

Полученный результат "Hello, world!" является дешифрованным сообщением.

Примечание: В данном ответе не были использованы источники, так как алгоритм шифрования и дешифровки, описанный выше, является простым и не требует специфических знаний или источников для его объяснения.