Softwarelizenz schützen

[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?