wbsdata.pas

wbs43open-src.zip 数字隐藏工具

unit wbsData;

interface

uses MultiLang
{$IFNDEF CLX}
,Registry
, Windows
{$ELSE}
, IniFiles
{$ENDIF}
,Sysutils
;

var
  InBMPName:   String;
  InDatName:   String;
  OutBMPName:  String;
  InManName:   String;
  OutDatName:  String;
  FileType:    String[3];
  OrigFileExt: String;
  Temppath:    String;
  Meth:        Byte;  
  DTStamp:     Longint;
  {CptPlace:    Byte;   }
  WSM:         Array[1..7,0..1] Of String[50];
  Mix:         Boolean;
  Crypt:       Boolean;
  Transmit:    Boolean;
  Pwd:         String;
  CryptAlgo:   Byte;
  XChar:       Array [0..255] Of Char;
  RegUsername: String;
  RegSerialno: String;
  IsRegd:      Boolean;
  InstDate:    Double;
  KillApp:     Boolean;
  LCResult:    Boolean;
  LCErrorMsg:  String;
{$IFDEF CLX}
  Reg:         TIniFile;
{$ELSE}
  Reg:         TRegistry;
{$ENDIF}
  Lang:        String;
  AppPath:     String;
  Distribute:  Boolean;

  function BoolToInt(ToF: Boolean): Integer;

implementation

  function BoolToInt(ToF: Boolean): Integer;
  begin
    If ToF Then BoolToInt:=0 Else BoolToInt:=1;
  end;

begin
  // language defs:
  // english: 1,0,2
  // german:  3,0,4
{$IFDEF CLX}
  Reg:=TIniFile.Create(GetCurrentDir+'/wbStego.ini');
  Lang:=Reg.ReadString('Settings','Language','english');
  AppPath:=Reg.ReadString('Settings','AppPath',GetCurrentDir);
  Reg.Destroy;
{$ELSE}
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  Lang:='english';
  if Reg.OpenKey('SOFTWARE\WBailer\wbStego',True) then begin
    if Reg.ValueExists('Language') then Lang:=Reg.ReadString('Language');
    if Reg.ValueExists('AppPath') then AppPath:=Reg.ReadString('AppPath') else AppPath:=GetCurrentDir;
  end
  else Lang:='english';
  Reg.Destroy;
{$ENDIF}
  if Lang='deutsch' then InitMLSupport(GetCurrentDir+'/ilsupp.dat',3,0,4)
  else InitMLSupport(GetCurrentDir+'/ilsupp.dat',1,0,2);
  RegUsername:='unregistered';
  RegSerialno:='0000000000000000000000';
  IsRegd:=True;
  KillApp:=False;
  WSM[1,0]:=ml.GetCodeString('wbsData',1);{'Welcome to the wbStego Wizard!'; }    // code001
  WSM[1,1]:=WSM[1,0];
  WSM[2,0]:=ml.GetCodeString('wbsData',2);{'Encode or Decode?'; }     // code002
  WSM[2,1]:=WSM[2,0];
  WSM[3,0]:=ml.GetCodeString('wbsData',5);  // code005
  WSM[3,1]:=ml.GetCodeString('wbsData',4);{'Select Manipulated File'; }  //code004
  WSM[4,0]:=ml.GetCodeString('wbsData',3);        //code003
  WSM[4,1]:=ml.GetCodeString('wbsData',6);{'Enter Password';  }          // code006
  WSM[5,0]:=ml.GetCodeString('wbsData',7);{'Select Encryption Method'; }// code007
  WSM[5,1]:=ml.GetCodeString('wbsData',8);{'Save Data'; }                // code008
  WSM[6,0]:=ml.GetCodeString('wbsData',9);{'Save Manipulated File'; }   // code009
  WSM[6,1]:=ml.GetCodeString('wbsData',10);{'Ready, Steady, Go!'; }      // code010
  WSM[7,0]:=ml.GetCodeString('wbsData',11);{'Ready, Steady, Go!'; }       // code011
  CryptAlgo:=0;
  Crypt:=False;
  Mix:=False;
  Distribute:=False;
end.