Зашифровать текст, заменив каждую букву на букву, отстоящую от нее на n букв

@ildar0722 · Регистрация: 21.05.2012

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

Помогите пожалуйста написать прогу в си
вот код паскаля
задание
Зашифровать заданный текст, записанный с помощью русских букв и знаков препинания, заменив каждую букву на букву, отстоящую от нее на n букв. Сдвиг производить по кругу. Расшифровать полученный текст. Знаки препинания – точка, запятая, пробел.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Uses
 crt;
 
Function decrypt(a:string):string;
Var i,k:integer;
Begin
 For i:=1 to length(a) do
  If (a[i] = 'А') or (a[i] = 'а') then Begin
                                        k:=ord(a[i])+31;
                                        a[i]:=chr(k);
                                       End
                                  else
   If a[i] in ['Б'..'Я','б'..'я'] then Begin
                                        k:=ord(a[i])-1;
                                        a[i]:=chr(k);
                                       End;
 decrypt:=a;
End;
 
Function encrypt(a:string):string;
Var i,k:integer;
Begin
 For i:=1 to length(a) do
  If (a[i] = 'Я') or (a[i] = 'я') then Begin
                                        k:=ord(a[i])-31;
                                        a[i]:=chr(k);
                                       End
                                  else
   If a[i] in ['А'..'Ю','а'..'ю'] then Begin
                                        k:=ord(a[i])+1;
                                        a[i]:=chr(k);
                                       End;
 encrypt:=a;
End;
 
Var
 a:string;
 mode:byte;
Begin
 Readln(a);
 Repeat
  Write('Выберите режим (1-шифрование, 2-расшифрование): ');
  Readln(mode);
 Until (mode = 1) or (mode=2);
 Case mode of
  1:writeln(encrypt(a));
  2:writeln(decrypt(a));
 End;
End.

@BlackThorn · 21.05.2012, 22:42

Еще актуально?

@ildar0722 · 21.05.2012, 23:50 **[ТС]**

актуально

Добавлено через 7 минут
буду благодарен за помощь

@BlackThorn · 23.05.2012, 14:46

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#include<stdio.h>
 
void encrypt(unsigned char str[])
{
int i;
i = 0;
while(str[i] != '\0')
{
    if(str[i]==128) 
        str[i]+=31;
    else if((str[i]>=129 && str[i]<=159)||(str[i]>=161 && str[i]<=175)||(str[i]>=225 && str[i]<=239))
        str[i]--;
    else if(str[i]==160) 
        str[i]+=79;
    else if(str[i]==224)
        str[i]-=49;
    i++;
}
}
void decrypt(unsigned char str[])
{
int i;
i = 0;
while(str[i] != '\0')
{
    if(str[i]==159) 
        str[i]-=31;
    else if((str[i]>=128 && str[i]<=158)||(str[i]>=160 && str[i]<=174)||(str[i]>=224 && str[i]<=238))
        str[i]++;
    else if(str[i]==239)
        str[i]-=79;
    else if(str[i]==175)
        str[i]+=49;
    i++;
}
}
void main()
{
int ch,i,j,mode;
unsigned char str[100];
printf("Choose mode (1-encrypt, 2-decrypt): ");
scanf("%d\n",&mode); 
 
i = 0;
while((ch = getchar()) != 10)// пока не "Enter"
{
    str[i++] = (unsigned char)ch;
}
str[i] = '\0';
 
switch(mode)
{
case 1:
    encrypt(str);
    for(j=0;j<i;j++)
        printf("%c",str[j]);
    break;
case 2:
    decrypt(str);
    for(j=0;j<i;j++)
        printf("%c",str[j]);
    break;
}
printf("\n");
}

@ildar0722 · 23.05.2012, 15:20 **[ТС]**

щас посмотрел,почему то не шифрует

Добавлено через 10 секунд
спасибо большое

@BlackThorn · 24.05.2012, 11:28

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
#include<stdio.h>
 
char *encrypt(char *str)
{
int i;
i = 0;
while(str[i] != '\0')
{
    if(str[i]==65 || str[i]==97) 
        str[i]+=25;
    else if((str[i]>=66 && str[i]<=90)||(str[i]>=98 && str[i]<=122))
        str[i]--;
    i++;
}
return str;
}
char *decrypt(char *str)
{
int i;
i = 0;
while(str[i] != '\0')
{
    if(str[i]==90 || str[i]==122) 
        str[i]-=25;
    else if((str[i]>=65 && str[i]<=89)||(str[i]>=97 && str[i]<=121))
        str[i]++;
    i++;
}
return str;
}
 
void main()
{
int mode;
char str[100];
printf("Choose mode (1-encrypt, 2-decrypt): ");
scanf("%d\n",&mode); 
gets(str);
switch(mode)
{
case 1:
    printf("%s",encrypt(str));
    break;
case 2:
    printf("%s",decrypt(str));
    break;
}
printf("\n");
}

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

Зашифровать текст, заменив каждую букву на букву, отстоящую от нее на n букв

Решение

Решение

@BlackThorn 5 / 5 / 4 Регистрация: 15.05.2012 Сообщений: 27
	21.05.2012, 22:42
	Еще актуально? 0

@ildar0722 0 / 0 / 0 Регистрация: 21.05.2012 Сообщений: 13
	21.05.2012, 23:50 [ТС]
	актуально Добавлено через 7 минут буду благодарен за помощь 0

@ildar0722 0 / 0 / 0 Регистрация: 21.05.2012 Сообщений: 13
	23.05.2012, 15:20 [ТС]
	щас посмотрел,почему то не шифрует Добавлено через 10 секунд спасибо большое 0

Опции темы