Текущий архив: 2003.03.24;
Скачать: CL | DM;
Вниз
Шифрование данных Найти похожие ветки
← →
merlot © (2003-03-12 10:45) [0]Здравствуйте Уважаемые!
Есть программа, для входа в нее нужен пароль, который храниться на диске, вот этот пароль(пароли) мне и нужно зашифровать. Подскажите пожалуйста какой-нибудь простеннький алгоритм шифрования данных.
Спасибо!
← →
shane54 © (2003-03-12 11:12) [1]
function CryptPassword(msg : string) : string;
var
key : byte;
i : integer;
p : ^byte;
begin
key := 88;
p:= @msg[1];
for i := 1 to Length(msg) do begin
p^ := p^ xor key;
Inc(p); end;
CryptPassword := msg;
end;
function DecryptPassword(msg : string) : string;
var
key : byte;
i : integer;
p : ^byte;
begin
key := 88;
p:= @msg[1];
for i := 1 to Length(msg) do begin
p^ := p^ xor key;
Inc(p); end;
DecryptPassword := msg;
end;
Если честно, нашел на этом форуме - учись искать.
Страницы: 1 вся ветка
Текущий архив: 2003.03.24;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.024 c
