Program nur bei engelegter CD nutzen

[Alter Mann]

Hallo,

Ich habe dieses Problem einmal wie folgt gelöst:

Die Installationsroutine ermittelte über GetVolumeInformation die Serien-Nr. der CD.
Dieser Wert wurde in die Registry geschrieben und jedesmal beim Aufruf mit der CD verglichen.

Das wars, es ist zwar kein Kopierschutz, zwingt jedoch zum einlegen der CD.

[joya]

Ja,

genau das könnte ich brauchen, können sie mir das genauer erklären, wie und wo mache ich so was, (beim install-schield, oder wo), und wie kann ich dann diesen wert aufrufen und vergleichen. wenn sie auch noch code haben, dass wäre prima.

Danke

[Tonic1024]

Hi Alter Mann...

Ist es dann auch so, dass eine zweite CD auf dem Rechner nicht Funktioniert? Hört sich danach an... Und wie würde sich das auf eine Kopie (wie auch immer, ob nun berechtigt oder nicht) der CD auswirken? Ich hab das doch richtig verstanden? Ist die ID der CD selber, oder?

Ist das eine Delphi-Funktion? Wo gibts die? Ist das WinAPI? Code?

Fragen über Fragen... :lol:
Interessiert mich wirklich...

[Uncle Cracker]

Zitat:

Hallo,

Ich habe dieses Problem einmal wie folgt gelöst:

Die Installationsroutine ermittelte über GetVolumeInformation die Serien-Nr. der CD.
Dieser Wert wurde in die Registry geschrieben und jedesmal beim Aufruf mit der CD verglichen.

Das wars, es ist zwar kein Kopierschutz, zwingt jedoch zum einlegen der CD.

Zitat:

Ja,

genau das könnte ich brauchen, können sie mir das genauer erklären, wie und wo mache ich so was, (beim install-schield, oder wo), und wie kann ich dann diesen wert aufrufen und vergleichen. wenn sie auch noch code haben, dass wäre prima.

Danke

Klar, hab jetzt mal ein bisschen rumprobiert und bin zu folgendem Ergebniss gekommen:

Delphi-Quellcode:

uses Registry;

function Seriennummer(Laufwerk: PChar): string;
var
  NotUsed:     DWORD;
  VolumeFlags: DWORD;
  VolumeInfo:  array[0..MAX_PATH] of Char;
  VolumeSerialNumber: DWORD;
begin 
  GetVolumeInformation(PChar(Laufwerk + ':\'),
    nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, 
    VolumeFlags, nil, 0);
  Result := Format('%8.8X',[VolumeSerialNumber])
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Reg: TRegistry;
  Serial, RegSerial: String;
begin
  Serial:=Seriennummer('E');
  try
  Reg:= TRegistry.Create;
  Reg.Rootkey:=HKEY_CURRENT_USER;
  if not Reg.KeyExists('Software\Uncle Cracker')
  then begin
  Reg.Openkey('Software\Uncle Cracker',true);
  Reg.WriteString('Seriennummer', Serial)
  end else begin
  Reg.Openkey('Software\Uncle Cracker',true);
  RegSerial:=Reg.ReadString('Seriennummer');
  if not (RegSerial=Serial) then begin Showmessage('Falsche CD im Laufwerk'); halt
  end;
  end;
  finally
  Reg.Free;
end;
end;

Ist zwar nicht der schönste Code, doch er funktioniert.

Also:

Beim 1. starten schreibt das Programm die CD-Seriennummer in die Registry.
Beim 2. starten überprüft es jedesmal, ob es die gleiche Seriennummer ist wie beim letztem Start auch.

Das ganze könnte man jetzt ins Programm einbauen, doch anstatt Seriennummer('E') zu übergeben einfach den Laufwerkstypen auf dem das Programm gestartet wurde.


[Edit]PS: Falls es noch fragen zum Code gibt, einfach stellen :roll: [/Edit]

[Lillebrohr]

Hi,

Zitat:

Beim 1. starten schreibt das Programm die CD-Seriennummer in die Registry.
Beim 2. starten überprüft es jedesmal, ob es die gleiche Seriennummer ist wie beim letztem Start auch.

Achja, ich liebe meinen Debugger ! :dancer2:
Sowas bringt nichts !! kopierschutz wäre in kürzester zeit behoben, mit der Methode.

Bye

[Uncle Cracker]

Wie gesagt, es ist nur eine simple Methode wie man es machen könnte.

Wie würdest du es sonst machen um es immer noch leicht mit Delphi umzusetzen zukönnen?

[Tonic1024]

Moin

Ich könnte mir auch vorstellen, dass wenn man einen Cracker mit acht verschiedenen Kopierschutz-Funktionen (warum nicht auch zwanzig oder mehr) gleichzeitig konfrontiert, und sich auch noch ein bissel gewitzt dabei anstellt, dann hat der bald keine lust mehr.

Man kann ja auch die Seriennummer in der Registry crypten. und nach einem unlogischen Muster wechseln lassen.

Jeder einzelne Kopierschutz müsste unabhängig vom anderen funktionieren und einfach nur verwirrend sein und ständig wechselnd.

ABER, wie ich und Uncle C schon mehrfach festgestellt haben: Es macht für ein einfaches SWF oder Flash-Game überhauptkeinen Sinn !!!

Ich denke die Methode von Uncle C ist okay für diese Zwecke - wahrscheinlich sogar überdimensioniert :lol:

Bis denne...

[Uncle Cracker]

man kann diese Abfrage auch etwas sicherer machen, indem man entweder DLLs nutzt oder mehrer Threads hat, dies bringt schon die meisten Cracker durcheinander und man sollte nicht nur eine Abfrage nach der Seriennummer haben.

[Lillebrohr]

Zitat:

man kann diese Abfrage auch etwas sicherer machen, indem man entweder DLLs nutzt oder mehrer Threads hat, dies bringt schon die meisten Cracker durcheinander und man sollte nicht nur eine Abfrage nach der Seriennummer haben.

Dlls bringen denke ich mal niemanden durcheinander, und mehrere threads ... naja.

Ich überlege mir aber auch schon was.
be Patient !!