Nochmal Kopierschutz ...

[greenmile]

http://www.aspack.com/asprotect32.html

Kostet nur die Hälfte (< 200 EUR) und ist bei mir seit langem (> 3 Jahre) ungeknackt. Inklusive Protector, Keymaker, API für Interaktion etc.

[nuclearping]

Soweit ich das mitbekommen habe, hat ASProtect Probleme mit Antivirusprogrammen? Ist das immernoch aktuell?

http://www.delphipraxis.net/186140-s...asprotect.html

[greenmile]

In letzter Zeit hatte ich da keine Probleme, vor 3-4 Jahren hat Avira ganz gerne mal falschen Alarm gemeldet. Damit kann ich leben und sag den Usern, dass die Software keine Viren enthält. Mein Server (@ Home) wird von Kaspersky Endpoint gescannt, die Workstation mit Kaspersky Internet Security. Das hilft nahezu immer. Zumal Avira meistens nur wg. Heuristic zugeschlagen hat.

[mm1256]

Zitat von nuclearping:

Soweit ich das mitbekommen habe, hat ASProtect Probleme mit Antivirusprogrammen? Ist das immernoch aktuell?

http://www.delphipraxis.net/186140-s...asprotect.html

Danke für die "Erinnerung". Ich habe zu AsProtect ein paar neue Erkenntnisse und werde dazu in Kürze im o.g. Thread antworten, weil, hier ist es OT.

[nytaiceman]

Ich hatte ein ähnliches Problem und musste Computer möglichst eindeutig identifizieren.
Vielleicht ist das für einen privaten Kopierschutz auch brauchbar.

Jeder Computer (PC, Notebook, Smartphones) verfügt über eine eindeutige UUID. Diese ist HW-seitig eingebrannt (Ähnlich der MAC Adresse einer Netzwerkkarte). Auch virtuelle Hardware verfügen darüber (Getestet aber nur mit VMWare).

Ich verwende dazu die uSMBIOS.pas (Z.B. von hier: https://theroadtodelphi.wordpress.co...ucing-tsmbios/)

Delphi-Quellcode:

// Uses: uSMBIOS

type
 TAUUID =  Array[0..31] of WideChar;

// === Convert UUID ============================================================
function FormatUUID(UUID: TAUUID):String;
begin
  Result:=Copy(UUID,0,8)+'-'+Copy(UUID,9,4)+'-'+Copy(UUID,13,4)+'-'+Copy(UUID,17,4)+'-'+Copy(UUID,21,12);
end;

function ConvertUUID(UUID: TUUID):TUUID;
var i: Integer;
    tempUUID: TUUID;
begin
  tempUUID:=UUID;
  for i := 0 to 3 do tempUUID[i]:=UUID[3-i];
  for i := 4 to 5 do tempUUID[i]:=UUID[4+(5-i)];
  for i := 6 to 7 do tempUUID[i]:=UUID[6+(7-i)];
  Result:=tempUUID;

end;

// === Get UUID ================================================================
function GetUUID:String;
Var
  SMBios : TSMBios;
  LSystem: TSystemInformation;
  UUID,UUID2   : TAUUID; //Array[0..31] of WideChar;
  Dummy: TUUID;
begin
 SMBios:=TSMBios.Create;
 try
  LSystem:=SMBios.SysInfo;
  BinToHex(@LSystem.RAWSystemInformation.UUID,UUID,SizeOf(LSystem.RAWSystemInformation.UUID));
  Dummy := ConvertUUID(LSystem.RAWSystemInformation.UUID);
  BinToHex(@Dummy,UUID2,SizeOf(LSystem.RAWSystemInformation.UUID));
  Result := FormatUUID(UUID2);
 finally
  SMBios.Free;
 end;
end;

Wünsche gutes Gelingen!