Windows Produkt Key auslesen

.::Mignon::.

hi,

ich würde gerne mal wissen wie und wo man den windows produkt key auslesen kann so wie z.b. everest das machst.

ich hab gehört das der in der reg stehen soll aber verschlüsselt.

hoffe das mir jemand helfen kann und schon mal danke für alle antworten.

progandy

[ gelöst ] WinGetKey

.::Mignon::.

so nun stehe ich vor einem anderen problem, die func von xeno kann leider nur die keys von xp und vista auslesen. gibt es evlt. eine andere func für die betriebssysteme darunter funktioniert? also 2000 ME etc.

freue mich wie immre auf eure antworten

**Xenobiologist**

Hi,

alles darunter kann ich nicht testen und brauche ich auch nicht mehr

Mega

.::Mignon::.

du brauchst es vllt nicht aber ich um so mehr. weißt du wenn ob die produkt key bei ME oder kleiner auch verschlüsselt sind wie bei XP und einfahc so in der reg stehen.

progandy

Angeblich in der Registry als Pkey gesprichert: http://forum.jswelt.de/windows/7223-w….html#post37067

.::Mignon::.

sry, aber soweit ich das beurteilen kann is das lediglich die seriennummer vom system die bei der installation erstellt wird mit der kann ich aber leider nichts anfangen.

ich hab die ganzen reg pfade von 95 - ME aber nur für diese seriennummer. anscheindend ist der PKEY woanders gespeichert.

da im forum von deinem link auch geschreiben ist das der PKEY gar nicht gespeichert wird mussi ch sagen das es wahrscheinlich nicht stimmt da programme wie everest home auch den PKEY anzeigen.

also hoffe auf weitere hilfe aber danke für deine bemühungen progandy

progandy

AIDA32 sollte den Key anzeigen. Dann schua einfach mal, wo es den ausließt mit
Process Monitor
oder schau dir den Source von http://www.magicaljellybean.com/keyfinder/ an
vor allem

Spoiler anzeigen

Zitat

Code

procedure TForm1.GetXPKey;
var
  Registry: TRegistry;
  binarySize: Integer;
  HexBuf: ARRAY OF BYTE;
  edition: string;
  prodspec: TIniFile;
  editionwork: string;


begin
  if (Hiveloc = 'Software') and (FileExists(GetEnvironmentVariable('systemroot') + '\system32\prodspec.ini')) then
  begin
    prodspec := TIniFile.Create(GetEnvironmentVariable('systemroot') + '\system32\prodspec.ini');
    edition := prodspec.ReadString('Product Specification','Product','');
    prodspec.Free;
  end;
  if (Hiveloc <> 'Software') and (FileExists(hiveloc2 + '\system32\prodspec.ini')) then
  begin
    prodspec := TIniFile.Create(hiveloc2 + '\system32\prodspec.ini');
    edition := prodspec.ReadString('Product Specification','Product','');
    prodspec.Free;
  end;


  if edition <> '' then
  begin
    if LeftStr(Memo1.Lines[0],10) = 'Microsoft ' then
      editionwork := RightStr(Memo1.Lines[0],StrLen(PChar(Memo1.Lines[0]))-10);
//    Memo1.Lines.Add(editionwork);
    if LeftStr(edition,StrLen(PChar(editionwork))) = editionwork then
      edition := RightStr(edition,StrLen(PChar(edition))-StrLen(PChar(editionwork)));
    Memo1.Lines.Add(Trim(edition));
  end;
  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
