Шифрование

[Viraele]

Здравствуйте. Хочу написать программу, которая каждую букву латинского алфавита заменяет на цифру. Цель: пользователь вводит слова, а программа их зашифровывает в цифры. Сложности: 1. Буквы и цифры можно создать массивами, но как одному массиву присвоить значение другого? 2. Программа должна шифровать в цифры независимо от порядка введенных символов и их длины.
Как можно решить данные проблемы?
Заранее спасибо за помощь

[evg_m]

но как одному массиву присвоить значение другого?

по большому счету никак. массив либо есть, либо его нет.
А ВОТ элементЫ массива можно менять (брать значение/задавать новое значение)

A[i]:=B[j];

var A: array['A'..'Z'] of string;
var
  s: char;
  r: string;
  j: integer;

for j:=1 to length(txt) do begin
  s:=txt[j];
  r:=A[s];
  result:=result+r;
end;

var
  A: array[1..26] of record L: char; N: string; end;

for j:=1 to length(txt) do begin
  s:=txt[j];
  result:=result +LocateL(s);
end;

function LocateL(s: char);
begin
  result:='';
  for j:=low(A) to high(A) do begin
    if A[j].L =s then begin
      result:=A[j].N;
      break;
    end;
  end;
end;

finction LocateN(s: string): char;
begin
   result:='?';
  for j:=low(A) to high(A) do begin
    if A[j].N =s then begin
      result:=A[j].L;
      break;
    end;
  end;
end;

[Аватар]

по большому счету никак. массив либо есть, либо его нет.

Статический массив один другому можно присваивать и потом править их не зависимо друг от друга. Динамические тоже можно, но там ссылка присваивается и независимой правки не получится. Это если о делфи

[Utkin]

Ну типичные таблицы перекодировки. Берете 2 массива, один про буквы, другой про цифры. Ищите букву в одном массиве (в цикле) - нашли, запомнили индекс. По этому индексу взяли цифру. Перекодировка аналогично.

но как одному массиву присвоить значение другого?

Зачем?

Программа должна шифровать в цифры независимо от порядка введенных символов и их длины.

Пофиг.
Вообще может просто недостаточная выразительная сила массивов Вас смущает? Ну создайте один массив своих структур:

type
    TTrans=record
         letter: Char;
         nummer: Integer;
end;

А потом

var
   Translate: Array of TTrans;

Ну как-то так.

[Serge_Bliznykov]

ребята, но новичок, придумал массивы, но вы то куда?!

которая каждую букву латинского алфавита заменяет на цифру

ord(S[i]) вернёт код буквы.
формула

ord(S[i])-ord('A')+1

для прописных латинских букв A..Z вернёт порядковый номер буквы
A - 1
B - 2
C - 3
и т.д.

если же речь идёт про свой алфавит (свою кодировку, где A, например, 21, а B-17, Z - 26 и т.д.)
тогда проще воспользоваться строкой с нужными буквами в правильном порядке
и код символа получать через POS(S[i], СтрокаСБуквами)

[Utkin]

Мой вариант универсальный - Integer это сколько букв ?

[Serge_Bliznykov]

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

Мой вариант универсальный - Integer это сколько букв ?

Не понял.
А чем вариант со строкой не универсальный? Pos() как раз Integer и возвращает!

[Utkin]

Там многа буков разных сложно засовывать. А мне можно вместо Char тоже какой-нибудь integer поставить для кодировки всего Юникода

[max_prorok]

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