[Pascal]написать программу шифратор-дешифратор

[MaximV]

написать программу шифратор-дешифратор. для построения используется ключ матрица 6х6 или то есть 36 символов. сам если честно не понял как делать его. Пожалуста решите.

[QunneD]

Использование xor, не?

[Stilet]

MaximV

А алгоритм шифрования какой? Или это и все задание?

[MaximV]

да это все задание

[Serge_Bliznykov]

знание ключа (его размеров) ничего не даёт, если не известен АЛГОРИТМ шифрования/дешифрования.
Выясняйте у того, кто дал Вам задание, какой именно алгоритм Вам нужен.
потом уже можно его и реализовать (или найти готовую реализацию )

[MaximV]

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

[Stilet]

Хм... Примерно так получается:

function Code(S:String):String;
var i:integer;d:string;a,e:byte;
begin d:='';
 a:=byte('a');
 for i:=1 to length(s) do begin
  e:=byte(s[i])-a;
  e:=(e div 6)*10+(e mod 6);
  d:=d+chr(e);
 end;
 Code:=d;
end;

function deCode(S:String):String;
var i:integer;d:string;a,e:byte;
begin d:='';
 a:=byte('a');
 for i:=1 to length(s) do begin
  e:=byte(s[i]);
  e:=(e div 6)+(e mod 6);
  d:=d+chr(e);
 end;
 Code:=d;
end;

не проверял

[s-andriano]

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

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

А что делать с цифрами?

[MaximV]

как я понял числа это матрица, при на наборе симвалов они записаваются в матрицу. например "а" будет 1,1
"б" будет 1,2
и так далее..........
если я правильно понял преподователя

[s-andriano]

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

"а" будет 1,1
"б" будет 1,2

А как будет "0" или "1"?