کد کردن پسورد برنامه در sql

[mohssen_mz]

سلام!
برنامه ای است که چن تا کاربر داره حالا اگه بخوایم برای این کاربرها پسورد ورود بزاریم و یه تیبل تو اسکیو ال براش تعریف کنیم:
1-چطور میتونم پسوردها رو تو خود sql رمز کنم که دیده نشه
2-اگه بخوام از حالت اول خارجش کنم چی
در صورت امکان این اعمال
3-در موقع ورود به برنامه پسورد رو بصورت کد شده مقایسه میکنه یا باید اول از حالت رمز درش بیارم و بعد...

[nasr]

ببین مشکلت را حل می کنه؟
میتونی اول Encrypt کنی و در جدول ( SQL Server یا هر دیتابیس دیگر) ذخیره کنی و بعد هنگام فراخوانی Decrypt کنی.


function Encrypt(tr: string): string;
var
i: Integer;
Temp: string;
begin
for i := 1 to Length(tr) do
begin
Temp := Temp + Chr(Ord(tr[i]) + 154321);
end;
Encrypt := Temp;
end;
//Decrypt
function Decrypt(pr: string): string;
var
i: Integer;
Temp: string;
begin
for i := 1 to Length(pr) do
begin
Temp := Temp + Chr(Ord(pr[i]) - 154321);
end;
Decrypt := Temp;
end;