// Don't change Registry.Access method if Win2k
  if Listbox1.Items[0] <> 'Microsoft Windows 2000' then Registry.Access:=KEY_WOW64_64KEY or KEY_READ;
  if (Registry.OpenKey(hiveloc + '\Microsoft\Windows NT\CurrentVersion',False)) { and Registry.ValueExists('DigitalProductID') } then
  begin
  if Listbox1.Items[0] <> 'Microsoft Windows 2000' then Registry.Access:=KEY_WOW64_64KEY or KEY_READ;
    binarySize := Registry.GetDataSize('DigitalProductId');
    SetLength(HexBuf, binarySize);
    if Listbox1.Items[0] <> 'Microsoft Windows 2000' then Registry.Access:=KEY_WOW64_64KEY or KEY_READ;
    Registry.ReadBinaryData('DigitalProductId', HexBuf[0], binarySize);
    Memo1.Lines.Add(DecodeProductKey(HexBuf));
  end;


  Registry.Free;
  if SaveKeysToFile > -1 then
  begin
        Memo2.Lines.Append(Memo1.Lines.GetText);
        Memo2.Lines.Append('');
        if SaveKeysToFile = ListBox1.Items.Count - 1 then
        begin
          SaveFileDone
        end
        else
        begin
          SaveKeysToFile := SaveKeysToFile + 1;
          ListBox1.Selected[SaveKeysToFile] := True;
          Form1.ListBox1Click(Form1);
        end;
  end;
end;


procedure TForm1.Get9xKey;
var
  Registry: TRegistry;


begin
  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  if (Registry.OpenKeyReadOnly(hiveloc + '\Microsoft\Windows\CurrentVersion')) and Registry.ValueExists('Version') then
  begin
    if Registry.ValueExists('ProductKey') then
      Memo1.Lines.Add(Registry.ReadString('ProductKey'))
    else if Registry.ValueExists('ProductID') then
      Memo1.Lines.Add(Registry.ReadString('ProductID'));
  end;


  Registry.Free;
  if SaveKeysToFile > -1 then
  begin
        Memo2.Lines.Append(Memo1.Lines.GetText);
        Memo2.Lines.Append('');
        if SaveKeysToFile = ListBox1.Items.Count - 1 then
        begin
          SaveFileDone
        end
        else
        begin
          SaveKeysToFile := SaveKeysToFile + 1;
          ListBox1.Selected[SaveKeysToFile] := True;
          Form1.ListBox1Click(Form1);
        end;
  end;
end;

Alles anzeigen

.::Mignon::.

ok thx das hat mir schon sehr weitergeholfen. leider weiß nich nich in welche programmsprache das skript von dir geschrieben war und verstehe deshalb nicht alles.

Spoiler anzeigen

Code

procedure TForm1.Get9xKey;
var
  Registry: TRegistry;


begin
  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  if (Registry.OpenKeyReadOnly(hiveloc + '\Microsoft\Windows\CurrentVersion')) and Registry.ValueExists('Version') then
  begin
    if Registry.ValueExists('ProductKey') then
      Memo1.Lines.Add(Registry.ReadString('ProductKey'))
    else if Registry.ValueExists('ProductID') then
      Memo1.Lines.Add(Registry.ReadString('ProductID'));
  end;


  Registry.Free;
  if SaveKeysToFile > -1 then
  begin
        Memo2.Lines.Append(Memo1.Lines.GetText);
        Memo2.Lines.Append('');
        if SaveKeysToFile = ListBox1.Items.Count - 1 then
        begin
          SaveFileDone
        end
        else
        begin
          SaveKeysToFile := SaveKeysToFile + 1;
          ListBox1.Selected[SaveKeysToFile] := True;
          Form1.ListBox1Click(Form1);
        end;
  end;
end;

Alles anzeigen

ich weiß jetzt nich genau bei welchen betriebssystmen dieser teil vom skript die keys auslesen kann. "procedure TForm1.Get9xKey" lässt da vermuten das 98 95 gemeint sind aber zählen 2000 und ME auch dazu?

progandy

Das ist Delphi. Und der 2000/ME Key wird wie der XP Key ausgelesen ?
9x ist für 95 und 98

.::Mignon::.

@progandy: das die func in meinen beispiel win 95 und 98 ausliest ist mir kla. eigentlich wollte ich wissen welche func aus deinem beispiel für me und 2000 zuständig ist.

progandy

Ich denk die GetXPKey. Da steht was von 2000 drin.

**Greenhorn**

Moin Mignon,

Spoiler anzeigen

[autoit]

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.1 beta
; Author: Thorsten Meger <[email='Thorsten.Meger@gmx.de'][/email]> & ...
;
; Script Function:
; Windows XP Information displayed in a GUI
; with Office-Key (only Office XP or 2003 supported)
;
; ----------------------------------------------------------------------------