Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
ВнизПодскажите компоненту или dll чтобы зашифровать файл! Найти похожие ветки
← →
agrig (2002-04-18 11:20) [0]сабж:)
← →
Yuraz (2002-04-18 11:37) [1]Процедурка, шифрующая string.
procedure Code(var text: string; password: string; decode: boolean);
var
i, PasswordLength: integer;
sign: shortint;
begin
PasswordLength := length(password);
if PasswordLength = 0 then Exit;
if decode
then sign := -1
else sign := 1;
for i := 1 to Length(text) do
text[i] := chr(ord(text[i]) + sign * ord(password[i mod PasswordLength + 1]));
end;
← →
agrig (2002-04-19 22:02) [2]2 Yuraz:
спасибо конечно, но мне интересен реализованный RC-6, AES, CAST-256 или что-то в этом роде
← →
777 (2002-04-19 22:33) [3]а как на счёт PGP SDK
← →
perov (2002-04-20 07:09) [4]http://crypto-central.com/
там много бесплатных компонент для шифрации
← →
Slava (2002-04-20 09:19) [5]AES
http://www.eldos.org/elaes/elaes.html
← →
agrig (2002-04-21 19:32) [6]всем спасибо
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c