求加密算法或控件(100分)

开发中需要对字符串加密，求一个加密算法或加密控件
200分奉上

短字符串的简单加密/解密 (2001年7月12日)

本站更新 分类:算法 作者: 推荐: 阅读次数:589
(http://www.tommstudio.com)

--------------------------------------------------------------------------------

The following routines Encrypt(), Decrypt() are suitable for passwords and similar situations.
　 　 　
　 const
c1 = 52845;
c2 = 22719;

function Encrypt (const s: string; Key: Word) : string;
var
i : byte;
begin
Result[0] := s[0];
for i := 1 to length (s) do
begin
Result := Char (byte (s) xor (Key shr 8));
Key := (byte (Result) + Key) * c1 + c2
end
end;


function Decrypt (const s: string; Key: Word) : string;
var
i : byte;
begin
Result[0] := s[0];
for i := 1 to length (s) do
begin
Result := Char (byte (s) xor (Key shr 8));
Key := (byte (s) + Key) * c1 + c2
end
end;

function Encript(aStr: String, aKey: Integer): String;
var
aa:integer;
RandSeed:integer;
begin
Result:='';
RandSeed:=aKey;
for aa:=1 to Length(aStr) do
Result:=Result+Chr(Byte(aStr[aa]) xor random(256));
end;

function Decript(aStr: String; aKey: Integer): String;
var
aa:integer;
RandSeed:integer;
begin
Result:='';
RandSeed:=aKey;
for aa:=1 to Length(aStr) do
Result:=Result+Chr(Byte(aStr[aa]) xor random(256));
end;

up

谢谢各位!
发题是忘了选分数，只好向china_peng说声不好意思，只有100分了。