DRM-Kopierschutz in WMA-Dateien erkennen

[Dj_Base]

Hallo liebe DP'ler :-D

Mich würde mal interessieren, ob jemand von Euch eine Möglichkeit (Komponente, Ansatz, etc.) kennt, um ermitteln zu können, ob eine WMA-Audiodatei mit dem DRM-Kopierschutz belegt ist.

Vielen Dank schonmal für Eure Hilfe.

Bye,
Dj_Base

[Dj_Base]

Hi!

Ich glaube jetzt, dass ich mich unverständlich ausgedrückt habe.

Ich habe also eine WMA-Datei auf dem Rechner liegen und will herausfinden (mehr nicht), ob diese mit DRM geschützt ist, oder nicht. Ich hatte schon die Idee einfach mit der bass.dll testen sie zu konvertieren, und wenn die Datei dann nicht erzeugt wird, dann wüsste ich ja, dass es eine Datei mit DRM ist - doch das ist doch sehr Quick & Dirty :P
Schöner wäre, wenn man das vorher testen könnte.

Eine Forensuche hat überings auch nichts ergeben.

Viele Grüße,
Dj_Base

[SirThornberry]

Schau mal unter
http://msdn.microsoft.com/library/de...plications.asp

Da gibts unter "Sample" das "DRMHeader". Eventuell wird dort gezeigt wie man raus findet ob ein DRM-Header vorhanden ist oder nicht.

bzw. gibts hier die funktion zum checken:
http://msdn.microsoft.com/library/de...tprotected.asp

[Edit=Ergänzung]
Daraus entspringt folgender Delphicode:

Delphi-Quellcode:

function IsFileDRMProtected(AFileName: String): Boolean;
var lCheckProc: function(const AFileName: PWideChar; var AIsProtected: Bool): HRESULT; stdcall;
    lLibHandle: Cardinal;
    lWideChar   : PWideChar;
    lSize       : Integer;
    lRes        : HRESULT;
    lIsProtected: Bool;
begin
  lLibHandle := LoadLibrary('wmvcore.dll');
  if (lLibHandle > 0) then
  begin
    lCheckProc := GetProcAddress(lLibHandle, 'WMIsContentProtected');
    if Assigned(lCheckProc) then
    begin
      GetMem(lWideChar, MAX_PATH * SizeOf(WideChar));
      StringToWideChar(AFileName, lWideChar, MAX_PATH);
      lRes := lCheckProc(lWideChar, lIsProtected);
      case lRes of
        S_OK: result := lIsProtected
        else result := False;
      end;
    end
    else
      result := False;
  end
  else
    result := False;
end;

bzw. wenn die Api-Funktion statich eingebunden wird

Delphi-Quellcode:

type
  function WMIsContentProtected(const AFileName: PWideChar; var AIsProtected: Bool): HRESULT; stdcall; external 'wmvcore.dll';

[...]

function IsFileDRMProtected(AFileName: String): Boolean;
var lWideChar   : PWideChar;
    lSize       : Integer;
    lRes        : HRESULT;
    lIsProtected: Bool;
begin
  GetMem(lWideChar, MAX_PATH * SizeOf(WideChar));
  StringToWideChar(AFileName, lWideChar, MAX_PATH);
  lRes := WMIsContentProtected(lWideChar, lIsProtected);
  case lRes of
    S_OK: result := lIsProtected
    else result := False;
  end;
end;

Im übrigen hat es gereicht im msdn (http://msdn.microsoft.com/library) nach "wma drm" zu suchen.

[Dj_Base]

Vielen Dank - das ist genau das, was ich gesucht habe! :thumb:

Zitat:

Zitat von SirThornberry

Im übrigen hat es gereicht im msdn (http://msdn.microsoft.com/library) nach "wma drm" zu suchen.

Oh ja - Du hast Recht. :oops: Hatte gar nicht an dies MSDN gedacht. Tut mir leid.

mfg,
Dj_Base