加密算法..怎么保春上面很多种方法了
这个能加密也能解密
function EnDeCode(const value:string) :string;
var
CharIndex:Integer;
ReturnValue:string;
begin
ReturnValue:='';
for CharIndex:=1 to length(value) do
begin
ReturnValue:=ReturnValue+chr(not(ord(value[CharIndex])));
//ReturnValue:=ReturnValue+chr(ord(value[CharIndex]));
end;
Result:= ReturnValue ;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=EnDeCode(edit1.Text ) ;
end;