unit1.pas

delphi字符串加密,可以将delphi源代码中的字符串作加密处理

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    Button3: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Memo2: TMemo;
    Label4: TLabel;
//    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function StrToHexStr(const S:string):string;
//字符串转换成16进制字符串
var
I:Integer;
begin
for I:=1 to Length(S) do
begin
    if I=1 then
      Result:=IntToHex(Ord(S[1]),2)
    else Result:=Result+IntToHex(Ord(S[I]),2);
end;
end;

function HexStrToStr(const S:string):string;
//16进制字符串转换成字符串
var
t:Integer;
ts:string;
M,Code:Integer;
begin
t:=1;
Result:='';
while t<=Length(S) do
begin
    while not (S[t] in ['0'..'9','A'..'F','a'..'f']) do
      inc(t);
    if (t+1>Length(S))or(not (S[t+1] in ['0'..'9','A'..'F','a'..'f'])) then
      ts:='$'+S[t]
    else
      ts:='$'+S[t]+S[t+1];
    Val(ts,M,Code);
    if Code=0 then
      Result:=Result+Chr(M);
    inc(t,2);
end;
end;

//==========================================================

function XorStr(const S:string;passxor:integer):string;
//异或字符串
var
aXorChar:array [0..123] of Byte;
j,I:Integer;

begin
for j:=0 to 123 do axorchar[j]:=passxor*3+333;
SetLength(Result,Length(S));
for I:=1 to Length(S) do
begin
    Result[I]:=Char(Ord(S[I]) Xor aXorChar[I mod (High(aXorChar)+1)]);
end;
end;

function SetPassStr(const S:string;passset:integer):string;
//字符串加密
begin
Result:=StrToHexStr(XorStr(S,passset));
end;

function GetPassStr(const S:string;passget:integer):string;
//字符串解密
begin
Result:=XorStr(HexStrToStr(S),passget);
end;

//============================================




procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=SetPassStr(Edit1.Text,strtoint(edit4.Text) );   //加密
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit3.Text:= GetPassStr(Edit2.Text,strtoint(edit4.Text ));   //解密
if Edit3.Text=Edit1.Text then ShowMessage('解密成功！');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize();
edit4.Text :=inttostr(random(1111111111));
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
randomize();
edit4.Text :=inttostr(random(1111111111));
end;

function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
var
  I,X: Integer;
  Len, LenSubStr: Integer;
begin
  if Offset = 1 then
    Result := Pos(SubStr, S)
  else
  begin
    I := Offset;
    LenSubStr := Length(SubStr);
    Len := Length(S) - LenSubStr + 1;
    while I <= Len do
    begin
      if S[I] = SubStr[1] then
      begin
        X := 1;
        while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do
          Inc(X);
        if (X = LenSubStr) then
        begin
          Result := I;
          exit;
        end;
      end;
      Inc(I);
    end;
    Result := 0;
  end;
end;


procedure TForm1.Button3Click(Sender: TObject);
var
  onlytext,loadtext,repltext:string;
  password,lkpnuqwovt,rgkwulf,textlen,ivuejwulf,uejwulf:integer;

  begin
loadtext:=memo1.Text ;
textlen:=length(loadtext);
uejwulf:=1;
ivuejwulf:=1;
while uejwulf<>0 do
   begin
randomize();
password:=random(1111111111);

uejwulf:=posex(edit5.Text ,loadtext,ivuejwulf);
rgkwulf:=posex(edit6.Text ,loadtext,uejwulf+length(edit5.Text ));
if uejwulf<>0 then onlytext:=copy (loadtext,uejwulf+1,rgkwulf-uejwulf-1);
ivuejwulf:=rgkwulf+length(edit6.text);
//如果onlytext<>''那么就加密字符串
  if onlytext<>'' then
  begin
    //到这里就可以取出单引号里的字符串
    //showmessage(onlytext);
        repltext:='GetPassStr('+chr(39)+setpassstr(onlytext,password)+chr(39)+','+inttostr(password)+')';
    loadtext:=StringReplace(loadtext,edit5.Text + onlytext + edit6.Text ,
    repltext,
    [rfIgnoreCase]);
        //当前位置
        ivuejwulf:=posex(repltext,loadtext,1)+length(repltext);

        lkpnuqwovt:=lkpnuqwovt+1;//加密次数
  end;

onlytext:='';//最后要清数据

   end;
memo1.Text :=loadtext;
showmessage('已对-> '+inttostr(lkpnuqwovt)+' <-个字符串进行加密处理。');
end;

end.