Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
KaTerin-93
1 / 1 / 0
Регистрация: 23.12.2011
Сообщений: 37
#1

Создать программу шифровки/дешифровки (шифрование перестановкой)

06.09.2012, 11:45. Просмотров 733. Ответов 3
Метки нет (Все метки)

создать программу шифровки дешефровки

вот задание
открытый текст "шифрование_перестановкой".ключ правило перестановки: группы из 8 букв с порядковыми номерами 1.2...8 переставить порядок 3-8-1-5-2-7-6-4
шифртекст "фншоиавр_сиееерпннтваоко"


помогите составить код...
мой не работает

Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
   f,key,f1:string;
   c,i,s,j,a:Integer;
 
begin
  Writeln ('сколько символов в одном блоке ');
 
  Readln(c);
 
  Writeln ('введите ключ из ',c,' цифр от 1 до ',c,':');
  readln(key);
  Writeln ('введите текст для фишровки ');
  readln (f);
  s:=length(f);
  i:=0;
  while i<=s do
  begin
    i:=i+c;
    for j:=1 to length (key) do
    begin
      a:=ord (key[j])-ord(0);
      f1[j]:=f[a];
      end
 
  end;
  Writeln(f1);
end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.09.2012, 11:45
Ответы с готовыми решениями:

Программа шифровки и дешифровки
Составить программу шифровки и дешифровки заданного текста по следующему...

Шифрование RSA. В результате шифровки присутствуют нечитаемые символы
Привет всем) На просторах интернета нашел код, подладил под себя, собрал...

Шифрование перестановкой
Ребята, помогите пожалуйста, никак не могу понять, что не так с программой:(...

Шифрование перестановкой букв
таблицы простых шифрующих процедур перестановки букв в сообщении. секретом...

Шифрование перестановкой. Матрица из 4 столбцов
Подскажите, в чем ошибка? смысл заключается в том, что нужно написать программу...

3
Dmitrinik
535 / 391 / 99
Регистрация: 18.08.2012
Сообщений: 1,010
06.09.2012, 13:22 #2
Delphi
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
program Project2;
{$APPTYPE CONSOLE}
Uses  SysUtils;
Var  nSim, LOnCryptText, i : Integer; 
      j, bkey : Byte; 
      OnCryptText, CryptText, key : String;
 
Begin
  Writeln ('сколько символов в одном блоке ');
  Readln(nSim);
  Writeln ('введите ключ из ',nSim,' цифр от 1 до ',nSim,':');
  Readln(key);
  Writeln ('введите текст для шифровки ');
  Readln (OnCryptText);
  LOnCryptText:=Length(OnCryptText);
  i:=0;
  CryptText:='';
  Repeat
    For j:=1 to nSim do
      begin
        bkey:=Byte(key[j]) and $0F;
        If bkey = 0 then Break;
        If i + bkey <= LOnCryptText then
          CryptText:=CryptText + OnCryptText[i + bkey];
      end;
    i:=i + nSim;  //Следующий блок текста
  Until (i>=LOnCryptText) or (bkey=0);
  If bkey = 0 then Writeln ('Ключ содержит недопустимую цифру 0 ');
  Else
    begin
      Writeln ('Зашифрованный текст: ');
      Writeln (CryptText);
    end;
  Readln;
End.
1
Виргиния
0 / 0 / 4
Регистрация: 25.10.2011
Сообщений: 145
09.09.2012, 15:28 #3
$0F что означает этот значок?можно как-нибудь без него обойтись?
0
Dmitrinik
535 / 391 / 99
Регистрация: 18.08.2012
Сообщений: 1,010
09.09.2012, 16:28 #4
Этот значок означает 16-ричное значение. Можно обойтись и без него: шестнадцатериное число 0F равно десятичному числу 15, т.е. вместо
bkey:=Byte(key[j]) and $0F;
можно написать
bkey:=Byte(key[j]) and 15;
Но, вообще, надо бы выучить системы счисления. В программировании без этого трудно.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.09.2012, 16:28

Шифрование с перестановкой больше 9 символов
Нужно написать программу - Шифрование с перестановкой Написал, но только...

Не могу написать программу дешифровки
Написал программу для шифрования, нужно написать для расшифровки(( не...

Кто знает как написать программу для шифровки ссылок?
Кто знает как написать программу для шифровки ссылок, напрмер есть ссылка...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru