www.fr-an.de

Fragen, Hinweise
- Software
- System
  - Hardlinks
Projekte
- MPEG-1/2 Video
  - Übersicht
- Optische Laufwerke
Software

Freunde, Bekannte
- LigH's Chap2Cue
- Rene's EPG Analyse
Eigene Projekte
Delphi

Links
- - Software

Hardwareinformationen

Drive Serial Number

GET CONFIGURATION Command - Operation Code $46
DRIVE SERIAL FEATURE - Feature Number $0108

Multi-Media Commands - 6 Kapitel 6.5: Mit dem GET CONFIGURATION Command werden Informationen über die Eigenschaften des Laufwerkes ermittelt. Die Eigenschaften können insgesamt oder einzeln abgerufen werden. Das DRIVE SERAIL Feature in Kapitel 5.3.40 ist optional, sollte jedoch bei echten Laufwerken vorhanden sein. Virtuelle Laufwerke scheinen dieses Feature nicht zu unterstützen.

Der GET CONFIGURATION Command Descriptor Block:

	7	6	5	4	3	2	1	0
0	Operation Code ($46)
1	Reserviert						RT
2	Starting Feature Number
3	Starting Feature Number
4	Reserviert
5
6
7	Allocation Length
8	Allocation Length
9	Control

Die zu setzenden Werte:

Byte 0: Operation Code - $46

Byte 1: RT - Request Type:

Wert	Beschreibung
00b	Das Laufwerk soll den Feature Header und alle durch das Laufwerk unterstützten Feature Beschreibungen zurückgeben ohne Rücksicht auf Geltung.
01b	Das Laufwerk soll den Feature Header und nur die gewählte Feature Beschreibung zurückgeben.
10b	Das Laufwerk soll den Feature Header und nur die gewählte Feature Beschreibung zurückgeben. Wird das Feature nicht unterstützt, soll nur der Feature Header zurückgegeben werden.
11b	Reserviert

Byte 2 und 3: Starting Feature Number - Gibt die Nummer des Feature, welches zuerst ausgegeben werden soll, an. Abhängig vom Request Type kann es auch das einzige sein. Das DRIVE SERIAL FEATURE hat die Featurenummer $0108.

Byte 7 und 8: Länge der Antwortstruktur. Die Länge muss mindestens so groß gewählt werden, dass die erwartete Antwort auf jeden Fall hineinpasst. Die Beschreibung des DRIVE SERIAL FEATURE mit der Feature Nummer $0108 hat keine feste Länge. Deshalb muss man nach dem Aufuf kontrollieren, ob die gewählte Länge groß genug gewählt war. Alternativ kann man auch zuerst 4 angeben, die Data Length lesen und den Aufruf mit der ermittelten Länge wiederholen.

Byte 9: Control - ?

Die Werte werden ein- und übertragen. Das Beispiel ist vielleicht etwas umständlich, aber übersichtlicher und eben nur ein Beispiel:

 
  const
    SCSIOP_GET_CONFIGURATION    = $46;
    FEATURE_DRIVE_SERIAL_NUMBER = $0108;
    RT_All                      = 0;
    RT_Current                  = 1;
    RT_Identified               = 2;
 
  type
    TGET_CONFIGURATION_CDB = record
      OperationCode         : Byte;
      RequestType           : Byte;
      StartingFeatureNumber : Word;
      AllocationLength      : Word;
    end;
 
    ...
 
  begin
 
    ...
 
    {
    *  Den Command Descriptor Block füllen.
    }
    ZeroMemory(@GET_CONFIGURATION_CDB, SizeOf(TGET_CONFIGURATION_CDB));
    GET_CONFIGURATION_CDB.OperationCode         := SCSIOP_GET_CONFIGURATION;
    GET_CONFIGURATION_CDB.RequestType           := RT_Identified;
    GET_CONFIGURATION_CDB.StartingFeatureNumber := FEATURE_DRIVE_SERIAL_NUMBER;
    GET_CONFIGURATION_CDB.AllocationLength      := SizeOf(TGET_CONFIGURATION_SERIAL);
    {
    *  Den Command Descriptor Block übertragen.
    }
    SetLength(aCDB, 10);
    aCDB[0] := GET_CONFIGURATION_CDB.OperationCode;
    aCDB[1] := GET_CONFIGURATION_CDB.RequestType;
    aCDB[2] := HiByte(GET_CONFIGURATION_CDB.StartingFeatureNumber);
    aCDB[3] := LoByte(GET_CONFIGURATION_CDB.StartingFeatureNumber);
    aCDB[7] := HiByte(GET_CONFIGURATION_CDB.AllocationLength);
    aCDB[8] := LoByte(GET_CONFIGURATION_CDB.AllocationLength);
 
    ...
 
  end;

Die Antwortstruktur

