Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> простая замена 
:(
    Опции темы
Ksen
Дата 31.5.2006, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 97
Регистрация: 24.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Всем здрасте!
Господа, помогите
 новечку.....не получается....в чем ошибка?
Хочу зашивровать слово....методом шифра простой замены. Метод основан на замене каждой буквы сообщения на другую букву того же алфавита, путем смещения от исходной буквы на 3 буквы.
Код

const alfpor: array [1..5,1..8] of string=(('A','B','C','D','E','F','G','H'),
                                        ('I','J','K','L','M','N','O','P'),
                                        ('Q','R','S','T','U','V','W','X'),
                                        ('Y','Z','0','1','2','3','4','5'),
                                        ('6','7','8','9','a','b','c','d'));

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var str,str1:String;
   ks,i,j,a,b:integer;
begin
 str:=Edit1.Text;
 ks:=Length(str);
 Edit1.Text:=IntToStr(ks);
 for i:=1 to ks do
    begin
      if str[i]=alfpor[a][b]then
      begin
      str1:=alfpor[a][b];
      alfpor[a][b]:=alfpor[a+3][b+3];
      alfpor[a+3][b+3]:=str1;
      Memo1.Lines.Add(str1);
      end;
    end;
end;


Я хоть правильным путем иду?
....или к этой задаче нужно совсем подругому подходить? 
PM MAIL ICQ   Вверх
_hunter
Дата 31.5.2006, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
а в чем смысл этой:
if str[i]=alfpor[a][b]then
строки? 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Ksen
Дата 31.5.2006, 15:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 97
Регистрация: 24.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет
этим я хотела, типа, сравнивать символы....если они одинаковы, тогда замена...
.... smile....((((неправильно...да?....объясни как? 
PM MAIL ICQ   Вверх
Guedda
Дата 31.5.2006, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Вот (смещение на три буквы идёт):
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  Str1 : string;
  Result : string;
  i : Integer;
begin
  Str1 := Edit1.Text;
  SetLength(Result, length(Str1));
  for i := 1 to length(Str1) do begin
    Result[i] := chr(ord(Str1[i])+3); //Вот здесь происходит смещение на 3 символа
  end;
end;
 


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Ksen
Дата 31.5.2006, 16:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 97
Регистрация: 24.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Guedda, Спасибо, но это немножечко не то....дело в том что, в буквы ABCD могут заменится на  символы типа ,)!]'....а мне это никак низя 
PM MAIL ICQ   Вверх
Guedda
Дата 31.5.2006, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Да нет. 
A заменится на D
C - на F 
А цифра 1 заменится на 4 


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Ksen
Дата 31.5.2006, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 97
Регистрация: 24.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Цитата

Да нет. 
A заменится на D
C - на F 
А цифра 1 заменится на 4 


.......а....ZXY заменяется на ][\ 

(((это мне не подходит... 
PM MAIL ICQ   Вверх
AriX
Дата 31.5.2006, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 311
Регистрация: 16.6.2003

Репутация: 5
Всего: 19
Код

const
  // Символы, которые нужно шифровать
  ABC = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
  // Длина алфавит
  LenABC = Length(ABC);
var
  // Текст
  Text: String;
  i,
  // Позиция символа в алфавите
  ChPos: Integer;
begin
  // Берем каждый символ исходной строки
  for i := 1 to Length(Text) do begin
    // Ищем его в алфавите
    ChPos := Pos(Text[i], ABC);
    // Если в алфавите этот символ есть
    if ChPos > 0 then
      // Прибавляем к его позиции смещение (3) - 1, получаем остаток от деления, и добавляем 1
      // Остаток от деления нужен, чтобы не выходит за пределы алфавита
      // -1 +1 нужны потому, что в строке индексация начинается с 1, а не с нуля
      Text[i] := ABC[((ChPos + 3 - 1) mod LenABC) + 1];
  end;
end;

Код не проверял, но принцип я думаю, понятен.

Добавлено:
Код немного подправил, кое-что не досмотрел smile 

Это сообщение отредактировал(а) AriX - 1.6.2006, 13:54
PM MAIL   Вверх
Ksen
Дата 1.6.2006, 09:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 97
Регистрация: 24.5.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет
 smile Получилось!!!!
Спасибо Вам большое!!!!!)))))))) 
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0507 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.