Перевести программу из Pascal в С#. Шифрование со сдвигом

@Alextremain · Регистрация: 17.02.2017

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

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

А это программа в Pascal:

Pascal

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const 
  n=3;
var
  i, len : integer;
  s: string;
begin
  readln(s);
  len := length(s);
  for i:=1 to len do
    s[i] := chr(ord(s[i])+n);
  writeln('Зашифрованная строка ', s);
 
  for i:=1 to len do
    s[i] := chr(ord(s[i])-n);
  writeln('Исходная строка ', s);
end.

@TuM0xA · 11.03.2017, 18:49

Alextremain,
#1

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
using System.Linq;
using static System.Console;
static class test
{
    const int n = 3;
    static void Main()
    {
        string s = ReadLine();
        WriteLine("\nзашифрованная строка :\n{0}\n", s = string.Concat(s.Select(x => (char)(x + n))));
        WriteLine("исходная строка :\n{0}\n", string.Concat(s.Select(x => (char)(x - n))));
        ReadKey(true);
    }
}

#2(приближенный к вашему коду, нужно использовать массив символов, так как в шарпе(и не только) строки неизменяемы)

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
using static System.Console;
static class test
{
    const int n = 3;
    static void Main()
    {
        char[] s = ReadLine().ToCharArray();
        for (int i = 0; i < s.Length; i++) s[i] = (char)(s[i] + n);
        WriteLine("\nзашифрованная строка :\n{0}\n",string.Concat(s));
        for (int i = 0; i < s.Length; i++) s[i] = (char)(s[i] - n);
        WriteLine("исходная строка :\n{0}\n",string.Concat(s));
        ReadKey(true);
    }
}

@ata · 11.03.2017, 19:29

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
using System;
using System.Linq;
 
public class Program
{
    private static string Encode(string s, int n)
    {
        return new String(s.Select(ch => (char)((ch + n) & 0xFFFF)).ToArray());
    }
 
    public static void Main()
    {
        string original = "Ух ты, говорящая рыба!";
        string encoded = Encode(original, 3);
        string decoded = Encode(encoded, 0x10000 - 3);
        Console.WriteLine(encoded);
        Console.WriteLine(decoded);
    }
}

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

Перевести программу из Pascal в С#. Шифрование со сдвигом

Решение