main32.pas

wbs43open-src.zip 数字隐藏工具

unit main32;

{wbStego 4}

interface

uses
  SysUtils, Classes,
  wbsData, SelDType, {Tabs,} fc_Set, fc_Pwd,
  NoCrypt, RegTools,
  Selectcopyright, MultiLang, working,
  DataFile, CarrierFile, EncryptedDataFile,
  ASCIIInsert, ASCIIReplace, PDFInsert, BMPReplace,
  FindCarrier, {Infoscreen,} wbsUtil, cpi_decod, settings
{$IFDEF CLX}
  , QMenus,QDialogs, QTypes, QExtCtrls, QStdCtrls, QControls, QGraphics
  , QGrids, QForms, Types, IniFiles
{$ELSE}
  ,WinTypes
  , Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls
  , Registry, Grids, Outline, Menus
  , DropSource, DropTarget, ComCtrls, TreeOutline
{$ENDIF}
  ;

type
  TForm14 = class(TForm)
    Image2: TImage;
    Image4: TImage;
    Image6: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    WzPanel: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    SBar: TPanel;
    wbz: TButton;
    wbw: TButton;
    S1: TPanel;
    Memo1: TMemo;
    S2: TPanel;
    Memo2: TMemo;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    S3: TPanel;
    Memo3: TMemo;
    Memo3a: TMemo;
    Memo3d: TMemo;
    wbh: TButton;
    Timer1: TTimer;
    Edit1: TEdit;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    S4pwd: TPanel;
    S5: TPanel;
    Memo5: TMemo;
    Edit2: TEdit;
    Memo5d: TMemo;
    Button3: TButton;
    S6: TPanel;
    Label6: TLabel;
    ltin1: TLabel;
    lin1: TLabel;
    ltin2: TLabel;
    lin2: TLabel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    ltout: TLabel;
    lout: TLabel;
    Label9: TLabel;
    lcrypt: TLabel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Memo6: TMemo;
    Edit3: TEdit;
    Memo7: TMemo;
    Timer2: TTimer;
    Label10: TLabel;
    Button1: TButton;
    ws_title: TLabel;
    Label18: TLabel;
    Label17: TLabel;
    ws_x1: TLabel;
    ws_x2: TLabel;
    Image12: TImage;
    codeact: TImage;
    decodeact: TImage;
    PopupMenu1: TPopupMenu;
    File1: TMenuItem;
    CopyrightInfo1: TMenuItem;
    PopupMenu2: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    Button4: TButton;
    Button5: TButton;
    Label8: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    S4set: TPanel;
    Button6: TButton;
    Memo8: TMemo;
    CheckBox1: TCheckBox;
{$IFNDEF CLX}
    Outline1: TOutline;
    DropFileTarget1: TDropFileTarget;
{$ELSE}
    ListBox2: TListBox;
{$ENDIF}

    procedure wiz_pMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure logoMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure exit_pMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure exit_aClick(Sender: TObject);
    procedure help_pMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure shor1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure shor2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure scornerMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure sverMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure VersionuCopyrightMouseMove(Sender: TObject;
      Shift: TShiftState; X, Y: Integer);
    procedure codeMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure decodeMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure go_pMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure codeClick(Sender: TObject);
    procedure decodeClick(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image10Click(Sender: TObject);
    procedure Image11Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure wiz_aClick(Sender: TObject);
    procedure wbzClick(Sender: TObject);
    procedure wbwClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure StartAction;
    procedure Timer1Timer(Sender: TObject);
    procedure go_aClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure wbhClick(Sender: TObject);
    procedure help_aClick(Sender: TObject);
    procedure Image12Click(Sender: TObject);
    procedure logoClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure TabSet1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure Image8Click(Sender: TObject);
    procedure Image9Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Image12MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormDestroy(Sender: TObject);
    procedure DropFileTarget1Drop(Sender: TObject; ShiftState: TShiftState;
      Point: TPoint; var Effect: Integer);
    procedure Image2DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Image4DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Image10DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Image6DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Image11DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure FCM_DataFile;
    procedure FCM_DataCopyright;
    procedure File1Click(Sender: TObject);
    procedure CopyrightInfo1Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure UpdateMemo8;
    function EncryptionString: String;

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form14:   TForm14;
  Codec:    Boolean;
  LCl:      Byte;
  Bin, Din, Mout, Min, Dout: String;
  AllData:  Boolean;
  WStep:    Byte;
{$IFDEF CLX}
  wbsIni:   TIniFile;
{$ELSE}
  wbsIni:   TRegistry;
{$ENDIF}
  CopyRightPath:    String;

  //
  myCarrier:      TCarrierFile;
  myASC:          TASCIIReplace;
  myTXT:          TASCIIInsert;
  myBMP:          TBMPReplace;
  myPDF:          TPDFInsert;
  myData:         TDataFile;

implementation

uses splash;

{$R *.dfm}

procedure TForm14.wiz_pMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  {help_a.Visible:=False;
  help_p.Visible:=True;
  exit_a.Visible:=False;
  exit_p.Visible:=True;
  wiz_p.Visible:=False;
  wiz_a.Visible:=True;   }
end;

procedure TForm14.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  {help_a.Visible:=False;
  wiz_a.Visible:=False;
  exit_a.Visible:=False;
  help_p.Visible:=True;
  wiz_p.Visible:=True;
  exit_p.Visible:=True;   }
end;

procedure TForm14.logoMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  {help_a.Visible:=False;
  wiz_a.Visible:=False;
  exit_a.Visible:=False;
  help_p.Visible:=True;
  wiz_p.Visible:=True;
  exit_p.Visible:=True;    }
end;

procedure TForm14.exit_pMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  {help_a.Visible:=False;
  wiz_a.Visible:=False;
  help_p.Visible:=True;
  wiz_p.Visible:=True;
  exit_p.Visible:=False;
  exit_a.Visible:=True; }
end;

procedure TForm14.exit_aClick(Sender: TObject);
begin
  Close;
end;

procedure TForm14.help_pMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  {wiz_a.Visible:=False;
  exit_a.Visible:=False;
  wiz_p.Visible:=True;
  exit_p.Visible:=True;
  help_p.Visible:=False;
  help_a.Visible:=True;  }
end;

procedure TForm14.shor1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  {help_a.Visible:=False;
  wiz_a.Visible:=False;
  exit_a.Visible:=False;
  help_p.Visible:=True;
  wiz_p.Visible:=True;
  exit_p.Visible:=True;  }
end;

procedure TForm14.shor2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  {help_a.Visible:=False;
  wiz_a.Visible:=False;
  exit_a.Visible:=False;
  help_p.Visible:=True;
  wiz_p.Visible:=True;
  exit_p.Visible:=True;  }
end;

procedure TForm14.scornerMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  {help_a.Visible:=False;
  wiz_a.Visible:=False;
  exit_a.Visible:=False;
  help_p.Visible:=True;
  wiz_p.Visible:=True;
  exit_p.Visible:=True;   }
end;

procedure TForm14.sverMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  {help_a.Visible:=False;
  wiz_a.Visible:=False;
  exit_a.Visible:=False;
  help_p.Visible:=True;
  wiz_p.Visible:=True;
  exit_p.Visible:=True;  }
end;

procedure TForm14.VersionuCopyrightMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  {help_a.Visible:=False;
  wiz_a.Visible:=False;
  exit_a.Visible:=False;
  help_p.Visible:=True;
  wiz_p.Visible:=True;
  exit_p.Visible:=True; }
end;

procedure TForm14.codeMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  {help_a.Visible:=False;
  wiz_a.Visible:=False;