?? main32.pas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -