unit1.dfm

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

object Form1: TForm1
  Left = 209
  Top = 227
  Width = 720
  Height = 425
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 184
    Width = 68
    Height = 17
    AutoSize = False
    Caption = #25968#23383#23494#30721#65306
    OnClick = Label1Click
  end
  object Label2: TLabel
    Left = 312
    Top = 12
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #24038#24341#21495
  end
  object Label3: TLabel
    Left = 432
    Top = 11
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #21491#24341#21495
  end
  object Label4: TLabel
    Left = 16
    Top = 216
    Width = 113
    Height = 13
    AutoSize = False
    Caption = #35201#21152#20837#30340#20195#30721#65306
  end
  object Button1: TButton
    Left = 40
    Top = 48
    Width = 193
    Height = 25
    Caption = '+'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 40
    Top = 112
    Width = 193
    Height = 25
    Caption = '-'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Edit1: TEdit
    Left = 16
    Top = 16
    Width = 241
    Height = 21
    TabOrder = 2
    Text = #35201#21152#23494#30340#20869#23481
  end
  object Edit2: TEdit
    Left = 16
    Top = 80
    Width = 241
    Height = 21
    TabOrder = 3
    Text = #24050#21152#23494#30340#20869#23481
  end
  object Edit3: TEdit
    Left = 16
    Top = 152
    Width = 241
    Height = 21
    TabOrder = 4
    Text = #35299#23494#20869#23481
  end
  object Edit4: TEdit
    Left = 77
    Top = 180
    Width = 180
    Height = 21
    TabOrder = 5
    Text = '12345'
  end
  object Memo1: TMemo
    Left = 264
    Top = 32
    Width = 425
    Height = 169
    Lines.Strings = (
      'ab:='#39'1'#39'+abc+'#39'2'#39';'
      'if Edit3.Text=Edit1.Text then ShowMessage('#39#35299#23494#25104#21151#65281#39');'
      'if Edit3.Text=Edit1.Text then ShowMessage('#39'123456'#39');'
      'end;')
    ScrollBars = ssVertical
    TabOrder = 6
  end
  object Button3: TButton
    Left = 520
    Top = 8
    Width = 169
    Height = 17
    Caption = 'comm'
    TabOrder = 7
    OnClick = Button3Click
  end
  object Edit5: TEdit
    Left = 280
    Top = 8
    Width = 25
    Height = 21
    TabOrder = 8
    Text = #39
  end
  object Edit6: TEdit
    Left = 400
    Top = 8
    Width = 25
    Height = 21
    TabOrder = 9
    Text = #39
  end
  object Memo2: TMemo
    Left = 16
    Top = 232
    Width = 673
    Height = 145
    Lines.Strings = (
      'function HexStrToStr(const S:string):string;'
      '//16'#36827#21046#23383#31526#20018#36716#25442#25104#23383#31526#20018
      'var'
      't:Integer;'
      'ts:string;'
      'M,Code:Integer;'
      'begin'
      't:=1;'
      'Result:='#39#39';'
      'while t<=Length(S) do'
      'begin'
      '    while not (S[t] in ['#39'0'#39'..'#39'9'#39','#39'A'#39'..'#39'F'#39','#39'a'#39'..'#39'f'#39']) do'
      '      inc(t);'
      
        '    if (t+1>Length(S))or(not (S[t+1] in ['#39'0'#39'..'#39'9'#39','#39'A'#39'..'#39'F'#39','#39'a'#39'..' +
        #39'f'#39'])) then'
      '      ts:='#39'$'#39'+S[t]'
      '    else'
      '      ts:='#39'$'#39'+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;'
      '//'#24322#25110#23383#31526#20018
      '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 GetPassStr(const S:string;passget:integer):string;'
      '//'#23383#31526#20018#35299#23494
      'begin'
      'Result:=XorStr(HexStrToStr(S),passget);'
      'end;')
    ScrollBars = ssVertical
    TabOrder = 10
  end
end