Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.03.2012, 01:59
Petros9n Petros9n вне форума
Прохожий
 
Регистрация: 13.10.2011
Сообщения: 34
Репутация: 10
По умолчанию Шифрование перестановкой по ключевому слову

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

Для реализации этого написал вот такое, но работает не очень
Код:
procedure TMainForm.SortMas;
var
  i,j,p,h:integer;
  x:char;
begin
for p := 1 to Length(st) do
 for j:=0 to m-1 do
  if A[0,j]= st[p] then
    begin
    for h := 0 to n-1 do
      begin
        x:=a[h,j];
        a[h,j]:=a[h,p-1];
        a[h,p-1]:=x;
      end;
    end;
end;

где st - ключевое слово

этот алгоритм при некоторых значениях ключевого слова его восстанавливает не правильно, а также он мне вообще не совсем подходит поскольку надо чтоб если в ключевом слове есть одинаковые буквы то они должны упорядочивается по алфавиту слева направо а потом восстанавливаться на свои места, а в данном случаи они могут перемешаться. Прошу Вас доработать этот алгоритм или предложить другой, если надо могу выложить исходники.
Ответить с цитированием
  #2  
Старый 28.03.2012, 02:03
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

В чём заключается идея? Это задание или для себя?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #3  
Старый 28.03.2012, 02:07
Petros9n Petros9n вне форума
Прохожий
 
Регистрация: 13.10.2011
Сообщения: 34
Репутация: 10
По умолчанию

Задание, шифрование/дешифрование текста, шифрованный текст это как раз и будет текст из массива после перестановки.
Ответить с цитированием
  #4  
Старый 28.03.2012, 02:11
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Вообще вариаций решения масса. Вот один из примеров:

Код:
var
  s: string;

procedure Code(var text: string; password: string;
  decode: boolean);
var
  i, PasswordLength: integer;
  sign: shortint;
begin
  PasswordLength := length(password);
  if PasswordLength = 0 then
    Exit;
  if decode then
    sign := -1
  else
    sign := 1;
  for i := 1 to Length(text) do
    text[i] := chr(ord(text[i]) + sign *
      ord(password[i mod PasswordLength + 1]));
end;

Пример использования:

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  s := Memo1.Text;
  code(s, Edit1.Text, false);
  Memo1.Text := s;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  code(s, Edit1.Text, true);
  Memo1.Text := s;
end;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:44.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025