main32.pas

wbs43open-src.zip 数字隐藏工具

  exit_a.Visible:=False;
  help_p.Visible:=True;
  wiz_p.Visible:=True;
  exit_p.Visible:=True;  }
end;

procedure TForm14.decodeMouseMove(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.go_pMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  {help_a.Visible:=False;
  help_p.Visible:=True;
  wiz_a.Visible:=False;
  wiz_p.Visible:=True;
  exit_a.Visible:=False;
  exit_p.Visible:=True;}
end;

procedure TForm14.codeClick(Sender: TObject);
begin
  Codec:=True;
  Label8.Font.Color:=clBlack;
  Label13.Font.Color:=clBtnFace;
  AllData:=True;
  If Codec Then Begin
    If Bin='' Then AllData:=False;
    If Din='' Then AllData:=False;
    If Mout='' Then AllData:=False;
  End
  Else Begin
    If Min='' Then AllData:=False;
    If Dout='' Then AllData:=False;
  End;
  If (Codec And AllData) Then SBar.Caption:=ml.GetCodeString('main32',85);{'Click on "Start", to encode data in the carrier file'; } // code085
  If (Not(Codec) And AllData) Then SBar.Caption:=ml.GetCodeString('main32',86);{'Click on "Start", to decode data from the carrier file'; } // code086
  If Not(AllData) Then SBar.Caption:=ml.GetCodeString('main32',87);{'Select input and output data';} // code087
end;

procedure TForm14.decodeClick(Sender: TObject);
begin
  Codec:=False;
  Label8.Font.Color:=clBtnFace;
  Label13.Font.Color:=clBlack;
  AllData:=True;
  If Codec Then Begin
    If Bin='' Then AllData:=False;
    If Din='' Then AllData:=False;
    If Mout='' Then AllData:=False;
  End
  Else Begin
    If Min='' Then AllData:=False;
    If Dout='' Then AllData:=False;
  End;
  If (Codec And AllData) Then SBar.Caption:=ml.GetCodeString('main32',85);{'Click on "Start", to encode data in the carrier file'; } // code085
  If (Not(Codec) And AllData) Then SBar.Caption:=ml.GetCodeString('main32',86);{'Click on "Start", to decode data from the carrier file'; } // code086
  If Not(AllData) Then SBar.Caption:=ml.GetCodeString('main32',87);{'Select input and output data';} // code087
end;

procedure TForm14.Image6Click(Sender: TObject);
begin
  OpenDialog1.Filename:=Min;
  OpenDialog1.Filter:=ml.GetCodeString('main32',1);{'Bitmaps (*.BMP)|*.BMP|Text Files (*.TXT)|*.TXT|HTML Files (*.HTM)|*.HTM|PDF Files (*.PDF)|*.PDF|All Files (*.*)|*.*';} //code001
  OpenDialog1.Title:=ml.GetCodeString('main32',2);{'Load carrier file';} // code002
  OpenDialog1.Execute;
  Timer1.Enabled:=True;
  LCl:=4;
end;

procedure TForm14.Image2Click(Sender: TObject);
begin
  OpenDialog1.Filename:=Bin;
  OpenDialog1.Filter:=ml.GetCodeString('main32',3);{'Bitmaps (*.BMP)|*.BMP|Text Files (*.TXT)|*.TXT|HTML Files (*.HTM)|*.HTM|PDF Files (*.PDF)|*.PDF|All Files (*.*)|*.*';} // code 003
  OpenDialog1.Title:=ml.GetCodeString('main32',4);{'Load carrier file'; }//code004
  OpenDialog1.Execute;
  Timer1.Enabled:=True;
  LCl:=1;
end;

procedure TForm14.Image4Click(Sender: TObject);
begin
  PopUpMenu1.Popup(Left+Image4.Left+40,Top+Image4.Top+40);
end;

procedure TForm14.Image10Click(Sender: TObject);
begin
  If FileType='BMP' Then SaveDialog1.Filter:=ml.GetCodeString('main32',5);{'Bitmaps (*.BMP)|*.BMP|All Files|*.*'; }  //code005
  If FileType='ASC' Then SaveDialog1.Filter:=ml.GetCodeString('main32',6);{'Text Files (*.TXT)|*.TXT|All Files|*.*'; }// code006
  If FileType='TXT' Then SaveDialog1.Filter:=ml.GetCodeString('main32',6);{'Text Files (*.TXT)|*.TXT|All Files|*.*'; }// code006
  If FileType='HTM' Then SaveDialog1.Filter:=ml.GetCodeString('main32',7);{'HTML Files (*.HTM)|*.HTM|All Files|*.*'; }// code007
  If FileType='PDF' Then SaveDialog1.Filter:=ml.GetCodeString('main32',8);{'PDF Files (*.PDF)|*.PDF|All Files|*.*'; }// code008
  SaveDialog1.Title:=ml.GetCodeString('main32',9);{'Save carrier file as'; }// code009
  SaveDialog1.Execute;
  Timer1.Enabled:=True;
  LCl:=3;
end;

procedure TForm14.Image11Click(Sender: TObject);
begin
  SaveDialog1.Filter:=ml.GetCodeString('main32',10);{'All Files (*.*)|*.*';}  // code010
  SaveDialog1.Title:=ml.GetCodeString('main32',11);{'Save data as'; }// code011
  SaveDialog1.Execute;
  Timer1.Enabled:=True;
  LCl:=5;
end;

procedure TForm14.FormCreate(Sender: TObject);
var
  i:   Byte;
  wm:  Integer;
begin
  // ml support
  Button1.Caption:=ml.GetComponentString('main32.Button1.Caption');
  Button2.Caption:=ml.GetComponentString('main32.Button2.Caption');
  Button3.Caption:=ml.GetComponentString('main32.Button3.Caption');
  Button4.Caption:=ml.GetComponentString('main32.Button4.Caption');
  Button5.Caption:=ml.GetComponentString('main32.Button5.Caption');
  Button6.Caption:=ml.GetComponentString('main32.Button6.Caption');
  CheckBox1.Caption:=ml.GetComponentString('main32.CheckBox1.Caption');
  //CheckBox3.Caption:=ml.GetComponentString('main32.CheckBox3.Caption');
  //CheckBox4.Caption:=ml.GetComponentString('main32.CheckBox4.Caption');
  Label8.Hint:=ml.GetComponentString('main32.code.Hint');
  CopyrightInfo1.Caption:=ml.GetComponentString('main32.CopyrightInfo1.Caption');
  //CryptMethod.Caption:=ml.GetComponentString('main32.CryptMethod.Caption');
  //Label12.Hint:=ml.GetComponentString('main32.decode.Hint');
  Edit1.Text:=ml.GetComponentString('main32.Edit1.Text');
  Edit2.Text:=ml.GetComponentString('main32.Edit2.Text');
  Edit3.Text:=ml.GetComponentString('main32.Edit3.Text');
  File1.Caption:=ml.GetComponentString('main32.File1.Caption');
  Form14.Caption:=ml.GetComponentString('main32.Form14.Caption');
  Image10.Hint:=ml.GetComponentString('main32.Image10.Hint');
  Image11.Hint:=ml.GetComponentString('main32.Image11.Hint');
  Image2.Hint:=ml.GetComponentString('main32.Image2.Hint');
  Image4.Hint:=ml.GetComponentString('main32.Image4.Hint');
  Image6.Hint:=ml.GetComponentString('main32.Image6.Hint');
  Image8.Hint:=ml.GetComponentString('main32.Image8.Hint');
  Image9.Hint:=ml.GetComponentString('main32.Image9.Hint');
  Label1.Caption:=ml.GetComponentString('main32.Label1.Caption');
  Label10.Caption:=ml.GetComponentString('main32.Label10.Caption');
  Label13.Caption:=ml.GetComponentString('main32.Label13.Caption');
  Label14.Caption:=ml.GetComponentString('main32.Label14.Caption');
  Label15.Caption:=ml.GetComponentString('main32.Label15.Caption');
  Label16.Caption:=ml.GetComponentString('main32.Label16.Caption');
  Label17.Caption:=ml.GetComponentString('main32.Label17.Caption');
  Label18.Caption:=ml.GetComponentString('main32.Label18.Caption');
  Label19.Caption:=ml.GetComponentString('main32.Label19.Caption');
  Label20.Caption:=ml.GetComponentString('main32.Label20.Caption');
  Label13.Hint:=ml.GetComponentString('main32.Label13.Hint');
  Label14.Hint:=ml.GetComponentString('main32.Label14.Hint');
  Label15.Hint:=ml.GetComponentString('main32.Label15.Hint');
  Label16.Hint:=ml.GetComponentString('main32.Label16.Hint');
  Label19.Hint:=ml.GetComponentString('main32.Label19.Hint');
  Label20.Hint:=ml.GetComponentString('main32.Label20.Hint');
  Label2.Caption:=ml.GetComponentString('main32.Label2.Caption');
  Label3.Caption:=ml.GetComponentString('main32.Label3.Caption');
  Label4.Caption:=ml.GetComponentString('main32.Label4.Caption');
  Label5.Caption:=ml.GetComponentString('main32.Label5.Caption');
  Label6.Caption:=ml.GetComponentString('main32.Label6.Caption');
  //Label7.Caption:=ml.GetComponentString('main32.Label7.Caption');
  Label9.Caption:=ml.GetComponentString('main32.Label9.Caption');
  lcrypt.Caption:=ml.GetComponentString('main32.lcrypt.Caption');
  lin1.Caption:=ml.GetComponentString('main32.lin1.Caption');
  lin2.Caption:=ml.GetComponentString('main32.lin2.Caption');
 // logo.Hint:=ml.GetComponentString('main32.logo.Hint');
  lout.Caption:=ml.GetComponentString('main32.lout.Caption');
  ltin1.Caption:=ml.GetComponentString('main32.ltin1.Caption');
  ltin2.Caption:=ml.GetComponentString('main32.ltin2.Caption');
  ltout.Caption:=ml.GetComponentString('main32.ltout.Caption');
  ml.GetComponentStringList('main32.Memo1.Lines',Memo1.Lines);
  ml.GetComponentStringList('main32.Memo2.Lines',Memo2.Lines);
  ml.GetComponentStringList('main32.Memo3.Lines',Memo3.Lines);
  ml.GetComponentStringList('main32.Memo3a.Lines',Memo3a.Lines);
  ml.GetComponentStringList('main32.Memo3d.Lines',Memo3d.Lines);
  ml.GetComponentStringList('main32.Memo5.Lines',Memo5.Lines);
  ml.GetComponentStringList('main32.Memo5d.Lines',Memo5d.Lines);
  ml.GetComponentStringList('main32.Memo6.Lines',Memo6.Lines);
  ml.GetComponentStringList('main32.Memo7.Lines',Memo7.Lines);
  ml.GetComponentStringList('main32.Memo8.Lines',Memo8.Lines);
  MenuItem1.Caption:=ml.GetComponentString('main32.MenuItem1.Caption');
  MenuItem2.Caption:=ml.GetComponentString('main32.MenuItem2.Caption');
  OpenDialog1.Filter:=ml.GetComponentString('main32.OpenDialog1.Filter');
{$IFNDEF CLX}
  ml.GetComponentStringList('main32.Outline1.Lines',Outline1.Lines);
{$ELSE}
  ml.GetComponentStringList('main32.Outline1.Lines',ListBox2.Items);
{$ENDIF}
  RadioButton1.Caption:=ml.GetComponentString('main32.RadioButton1.Caption');
  RadioButton2.Caption:=ml.GetComponentString('main32.RadioButton2.Caption');
  SBar.Caption:=ml.GetComponentString('main32.SBar.Caption');
  //ml.GetComponentStringList('main32.Tabset1.Tabs',Tabset1.Tabs);
  wbh.Caption:=ml.GetComponentString('main32.wbh.Caption');
  wbw.Caption:=ml.GetComponentString('main32.wbw.Caption');
  wbz.Caption:=ml.GetComponentString('main32.wbz.Caption');
  ws_title.Caption:=ml.GetComponentString('main32.ws_title.Caption');
  ws_x1.Caption:=ml.GetComponentString('main32.ws_x1.Caption');
  ws_x2.Caption:=ml.GetComponentString('main32.ws_x2.Caption');
  // images
  {ml.GetComponentImage('main32.exit_a.Picture',exit_a.Picture.Graphic);
  ml.GetComponentImage('main32.exit_p.Picture',exit_p.Picture.Graphic);
  ml.GetComponentImage('main32.help_a.Picture',help_a.Picture.Graphic);
  ml.GetComponentImage('main32.help_p.Picture',help_p.Picture.Graphic);
  ml.GetComponentImage('main32.wiz_a.Picture',wiz_a.Picture.Graphic);
  ml.GetComponentImage('main32.wiz_p.Picture',wiz_p.Picture.Graphic);}
  ml.GetComponentImage('main32.Image2.Picture',Image2.Picture.Graphic);
  ml.GetComponentImage('main32.Image4.Picture',Image4.Picture.Graphic);
  ml.GetComponentImage('main32.Image6.Picture',Image6.Picture.Graphic);
  ml.GetComponentImage('main32.Image8.Picture',Image8.Picture.Graphic);
  ml.GetComponentImage('main32.Image9.Picture',Image9.Picture.Graphic);
  ml.GetComponentImage('main32.Image10.Picture',Image10.Picture.Graphic);
  ml.GetComponentImage('main32.Image11.Picture',Image11.Picture.Graphic);
  ml.GetComponentImage('main32.Image12.Picture',Image12.Picture.Graphic);
  {ml.GetComponentImage('main32.code.Picture',code.Picture.Graphic);
  ml.GetComponentImage('main32.codeact.Picture',codeact.Picture.Graphic);
  ml.GetComponentImage('main32.decode.Picture',decode.Picture.Graphic);
  ml.GetComponentImage('main32.decodeact.Picture',decodeact.Picture.Graphic);
  //ml.GetComponentImage('main32.logo.Picture',logo.Picture.Graphic);    }
  /////////////////////////////////////////////////////////////////////////////
{$IFNDEF CLX}
  Application.HelpFile := AppPath+'\'+ml.GetCodeString('main32',12);
{$ELSE}
  // under Linux, HTML help is used, so add .html
  Application.HelpFile := AppPath+'/'+ml.GetCodeString('main32',12)+'.html';
{$ENDIF}

{$IFDEF CLX}
  wbsIni:=TIniFile.Create(GetCurrentDir+'/wbStego.ini');
  wm:=wbsIni.ReadInteger('Settings','Wizard',1);
  CopyrightPath:=wbsIni.ReadString('Settings','CopyrightPath','undefined');
  wbsIni.Destroy;
{$ELSE}
  wbsIni:=TRegistry.Create;
  IsRegd:=True;
  wbsIni.Rootkey:=HKEY_CURRENT_USER;
  If wbsIni.OpenKey('SOFTWARE\WBailer\wbStego',True) Then Begin
    if wbsIni.ValueExists('Wizard') then wm:=wbsIni.ReadInteger('Wizard') else wm:=1;
    //temppath:=wbsIni.ReadString('TempDirectory');
    //RegUsername:=wbsIni.ReadString('Username');
    //RegSerialno:=wbsIni.ReadString('RegCode');
    if wbsIni.ValueExists('CopyrightPath') then CopyrightPath:=wbsIni.ReadString('CopyrightPath') else CopyrightPath:='undefined';
    {InstDate:=wbsIni.ReadFloat('MRU');
    if wbsIni.ValueExists('Ins') then begin
      If wbsIni.ReadInteger('Ins')=34657 Then Begin
        InstDate:=Date;
        wbsIni.WriteInteger('Ins',0);
      End;
    end;
    If InstDate>Date Then InstDate:=Date-31;
    IsRegd:=CheckSerialNo(RegSerialNo);}
  End
  Else Begin
    wm:=1;
    CopyrightPath:='undefined';
    //temppath:='undefined';
  End;
  wbsIni.Destroy;
{$ENDIF}
  LCl:=0;
  Codec:=True;
  AllData:=False;
  Label1.Caption:='???';
  Label2.Caption:='???';
  Label3.Caption:='???';
  Label4.Caption:='???';
  Label5.Caption:='???';
  Bin:='';
  Din:='';
  Mout:='';
  Min:='';
  Dout:='';
  Pwd:='';
  Mix:=False;
  Crypt:=False;
  Transmit:=False;
  WStep:=1;
  FileType:='BMP';
  {CptPlace:=6;   }
  SBar.Caption:=ml.GetCodeString('main32',13);{'Select input and output data'; } // code013
  If Codec Then Begin
    i:=0;
  End
  Else Begin
    i:=1;
  End;
  ws_title.Caption:=WSM[1,i];
  ws_x1.Caption:=ml.GetCodeString('main32',14);{'1'; }  // code014
  ws_x2.Caption:=ml.GetCodeString('main32',15);{'1';  } // code015
  If wm=1 Then Begin
    SBar.Visible:=False;
    WzPanel.Visible:=True;
  End
  Else Begin
    SBar.Visible:=True;
    WzPanel.Visible:=False;
  End;
  WStep:=1;
  S2.Visible:=False;
  S3.Visible:=False;
  //S4.Visible:=False;
  S4set.Visible:=False;
  S4pwd.Visible:=False;
  S5.Visible:=False;
  S6.Visible:=False;
  wbz.Caption:=ml.GetCodeString('main32',16);{'&Exit';}  // code016
  LCResult:=False;
{$IFNDEF CLX}
  DropFileTarget1.Register(Form14);
{$ENDIF}
  CheckBox1.Visible:=True;
  CheckBox1.Checked:=False;
  // stego engine II
  myCarrier:=TCarrierFile.Create;
  myData:=TDataFile.Create;
end;

procedure TForm14.wiz_aClick(Sender: TObject);
var
  i:   Byte;
begin
  If Codec Then Begin
    i:=0;
  End
  Else Begin
    i:=1;
  End;
  ws_title.Caption:=WSM[1,i];
  ws_x1.Caption:=ml.GetCodeString('main32',17);{'1';}   // code017
  ws_x2.Caption:=ml.GetCodeString('main32',18);{'1'; }  // code018
  SBar.Visible:=False;
  WzPanel.Visible:=True;
  WStep:=1;
  S2.Visible:=False;
  S3.Visible:=False;
  //S4.Visible:=False;
  S4set.Visible:=False;
  S4pwd.Visible:=False;
  S5.Visible:=False;
  S6.Visible:=False;
  wbz.Caption:=ml.GetCodeString('main32',19);{'&Exit'; } // code019
end;

procedure TForm14.wbzClick(Sender: TObject);
begin
  Case WStep Of
    1:  Close;
    2:  Begin