本文整理自网络,侵删。
function EncryptSettings(Str : String): String;varX, Y : Integer;A : Byte;Key:string;beginKey:='Fi7ke'; //这个是加密钥匙,你可以随便设置,但解密钥匙要一样,不然解不了密Y := 1;for X := 1 to Length(Str) dobeginA := (ord(Str[X]) and $0f) xor (ord(Key[Y]) and $0f);Str[X] := char((ord(Str[X]) and $f0) + A);Inc(Y);If Y > length(Key) then Y := 1;end;Result := Str;end;
function DecryptSettings(Str : String): String;varX, Y : Integer;A : Byte;Key:string;beginKey:='Fi7ke'; //注意了,这里要和加密钥匙一样.Y := 1;for X := 1 to Length(Str) dobeginA := (ord(Str[X]) and $0f) xor (ord(Key[Y]) and $0f);Str[X] := char((ord(Str[X]) and $f0) + A);Inc(Y);If Y > length(Key) then Y := 1;end;Result := Str;end;
procedure TForm1.Button1Click(Sender: TObject);beginmemo2.Text:=EncryptSettings(memo1.Text);end;
procedure TForm1.Button2Click(Sender: TObject);beginmemo1.Text:=DecryptSettings(memo2.Text);end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>