Как зашифровать и расшифровать слово из полибианского квадрата в delphi 7
Дорофей var mas: array[0..4, 0..4] of string {Заполнение}s//кодированная строкаs1//декодированнаяi - №столбцаj - №строкиfor i:=0 to 4 do for j:=0 to 4 do Begin if s[t]=Mas[i,j] then if j = 0 then s1 = mas[i, 4]; else s1 = mas[i, j-1]; End;а можно просто в массиве строчку сдвинуть тогда еще проще
Измаил Берешь двухмерный массив, случайно заполняешь, ищешь каждую букву текста в массиве и заменяешь на другую по приведенному правилу.
Феликс Просто занеси в матрицу и бегай по ней по закономерности)))С каких это пор такие девушки стали интересоваться Delfi ??? Забавно))
