300分急求 把Memo1中的文字加密 然后还原 ( 积分: 300 )

300分急求 把Memo1中的文字加密 然后还原 最好是不那么容易破解的

急着用 高手给个成熟的函数吧 谢谢!

網上找des,md5等成熟的函數，有的，www.2ccc.com或www.delphifans.com

最最简单的，先xor一次，再Base64编码一次，然后再xor一次，普通人绝对看不出来.
解密就反过来就可以了

blowfish, tencent一直在用.

麻烦给两个函数 一个加密 一个解密 还有一个演示 好吗? 谢谢!
我现在很急 想做个样品给客户看 临时在外面没有把我的函数带出来

c blowfish http://www.team509.com/modules.php?name=News&file=article&sid=16
delphi http://down3.tomore.com/down/datanew/blowfish.zip

网上不是有那么多代码吗？总之别用md5，因为md5不可逆；

可不可以给钱呢，我正在编加密的，有一定的成果，没用DES,md5之类，自已开发的算法，价格极低。

我的算法，速度奇快，当然也不是XOR那么简单，也有加密成十六进制如0A4H之类的函数，
保密性也不错，在不知算法的情况下很难解密。每个函数10元。划到我的账上就行，就给函数，还包售后服务，让你会使用。

Function Encryp(Src:String; Key:String):string;
var
KeyLen :Integer;
KeyPos :Integer;
offset :Integer;
dest :string;
SrcPos :Integer;
SrcAsc :Integer;
Range :Integer;
begin
KeyLen:=Length(Key);
if KeyLen = 0 then
key:='Think Space';
KeyPos:=0;
Range:=256;

Randomize;
offset:=Random(Range);
dest:=format('%1.2x',[offset]);
for SrcPos := 1 to Length(Src) do
begin
SrcAsc:=(Ord(Src[SrcPos]) + offset) MOD 255;
if KeyPos < KeyLen then
KeyPos:= KeyPos + 1 else KeyPos:=1;
SrcAsc:= SrcAsc xor Ord(Key[KeyPos]);
dest:=dest + format('%1.2x',[SrcAsc]);
offset:=SrcAsc;
end;
Result:=Dest;
end;

Function Uncryp(Src:String; Key:String):string;
var
KeyLen :Integer;
KeyPos :Integer;
offset :Integer;
dest :string;
SrcPos :Integer;
SrcAsc:Integer;
TmpSrcAsc :Integer;
begin
KeyLen:=Length(Key);
if KeyLen = 0 then
key:='Think Space';
srcasc:=0;
KeyPos:=0;
offset:=StrToInt('$'+ copy(src,1,2));
SrcPos:=3;
repeat
try
SrcAsc:=StrToInt('$'+ copy(src,SrcPos,2));
except

end;
if KeyPos < KeyLen Then
KeyPos := KeyPos + 1
else
KeyPos := 1;
TmpSrcAsc := SrcAsc xor Ord(Key[KeyPos]);
if TmpSrcAsc <= offset then
TmpSrcAsc := 255 + TmpSrcAsc - offset
else
TmpSrcAsc := TmpSrcAsc - offset;
dest := dest + chr(TmpSrcAsc);
offset:=srcAsc;
SrcPos:=SrcPos + 2;
until SrcPos >= Length(Src);
Result:=Dest;
end;

一个是加密,一个解密,速度很快,也简单
如果还有其他不明白的,可以qq:33586813 或www.cc-rj.com

http://www.delphibbs.com/keylife/iblog_show.asp?xid=7088

完了，10元钱又没戏了，
creation-zy,以前我没看懂，不过经过一段时间的思考一种加密算法，现在能看懂你的算法了，等我下下来好生研究。

谢谢各位老大 分数太少 不承敬意