Softwarelizenz schützen

[EineFrage]

Edit: habe ich das richtig verstanden, dass die DOMAINE z.B. bei mir aktuell "WORKGROUP" ist?

Handelt es sich um eine Einbenutzerlizenz, muss der Kunde auch überhaupt nichts zusammensuchen, denn es ist schon alles vorhanden und generiert.

Nur bei einer Mehrbenutzerlizenz. Ich stelle auch en Tool zur Verfügung, welches die Mac-Adresse zuverlässig ausliest.

Alternativ zur Angabe der Mac-Adresse habe ich nun die Angabe einer Netzwerkdomäne hinzugefügt.

[OlafSt]

Die gezeigten Dongles sind doch reichlich teuer... Die Matrix-Dongles, die wir seit Jahren einsetzen, sichern die Lizenzen genauso gut ab, kosten aber nur einen Bruchteil. Die Bindung an so einen Hardware-Key gibt einem auch zwei prima Argumente für den Kunden: 1. Du kannst die Software kopieren, wie du willst und installieren wie du willst. 2. Wenn der Kunde mal wieder über die Preise mosert: Die Software kostet nicht viel, die Dongles sind so teuer.

[EineFrage]

Ich habe folgenden sehr nützlichen Code gefunden kann ihn aber leider nicht testen, da ich nicht an einer Domäne angemeldet bin.
Wäre jemand so nett, diesen für mich zu testen und mir mitzuteilen, welche Konstante für den Rückgabewert des (Netzwerk-)Domänennamen zuständig ist?

Delphi-Quellcode:

const
 NameUnknown = 0;
 NameFullyQualifiedDN = 1;
 NameSamCompatible = 2;
 NameDisplay = 3;
 NameUniqueId = 6;
 NameCanonical = 7;
 NameUserPrincipal = 8;
 NameCanonicalEx = 9;
 NameServicePrincipal = 10;
 NameDnsDomain = 12;
function GetUserNameExString(ANameFormat: DWORD): string;
var
 Buf: array [0 .. 256] of AnsiChar;
 BufSize: DWORD;
 GetUserNameEx: function(NameFormat: DWORD; lpNameBuffer: LPSTR; var nSize: ULONG): BOOL; stdcall;
begin
 Result := '';
 BufSize := SizeOf(Buf) div SizeOf(Buf[0]);
 GetUserNameEx := GetProcAddress(GetModuleHandle('secur32.dll'), 'GetUserNameExA');
 if Assigned(GetUserNameEx) then
  if GetUserNameEx(ANameFormat, Buf, BufSize) then
   Result := Buf;
end;

Quelle: http://stackoverflow.com/questions/8...dows-in-delphi

[blondervolker]

Mach es ganz einfach.Festplattennummer auslesen oder etwas anderes auslesen.Denne verstecken in verschlüsselter Datei oder sonst wo.
Wenn manipuliert wurde oder Datei ist nicht da,eine Meldung ausgeben oder Exe
schließen.Hat den Vorteil das die "Exe" nur gestartet wird,wenn die ausgelesene Nummer/n auch identisch ist.Und funktioniert eh nur auf einen Rechner....

[jensw_2000]

Die MachineGuid würde ich in der heutigen Zeit immer MAC Adressen oder Festplatten Seriennummern oder anderen "hardwarespezifischen ID's" vorziehen, da sie auch in virtualisierten Umgebungen eindeutig ist.
Die MAC ist in jeder virtuellen Maschine kinderleicht frei konfigurierbar und andere Dinge wie Festplatten-Seriennummern oder SID's verändern sich beim Klonen von virtuellen Maschinen nicht.

[p80286]

[QUOTE=EineFrage;1234401]Ich habe folgenden sehr nützlichen Code gefunden kann ihn aber leider nicht testen, da ich nicht an einer Domäne angemeldet bin.
Wäre jemand so nett, diesen für mich zu testen und mir mitzuteilen, welche Konstante für den Rückgabewert des (Netzwerk-)Domänennamen zuständig ist?

Delphi-Quellcode:

const
 NameSamCompatible = 2;

damit solltest Du Domäne\UID erhalten.

Gruß
K-H

[DeddyH]

Zitat von EineFrage:

Ich habe folgenden sehr nützlichen Code gefunden kann ihn aber leider nicht testen, da ich nicht an einer Domäne angemeldet bin.

Schau mal hier: http://forum.delphi-treff.de/index.p...threadID=31582. Ganz unten habe ich auch Ausgabebeispiele gepostet.

[p80286]

Ich habe da noch einige kleine ergänzungen:

Code:

1 CN=walker,OU=WhiskyGroup,OU=users,OU=DUS,OU=Sites,DC=gb,DC=diageo,DC=net
2 Scotch\walker
3 WALKER, JOHNNIE
4 [e-mail]
5 [e-mail]
6 {48be4c02-aae0-4b26-b0c5-c8d408804a9c}
7 gb.diageo.net/Sites/DUS/users/WhiskyGroup/walker
8 [e-mail]
9 gb.diageo.net/Sites/DUS/users/WhiskyGroupwalker

12 GB.DIAGEO.NET\walker

0,10,11 funktionieren bei mir nicht

Gruß
K-H

[Perlsau]

Könnte man nicht statt teurer Dongels einen billigen kleinen Stick mit verschlüsseltem Dateisystem oder veschlüsselten Dateien einsetzen?

[zeras]

Zitat von OlafSt:

.....
2. Wenn der Kunde mal wieder über die Preise mosert: Die Software kostet nicht viel, die Dongles sind so teuer.

Der war gut!
Bei Windows ist dann wahrscheinlich auch die CD zu teuer?