一种简单的字符串加密和解密算法

最新推荐文章于 2021-08-17 10:25:01 发布

weixin_34234721

最新推荐文章于 2021-08-17 10:25:01 发布

阅读量366

点赞数

文章标签： java

本文介绍了一个使用简单异或操作实现的字符串加密与解密程序。该程序通过Delphi编写，利用一个预定义的XorKey数组进行加密过程，并能够通过相同的密钥轻松地还原原始字符串。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const
  XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47);
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function Encrypt(Str: string): string;
    function Decrypt(Str: string): string;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.Encrypt(Str: string): string;//加密算法
var
  i,j:Integer;
begin
  Result := '';
  j := 0;
  for i := 1 to Length(Str) do
  begin
    Result := Result + IntToHex(Byte(Str[i]) xor XorKey[j],2);
    j := (j + 1) mod 8;
  end;
end;

function TForm1.Decrypt(Str: string): string;//解密算法
var
  i,j:Integer;
begin
  Result := '';
  j := 0;
  for i := 1 to Length(Str) div 2 do
  begin
    Result := Result + Char(StrToInt('$'+Copy(Str,i*2-1,2)) xor XorKey[j]);
    j := (j + 1) mod 8;
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text :=Encrypt(Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text := Decrypt(Edit2.Text);
end;

end.