Гаврила function VigenerCoDec(Input, Key: pchar): pcharvar i, j: integer; tmps, text: string;begin text := Input; for i := 1 to length(text) do begin if i > length(key) then j := i mod length(key) else j := i; tmps := tmps + chr((ord(text)) xor (ord(key[j]))); end; result := pchar(tmps);end;Елементарное шифрование под ключ методом ВигенераЗ.Ы Расшифровка этой же функцией
Силантий Зашифровать файл или записи в нем? Вообще куча готовых алгоритмов есть. Например для второго случая набери в поиске "шифрование текста исходник" ну добавь еще нужный язык программирования.
Радован Можете использовать стандарт шифрования данных DES(Data Encrypting Standart) - алгоритм шифрования с длинной ключа в 56 бит(для шифровки и расшифровки используется один и тот же ключ) или алгоритм шифрования AES(Advanced Encrypting Standart). Примеры найдете в нете.