Diese Struktur hat keine feste Länge. Wenn das Feature nicht unterstützt wird, ist sie acht Byte lang. Zuerst der Feature Header:

	7	6	5	4	3	2	1	0
0	Data Length
1
2
3
4	Reserviert
5	Reserviert
6	Current Profile
7	Current Profile

Anschließend folgt die DRIVE SERIAL FEATURE Beschreibung, falls dieses Feature unterstützt wird:

	7	6	5	4	3	2	1	0
0	Feature Code = $0108
1	Feature Code = $0108
2	Reserviert		Version = 0000b				Persistent	Current
3	Additional Length
4 - n	Serial Number

 
  type
    TGET_CONFIGURATION_SERIAL = record
      Header : array[0..7] of Byte;
      Data   : array[0..99] of Byte;
    end;

Ausführung und Auswertung

Nach der Ausführung wird die Antwortstruktur ausgewertet.

 
  type
    TGetConfigurationHeader = record
      DataLength     : DWord;
      CurrentProfile : Word;
    end;
 
    TFeatureDriveSerial = record
      FeatureCode  : Word;
      Version      : Byte;
      Persistent   : Boolean;
      Current      : Boolean;
      AddLength    : Byte;
      SerialNumber : String;
    end;
 
    ...
 
  begin
 
    ...
 
    {
    *  Befehl ausführen
    }
    if GET_SCSI_PASS_THROUGH_DIRECT(aDrive, aCDB, @GET_CONFIGURATION_SERIAL,
                                    SizeOf(TGET_CONFIGURATION_SERIAL))
    then begin
      ConfigHead.DataLength     := GET_CONFIGURATION_SERIAL.Header[0] shl 24 or
                                   GET_CONFIGURATION_SERIAL.Header[1] shl 16 or
                                   GET_CONFIGURATION_SERIAL.Header[2] shl  8 or
                                   GET_CONFIGURATION_SERIAL.Header[3];
      ConfigHead.CurrentProfile := GET_CONFIGURATION_SERIAL.Header[6] shl 8 or
                                   GET_CONFIGURATION_SERIAL.Header[7];
      DriveSerial.FeatureCode  := GET_CONFIGURATION_SERIAL.Data[0] shl 8 or
                                  GET_CONFIGURATION_SERIAL.Data[1];
      DriveSerial.Version      := GET_CONFIGURATION_SERIAL.Data[2] and $3C shr 2;
      DriveSerial.Persistent   := GET_CONFIGURATION_SERIAL.Data[2] and $02 > 0;
      DriveSerial.Current      := GET_CONFIGURATION_SERIAL.Data[2] and $01 > 0;
      DriveSerial.AddLength    := GET_CONFIGURATION_SERIAL.Data[3];
      if DriveSerial.AddLength > 0 then
      for n := 1 to DriveSerial.AddLength
      do DriveSerial.SerialNumber := DriveSerial.SerialNumber +
                                     Chr(GET_CONFIGURATION_SERIAL.Data[3 + n]);
    end;
 
    ...
 
  end;

Data Length - Die Datenlänge im Header gibt die Länge des noch folgenden Headerrestes und der Feature Bechreibung an. Wird das Feature nicht unterstützt ist der Wert vier, was bei virtuellen Laufwerken die Regel sein dürfte. Sonst gilt, das noch vier Byte Header und vier Byte Feature Drive Serial Beschreibung bis zur Serial Number folgen und der Wert mehr als acht betragen muss.

Current Profile - Gibt das aktive Profil an. Das Profil ist vom Laufwerk und dem eingelegten Datenträger abhängig. Sind mehrere Profile aktiv wird das Profil mit der höchsten Nummer angegeben. (Liste der Profile in einem Fenster öffnen.)

Feature Code - Muss der selbe wie im CDB sein. Hier war das DRIVE SERIAL Feature $0108 ausgewählt.

Version - Die Versionsnummer muss 0000b sein.

Persistent - gibt an, ob sich der Wert ändern kann. Wenn das Flag gesetzt ist, ist die Eigenschaft immer aktiv und ändert sich nicht.

Current - gibt an, ob die Eigenschaft zur Zeit aktiv ist.

Additional Length - Der Wert gibt die Länge der folgenden Serial Number an. Es muss ein Vielfaches von vier sein.

Serial Number - Die Nummer besteht aus ASCII-Zeichen aus dem Wertebereich von $20 bis $7E. Ungenutzte Bytes werden mit maximal drei Leerzeichen ($20) aufgefüllt.

Demo, welche diese Funktion nutzt:

Hardware Serial (podHardSerial.7z - 256 kb) MD5 (1 kb). Stand: 10. Januar 2012

CONTENT SCRAMBLE SYSTEM > DRIVE SERIAL NUMBER > DVD READ

Fr_An - Erstellt: 8. Januar 2012 - Letzte Änderung: 21. Januar 2012

seit 28. Juli 2010