Discussion :

[ledarch]

Bonjour,

J'ai créé un installeur dans Inno Setup et j'aimerais le protéger. J'ai déjà un mot de passe, mais tout le monde peut l'utiliser en fait ... Du coup, j'aimerais savoir si avec Inno Setup je pouvais sécuriser mon setup avec un mot de passe utilisable deux fois (par ex.) et après rendre le setup inutilisable ?
Ou alors avoir une vérification internet des personnes qui installent le setup ...


HELP ME PLS

CDLT

[ShaiLeTroll]

Il y a deux semaines, un autre sujet sur la protection anti-copie

C'est un sujet souvent évoqué

• Gestion de licence
• Je voudrais protéger mon application par un générateur de clé par ID de machine
• "Web Start" en quelque sorte
• sécuriser une application delphi
• Comment protéger mon programme contre une copie ?
• Besoin d'aide pour sécuriser mon logiciel

[ledarch]

RE


je suis en train de créer un installeur avec inno setup, j'aimerais récupérer un ID de disque dur pour que chaque installation soit propre à un ordinateur, j'ai trouvé un code qui correspont à peut pres sauf que j'ai une erreur dans ce code .
FORMAT2 n'est pas identifié, pouvez vous me guider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
[Setup]
AppName=Filesystem
AppVerName=Filesystem
Uninstallable=false
UpdateUninstallLogAppName=false
DisableDirPage=false
DisableProgramGroupPage=true
DefaultDirName={pf}\Filesystem
DisableStartupPrompt=true
 
[Code]
function GetVolumeInformation(
  lpRootPathName: PChar;
  lpVolumeNameBuffer: PChar;
  nVolumeNameSize: LongInt;
  var lpVolumeSerialNumber: LongInt;
  lpMaximumComponentLength: LongInt;
  lpFileSystemFlags : LongInt;
  lpFileSystemNameBuffer: PChar;
  nFileSystemNameSize: LongInt) : Integer;
 external 'GetVolumeInformationA@kernel32.dll';
 
function GetLastError () : Integer;
 external 'GetLastError@kernel32.dll';
 
 
function NextButtonClick(CurPage: Integer): Boolean;
var srcdisk : String;
    ercode: Integer; sernum: LongInt;
    fstype: String;
begin
  Result := true;
  if CurPage = wpSelectDir then
  begin
    srcdisk := AddBackslash (ExtractFileDrive (WizardDirValue ));
    fstype := StringOfChar (' ', 12);
    if GetVolumeInformation (srcdisk, '', 0, sernum, 0, 0, fstype, 11) = 0 then
    begin
      ercode := GetLastError ();
      MsgBox (SysErrorMessage (ercode), mbError, MB_OK);
      Result := false;
    end else
    begin
      fstype := CastIntegerToString (CastStringToInteger (fstype));
      MsgBox (Format2 ('Volume %s has filesystem type (%s)', srcdisk, fstype), mbInformation, MB_OK);
      // Only carry on if the file system is NTFS.
       ');
    end;
  end;
end;

[Andnotor]

Format existe mais pas Format2.

Mais je ne sais pas d'où tombe ce code, il ne fonctionnera pas. Mauvaise convention d'appel (stdcall) et variables mal déclarées (pdword et non LongInt).
De plus, lpFileSystemNameBuffer contient le nom du système de fichier (soit NTFS, FAT32, etc.) et non un entier. C'est sans doute lpVolumeSerialNumber que tu aimerais utiliser mais ce numéro n'a rien d'unique (il représente la date et l'heure de formatage) et peut être modifié facilement.

Bref, dans la version Unicode d'Inno Setup (celle que j'utilise), le code (version ANSI) se présenterait ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
[Code]
 
const
  MAX_PATH = 260;
 
function GetVolumeInformation(
  lpRootPathName: PAnsiChar;
  lpVolumeNameBuffer: PAnsiChar; 
  nVolumeNameSize: dword; 
  var lpVolumeSerialNumber: dword;
  var lpMaximumComponentLength: dword;
  var lpFileSystemFlags: dword;
  lpFileSystemNameBuffer: PAnsiChar;
  nFileSystemNameSize: dword): bool;
  external 'GetVolumeInformationA@kernel32.dll stdcall';
 
function NextButtonClick(CurPage: Integer): Boolean;
var 
  RootPath    :AnsiString;
  VolName     :AnsiString;
  FileSysName :AnsiString;
  VolSerial   :dword;
  CompoMaxLen :dword;
  FileFlags   :dword;
 
begin
  Result := TRUE;
 
  if CurPage = wpSelectDir then
  begin
    RootPath := AddBackslash(ExtractFileDrive(WizardDirValue));
    SetLength(VolName, MAX_PATH +1);
    SetLength(FileSysName, MAX_PATH +1);
 
    if GetVolumeInformation(PAnsiChar(RootPath), PAnsiChar(VolName), Length(VolName), VolSerial, CompoMaxLen, FileFlags, PAnsiChar(FileSysName), Length(FileSysName)) 
    then MsgBox(Format('Volume %s has filesystem type (%s)', [RootPath, PAnsiChar(FileSysName)]), mbInformation, MB_OK)
    else MsgBox(SysErrorMessage(DLLGetLastError), mbError, MB_OK);
  end;
end;

[ledarch]

Merci je vais regarder !

Format existe mais pas Format2.

Mais je ne sais pas d'où tombe ce code, il ne fonctionnera pas. Mauvaise convention d'appel (stdcall) et variables mal déclarées (pdword et non LongInt).
De plus, lpFileSystemNameBuffer contient le nom du système de fichier (soit NTFS, FAT32, etc.) et non un entier. C'est sans doute lpVolumeSerialNumber que tu aimerais utiliser mais ce numéro n'a rien d'unique (il représente la date et l'heure de formatage) et peut être modifié facilement.

Bref, dans la version Unicode d'Inno Setup (celle que j'utilise), le code (version ANSI) se présenterait ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
[Code]
 
const
  MAX_PATH = 260;
 
function GetVolumeInformation(
  lpRootPathName: PAnsiChar;
  lpVolumeNameBuffer: PAnsiChar; 
  nVolumeNameSize: dword; 
  var lpVolumeSerialNumber: dword;
  var lpMaximumComponentLength: dword;
  var lpFileSystemFlags: dword;
  lpFileSystemNameBuffer: PAnsiChar;
  nFileSystemNameSize: dword): bool;
  external 'GetVolumeInformationA@kernel32.dll stdcall';
 
function NextButtonClick(CurPage: Integer): Boolean;
var 
  RootPath    :AnsiString;
  VolName     :AnsiString;
  FileSysName :AnsiString;
  VolSerial   :dword;
  CompoMaxLen :dword;
  FileFlags   :dword;
 
begin
  Result := TRUE;
 
  if CurPage = wpSelectDir then
  begin
    RootPath := AddBackslash(ExtractFileDrive(WizardDirValue));
    SetLength(VolName, MAX_PATH +1);
    SetLength(FileSysName, MAX_PATH +1);
 
    if GetVolumeInformation(PAnsiChar(RootPath), PAnsiChar(VolName), Length(VolName), VolSerial, CompoMaxLen, FileFlags, PAnsiChar(FileSysName), Length(FileSysName)) 
    then MsgBox(Format('Volume %s has filesystem type (%s)', [RootPath, PAnsiChar(FileSysName)]), mbInformation, MB_OK)
    else MsgBox(SysErrorMessage(DLLGetLastError), mbError, MB_OK);
  end;
end;