Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi FestplattenSeriennummer ohne GetVolumeInformation auslesen ? (https://www.delphipraxis.net/16041-festplattenseriennummer-ohne-getvolumeinformation-auslesen.html)

stoxx 9. Feb 2004 14:26


FestplattenSeriennummer ohne GetVolumeInformation auslesen ?
 
Hallo,

ich möchte die Festplatten Seriennummer von einem Laufwerk auslesen.
Aber OHNE zu Hilfenahme der API Funktion GetVolumeInformation.

DA müsste es doch noch einen Weg mit viel Assembler geben oder ?
Leider bin ich da überhaupt nicht fit drin ..
Kennt jemand einen Weg ? Danke !

viele Grüße
stoxx

Chewie 9. Feb 2004 15:02

Re: FestplattenSeriennummer ohne GetVolumeInformation ausles
 
Wieso willst du denn den komfortablen Weg über GetVolumeInformation nicht gehen?

chris 9. Feb 2004 15:32

Re: FestplattenSeriennummer ohne GetVolumeInformation ausles
 
hi,

mit DeviceIOControl() (auch API) könnte man es bewerkstelligen, aber das ist nicht ganz unkompliziert.

wieso nimmst du nicht GetVolumeInformation() ?

stoxx 9. Feb 2004 16:24

Re: FestplattenSeriennummer ohne GetVolumeInformation ausles
 
Zitat:

Zitat von Chewie
Wieso willst du denn den komfortablen Weg über GetVolumeInformation nicht gehen?


naja .. weil das ein Teil meines Lizensierungsverfahrens darstellt. Und den API Aufruf GetVolumeInformation sieht ja gleich jeder, wenn er genauer hinguckt :-)

The-X 9. Feb 2004 17:54

Re: FestplattenSeriennummer ohne GetVolumeInformation ausles
 
wie wär's mit dynamisch laden und den namen des funktionsaufrufs mit XOR verschleiern? *gg*

stoxx 9. Feb 2004 18:41

Re: FestplattenSeriennummer ohne GetVolumeInformation ausles
 
Zitat:

Zitat von The-X
wie wär's mit dynamisch laden und den namen des funktionsaufrufs mit XOR verschleiern? *gg*


welche Vorteile genau soll Dynamisches Laden bringen ?
Den API Aufruf sieht man doch trotzdem oder ?

The-X 10. Feb 2004 11:39

Re: FestplattenSeriennummer ohne GetVolumeInformation ausles
 
Nicht im Import-Table, nur wenn man Software wie Api-Monitor oder ähnliches benutzt!

Mal davon abgesehen, wenn du die Seriennummer einer Festplatte zur Reg-Code-Generierung benutzt darf der User keine andere Festplatte benutzen (z.B. nach Backup & HeadCrash o.ä.) also:

Platte A - Programm installiert und registriert
Backup von Platte A
Platte A -> defekt
Restore auf Platte B
Programm fragt nach Registrierung?

oder warte auf diesen einen Prozessor (von dem ich atm nicht weiss wie er heisst) *gg

neolithos 10. Feb 2004 11:45

Re: FestplattenSeriennummer ohne GetVolumeInformation ausles
 
Es gibt eine Möglichkeit die Partitionsnummer-Seriennummer herauszufinden.

Vielleicht reicht die das?

neolithos 10. Feb 2004 12:09

Re: FestplattenSeriennummer ohne GetVolumeInformation ausles
 
Übrigens diese Serial ist Tatsächlich an die Partition gebunden.

Und so könnte man sie alternativ auslesen!

Funktioniert nur bei FAT32 und WinNT-Systemen (2k, XP)

Delphi-Quellcode:
  stm := TFileStream.Create('\\.\D:', fmOpenRead or fmShareDenyNone);
  try
    stm.Read(buf, 512);

    lst.Items.Add(Format('Serial: %s', [IntToHex(PCardinal(@buf[$43])^, 8)]));
  finally
    stm.Free;
  end;

Für FAT12, FAT16, NTFAS müssten andere Werte wie 43h eingesetzt werden.

Welches Laufwerk es nun ist kann man auch an dem 2 Byte erkennen. Oder man interpretiert den kompletten Header und Prüft ob eine gültige Kennung in FileSystemName herauskommt.

stoxx 10. Feb 2004 12:12

Re: FestplattenSeriennummer ohne GetVolumeInformation ausles
 
Zitat:

Zitat von The-X
Nicht im Import-Table, nur wenn man Software wie Api-Monitor oder ähnliches benutzt!

Mal davon abgesehen, wenn du die Seriennummer einer Festplatte zur Reg-Code-Generierung benutzt darf der User keine andere Festplatte benutzen (z.B. nach Backup & HeadCrash o.ä.) also:

Das ist korrekt, dann läuft die Software nicht mehr.
Dann bekommt der User einfach eine neue Lizenz.

a) frage ich noch andere Dinge ab
b) kann er soviele neue Lizenzen (dennoch im Rahmen) haben wie er will, da das programm sowieso nur
eine begrenzte Laufzeit hat. Also sozusagen mit Verfallsdatum.

Kennst Du zufällig eine Soft, die alle Funktions und Prozedurnahmen automatisch etwas kryptisch verschlüsselt aussehen lässt und gleich den ganzen Quelltext bearbeitet ?
Wird sicherlich schwierig, da es ja alle Units durchgehen müsste. hmm


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:49 Uhr.
Seite 1 von 2  1 2      

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