Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.014 c