![]() |
Frage bez.Kopierschutz in Delphi(H-id bsp.)
Hallo
Ich habe neulich von einem freund ein code beispiel bekommen,welcher die Seriennummer der HD ausliest und beim Programmstart diese überprüft. Ich habe die vermutung das sich nach diesem Hardware-ID-Protection Beispiel das Programm nach einem Format nicht mehr starten lässt ,da sich die Nr.der HD doch ändert. Was meint ihr dazu?
Code:
function GetSerialNumber(const ADrive: Char): integer;
var SerialNum: DWORD; Dummy: DWord; Buffer: array[0..255] of Char; begin Result:=0; if GetVolumeInformation(PChar(ADrive+':\'),buffer, SizeOf(Buffer),@SerialNum,Dummy,Dummy,nil,0) then Result:=SerialNum else RaiseLastOSError; end; // Überprüfen der Nr. von C: mit '12121212'. if IntToHex(GetSerialNumber('C'),8) <> '12121212' then ExitProcess(0); :dp: |
Re: Frage bez.Kopierschutz in Delphi(H-id bsp.)
Moin ...,
die Serial der HD wird sich beim formatieren sicher nicht ändern, wohl eher die der jeweilgen Partition! Du wirst aber auch beim 'ersten' Start die ID irgendwo speichern und später vergleichen müssen. Dieser Schutz lässt sich sehr leicht aushebeln. |
Re: Frage bez.Kopierschutz in Delphi(H-id bsp.)
dachte ich mir eigentlich... Es ging mir mehr darum das einer etwas zum Code sagt...
|
Re: Frage bez.Kopierschutz in Delphi(H-id bsp.)
Dann sage ich mal was zum Code
Delphi-Quellcode:
lässt sich nur all zu leicht im Kompilat umbiegen, so dass die Bedingung einfach übersprungen wird. Aber, um hier auch nochmal das Credo alle Kopierschutz-Threads zu schreiben: jeder Schutz kann potenziellen "Hackern" nur ein paar mehr Steine in den Weg legen, knackbar ist virtually jeder.
if IntToHex(GetSerialNumber('C'),8) <> '12121212' then ExitProcess(0);
|
Re: Frage bez.Kopierschutz in Delphi(H-id bsp.)
... die Hardkodierung war sicher nur zum testen, es wäre auch Zeitaufwendig eine Anpassung an alle PC zu machen.
@sunrise: Hast du denn den Code denn schon selber mal getestet? |
Re: Frage bez.Kopierschutz in Delphi(H-id bsp.)
Zitat:
|
Re: Frage bez.Kopierschutz in Delphi(H-id bsp.)
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:00 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz