Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi

Войти
Регистрация
Восстановить пароль
 
KaTerin-93
1 / 1 / 0
Регистрация: 23.12.2011
Сообщений: 37
#1

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

06.09.2012, 11:45. Просмотров 720. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Создать программу шифровки/дешифровки (шифрование перестановкой) (Delphi):

Программа шифровки и дешифровки - Delphi
Составить программу шифровки и дешифровки заданного текста по следующему правилу: «первая буква алфавита заменяется на одиннадцатую,...

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

Шифрование перестановкой - Delphi
Ребята, помогите пожалуйста, никак не могу понять, что не так с программой:( постоянно пишет, что цифры в ключе должны быть различны. и...

Шифрование перестановкой букв - Delphi
таблицы простых шифрующих процедур перестановки букв в сообщении. секретом (ключом) здесь служит размер страницы. например ВЫСТУПАЙТЕ...

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

Не могу написать программу дешифровки - Delphi
Написал программу для шифрования, нужно написать для расшифровки(( не получается (( program Project2; {$APPTYPE CONSOLE} uses ...

3
Dmitrinik
535 / 391 / 50
Регистрация: 18.08.2012
Сообщений: 1,008
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 / 0
Регистрация: 25.10.2011
Сообщений: 145
09.09.2012, 15:28 #3
$0F что означает этот значок?можно как-нибудь без него обойтись?
0
Dmitrinik
535 / 391 / 50
Регистрация: 18.08.2012
Сообщений: 1,008
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
Привет! Вот еще темы с ответами:

Кто знает как написать программу для шифровки ссылок? - Delphi
Кто знает как написать программу для шифровки ссылок, напрмер есть ссылка www.site.com/%1563%1%6%786% - вот типо того что бы она...

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

Проверка правильности дешифровки - Delphi
Собственно у меня есть программа, которая дешифрует фразы, которые ей вводит пользователь, выбирая их из данного словаря английских или...

Один из простейших способов шифровки - Delphi
Один из простейших способов шифровки состоит в табличной замене одного символа на другой. Выбрать некоторую таблицу, разработать способ ее...


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

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

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