Побуквенное шифрование текста!

[Gauss]

Помогите пожалуйста,
У меня имеется memo1,memo2, button1.
Необходимо, чтоб при вводе слова в memo1 и нажатии button1 в memo2 отображались те символы, которые я присвоил соответсвующим буквам.
Символы должны иметь тип string, потому что у меня , например
букве 'a' соответствует символ 'A@'
'b' -----------------------'B'
'c' -----------------------'c$'.
То есть мой вопрос в том, как программно написать это соответствие и чтоб в символы перевелось целиком введенное слово.
Заранее говорю, подглаву Шифрование я сморел на форуме, там есть шифрование отдельных символов и шифрование текста с ключем. А у меня просто надо написать соответствие. Заранее благодарю всех кто окажет хоть какую то помощь

[BOBAH13]

Непонятно большая часть вашего текста. Как я понял просто перебирая один текст вставлять соответствие в другой ? если да то букв одинаково поэтому Вам стоит всеголиш создать два массива как константы или генерировать в ходе программы типа String; после внести в один символ простой ( букву ), а во второй Вашего соответствие. Потом функция для шифрования будет выглядеть примерно так:

допустим Ваши буквы в массиве Symbols, а шифровка в EnSymbols;

как я вижу ваше соответстиве на одну букву приходится два символа ?
Если да то можно ускорить процесс шифровки ( если текст довольно таки большой ).

так же для ускорения создайте массив для 0..255 - и при внесении просто ну вот допустим букву a ->> Symbols[ord('a')] := 'a'; вот таким образом.

function EncodeText(Str: String): String;
var
i: Integer;
begin
// ускорение процесса
SetLength(Result, Length(Str) * 2);
for i:= 1 to Length(Str) do
begin
Result[i * 2 - 1] := EnSymbols[ord(Str[i])][1];
Result[i * 2] := EnSymbols[ord(Str[i])][2];
end;
end;

Вроде так, исходя из выше Вами описанного.

[Dude_first]

Можно ещё так

function sr(s:char):string;
begin
case s of
'a': sr:='a$';
'b': sr:='fd';
//тут прописываешь замену для каждого симвла
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var temp:string;
    i:byte;

begin
temp:=edit1.Text;
 for I:=1 to length(temp) do begin
  edit2.Text:=edit2.Text+sr(temp[i]);
 end;
end;

Это для TEdit. Аналогично можно делать и в TMemo. Удачи

[Gauss]

Спасибо большое Dude_first , правда я еще код этот не пробовал, только посморел ща, но думаю это то что мне надо! Спасибо, если не получится я тут опять напишу ))))

[Gauss]

Dude_first --- Чувак огромное тебе спасибо!!! сработало все!

[fnc]

Сообщение от Dude_first

Можно ещё так

function sr(s:char):string;
begin
case s of
'a': sr:='a$';
'b': sr:='fd';
//тут прописываешь замену для каждого симвла
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var temp:string;
    i:byte;

begin
temp:=edit1.Text;
 for I:=1 to length(temp) do begin
  edit2.Text:=edit2.Text+sr(temp[i]);
 end;
end;

Это для TEdit. Аналогично можно делать и в TMemo. Удачи

А как дешифровать ?

[kta87]

Сообщение от fnc

А как дешифровать ?

обратным математическим действием.

[fnc]

Сообщение от kta87

обратным математическим действием.

function sr(s:char):string;
begin
case s of
'a': sr:='a$';
'b': sr:='fd';
//тут прописываешь замену для каждого симвла
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var temp:string;
    i:byte;

begin
temp:=edit1.Text;
 for I:=1 to length(temp) do begin
  edit2.Text:=edit2.Text+sr(temp[i]);
 end;
end;

Делаю все тоже самое только

edit2.Text:=edit2.Text-sr(temp[i]

Не компилирует. Выдает ошибку на минусе

[Stilet]

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

[kta87]

Обратное математическое действие относительно сложения, аналогичного действиям с числами, в строках нет. В Вашем случае можно попробовать замену символов.
П.С. На будущее, как и сказал Stilet, воспользуйтесь двумерными массивами. И работайте не со строками и символами напрямую, представляйте их хотя бы в ASCII коде.