Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   kopierschutz auch im Netzwerk??? (https://www.delphipraxis.net/113114-kopierschutz-auch-im-netzwerk.html)

rollstuhlfahrer 4. Mai 2008 07:35

Re: kopierschutz auch im Netzwerk???
 
Zitat:

Zitat von himitsu
Zitat:

Zitat von rollstuhlfahrer
cmd /c ver

GetVersionEx und Co.

ich vertrau da eher der Kommandozeile, da immerhin Windows wissen sollte, was es ist, obwohl der Rest bestimmt auch nicht schlecht ist

rollsuhlfahrer

EDIT: die kommandozeile erkennt auch Vista ohne Probleme (Server, etc...)

himitsu 4. Mai 2008 07:49

Re: kopierschutz auch im Netzwerk???
 
das ist eine Windowsfunktion :zwinker: MSDN-Library durchsuchenGetVersionEx und dein "cmd /c ver" ruft dieses intern auch auf.

PS: wenn du den Befehl genau so aufrufen läßt ... leg mal diese Datei (cmd.bat) in dein Programmverzichnis :angel2:
Code:
@echo off
echo Microsoft Windows 98
und schon hast du überall ein Windows 98 :roll:



PS: die Idee mit der MAC-Adresse ist zwar nicht schlecht,
aber was passiert, wenn kein Firmen-Server existiert?

Vorschlag: codiere doch in der Registrierungsnummer ob der Freischaltcode aus der MAC-Adresse oder Daten des lokalen PC's errechnet wurde/werden soll
Müßte der Benutzer nur bei Anfrage von Registrierungsnummer+Freischaltcode mit angeben was er benötigt.
(bei vielen Programmen ist ja auch schon drin Codiert welche Freischaltversion vorliegt > Einzelplatz, MultiPC, Standard, Professional usw.)

sk.Silvia 11. Mai 2008 19:37

Re: kopierschutz auch im Netzwerk???
 
Zitat:

Zitat von Olli73
Zitat:

Dann werd' ich mich mal nach der MAC-Adressen-Abfrage tummeln.
Also ich mache das folgendermaßen:

Delphi-Quellcode:
unit arp;


interface


uses
  sysutils, windows, winsock;


type
  TMacAddr = Array[0..5] of char;


function SendARP(DestIP: u_long; SrcIP: u_long; var MacAddr: TMacAddr;
                  var Len: u_long): DWORD; stdcall; external 'iphlpapi.dll';
function GetMacByIp(const IP: String): String;


implementation


function GetMacByIp(const IP: string): String;
var
  Mac: TMacAddr;
  i: Integer;
  L: integer;
  S: String;
begin
  for i := 0 to 5 do
    Mac[i] := #0;
  L := SizeOf(TMacAddr);
  SendARP(inet_addr(PChar(IP)), inet_addr(PChar('localhost')), Mac, L);
  S := '';
  for i := 0 to 5 do
    S := S + IntToHex(Ord(Mac[i]), 2) + '.';
  Delete(S, Length(S), 1);
  result := S;
end;


end.

hallo
und wie kann die MAC adresse andern ohne auf dass windows register zugreifen zummussen?

Apollonius 11. Mai 2008 19:38

Re: kopierschutz auch im Netzwerk???
 
Findest du nicht, dass ein Thread reicht?


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:24 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz