谁有简单的字符串加密解密的函数源代码？

Question

想对一个字符串加密，最大长度为255，同时可以对密文进行解密，那位朋友有写好的函数，求！

Answer 1

http://community.csdn.net/Expert/topic/3322/3322681.xml?temp=.1167566

Answer 2

用dcp2b 组件，加密解密都有，文件都可以

Answer 3

//==============单个函数加密/解密;
function Crypt(const s: string; Key: Word; const bEncrypt: boolean = True): string;
var
  i: integer;
  ps, pr: ^byte;
begin
  SetLength(Result, Length(s));
  ps := @s[1];
  pr := @Result[1];
  for i := 1 to length(s) do
  begin
    pr^ := ps^ xor (Key shr 8);
    if bEncrypt then
      Key := (pr^ + Key) * SeedA + SeedB
    else
      Key := (ps^ + Key) * SeedA + SeedB;
    pr := pointer(integer(pr) + 1);
    ps := pointer(integer(ps) + 1);
  end
end;
//使用:其中001是KEY,可以自由设置;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text :=Crypt(Edit1.Text, 001, true);//加密;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text :=Crypt(Edit2.Tex

Answer 4

http://sourceforge.net/projects/tplockbox/