Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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]

всем спасибо




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.04 c
3-2498            IronHawk              2002-04-10 13:00  2002.05.02  
Приветствую Мастеров ! Эт снова Я ! Быстрый поиск по базе ?


7-2705            Макс                  2002-02-05 17:48  2002.05.02  
Получение изображений со сканера


1-2607            Alexandr (CAV)        2002-04-20 08:11  2002.05.02  
Ложное срабанывание двойного клика в rxDbGrid


1-2584            Капитан Немо          2002-04-17 18:09  2002.05.02  
Удаление ярлыка...


1-2541            Yuraz                 2002-04-18 11:08  2002.05.02  
Поиск, подсчёт, вывод на экр переменных в перловском файле ($var)