请问在保存密码到文件中时,比较简单的加密方法

Question

写一个函数保存，比如你的密码是123456你可以通过函数写成BH1900等等，那样别人打开看也是没有用的呀！因为你是通函数变换出来的，或都用DES加密，建议你如果要求的安全性不是很主的话就用前面那一种吧，函数也很好写，只要你理解头绪就可以搞定！

Answer 1

{密码加密   加密和解密使用同一函数}
{最后修改时间11:14 2002-04-03，整理：刘红军}function TForm_main.F_password(str:string):string;
var text,str1:string;
    i,j:integer;
begin
 if str='' then
  begin
   VU_password:='';
   exit;
  end;
  text:='zhoujuan'; //加密因子，可自已另設
  str1:='';
  for i:=1 to length(str) do
   begin
    j:=i mod length(text)+1;
    str1:=str1+chr(ord(str[i]) xor ord(text[j]) mod 10);
   end;
   VU_password:=str1;
end;

Answer 2

密码本身用IDEA加密，当然也可以用其他的，不过我推荐使用IDEA，然后，加密密钥用这个密码本身，这样别人就无法知道你的密码是什么，但是，这样有一个问题，就是你也不知道密码是什么，不过没有关系，在进行密码验证的时候，用用户输入的密码作为密钥解密保存的密码，如果用户输入的密码和解密以后的密码一致，那么就说明用户的密码是正确的，不一致就说明是错误的。其实这种方法的本质就是在系统不知道用户密码的情况下进行验证。不过这种方法的安全性没有得到证明。

Answer 3

function CheckPassWord(Password: String): String;
var
  I: Integer;
begin
  Result := '';
  if PassWord = '' then Exit;
  for I := 1 to Length(PassWord) do
     Result := Result + Char(128-Ord(Password[I]) + I);
end;