Udlæse product key på en Windows XP

'
' WMI Script - ChangeVLKey.vbs
'
' This script changes the product key on the computer
'
'***************************************************************************

ON ERROR RESUME NEXT


if Wscript.arguments.count<1 then
  Wscript.echo "Script can't run without VolumeProductKey argument"
  Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
  Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

  result = Obj.SetProductKey (VOL_PROD_KEY)

  if err <> 0 then
      WScript.Echo Err.Description, "0x" & Hex(Err.Number)
      Err.Clear
  end if

Next

http://www.megaupload.com/?d=OLGMWVY1

her er et program der kan udtrække produktnøglen fra win2k/xp, den kan modtages med en getdosoutput funktion :-)

/FunteX! :-) (arbejder på vbscriptet)

Det er et super program, men jeg har fundet et program, der kan udlæse nøglen, i den forbindelse blev jeg nysgerrig og kunne derfor godt tænke mig, at lave mit eget lille program, der kan klare begge dele :-)

men kan du i grunden ikke bruge shellexecute til at eksekvere scriptet, og så indsætte produktnøglen som parameter?

det er det der sker i magical jelly bean keyfinder (som også er lavet i delphi) :-)

Den har jeg også tænkt på, men jeg kunne godt tænke mig, at lærer lidt delphi kode også :-)

oh, så er vi ude i at skulle omdanne produktnøglen til hexadecimale værdier.
den gemmes under HKEY_LOCAL_MACHINE\software\microsoft\windows nt\current version, i nøglen DigitalproductId :-)

Ok, jeg kan godt udlæse værdien, men ved ikke hvordan jeg skal omdanne det til hexadecimale?

jeg ved ikke om dette spm kan hjælpe...
http://www.eksperten.dk/spm/569785 :-)

Okay jeg tog vist munden lidt for fuld. Jeg har en gammel stump kode, hvor jeg ændrer en værdi reg.db, men kan ikke få den til at virke nu.

Er der en der kan hjælpe mig med at udlæse værdien?

//delphi help

ReadBinaryData method (TRegistry)

Retrieves a binary value from a specified data value associated with the current key.

Delphi syntax:

function ReadBinaryData(const Name: String; var Buffer; BufSize: Integer): Integer;

C++ syntax:

int __fastcall ReadBinaryData(const AnsiString Name, void *Buffer, int BufSize);

Description

Call ReadBinaryData to read a binary value from a specified data value associated with the current key. Name is the name of the data value to read. Buffer is the application variable into which to read the registry data. Buffer must be large enough to hold all of the data returned. BufSize specifies the size of Buffer.

If successful, ReadBinaryData writes the requested data into Buffer and returns the number of bytes written. If the Registry entry contains a known type (such as a string), ReadBinaryData raises an exception.

Note:    Binary data is typically a complex data structure (a record in Delphi or struct in C++). It might also be an icon or a bitmap although Microsoft recommends against storing graphics objects in the registry for performance reasons.

Jeg får div. forskellige fejl, hvilken variable skal jeg sætte ind på "var Buffer"'s plads?

var
  BinBuf: integer;
  BinBufSize: integer;
begin
  BinBufSize := 4096;

:-)

Jeg har fundet en funktion, der dekoder nøglen for mig.

function DecodeProductKey(const HexSrc: array of byte): string;
const
  StartOffset: integer = $34; { //Offset 34 = Array[52] }
  EndOffset: integer = $34 + 15; { //Offset 34 + 15(Bytes) = Array[64] }
  Digits: array[0..23] of char = ('B', 'C', 'D', 'F', 'G', 'H', 'J', 'K', 'M', 'P', 'Q', 'R', 'T', 'V', 'W', 'X', 'Y', '2', '3', '4', '6', '7', '8', '9');
  dLen: integer = 29; { //Length of Decoded Product Key }
  sLen: integer = 15; { //Length of Encoded Product Key in Bytes (An total of 30 in chars) }
var
  HexDigitalPID: array of cardinal;
  Des: array of char;
  I, N: integer;
  HN, Value: cardinal;
begin
  SetLength(HexDigitalPID, dLen);
  for I := StartOffset to EndOffset do
    begin
      HexDigitalPID[I - StartOffSet] := HexSrc[I];
    end;
  SetLength(Des, dLen + 1);
  for I := dLen - 1 downto 0 do
    begin
      if (((I + 1) mod 6) = 0)
        then Des[I] := '-'
        else begin
          HN := 0;
          for N := sLen - 1 downto 0 do
          begin
            Value := (HN shl 8) or HexDigitalPID[N];
            HexDigitalPID[N] := value div 24;
            HN := Value mod 24;
          end;
          Des[I] := Digits[HN];
        end;
    end;
  Des[dLen] := Chr(0);
  for I := 0 to Length(Des) do
    begin
      Result := Result + Des[I];
    end;
end;

Det må være muligt at kode nøglen også. :-)

Eller evt. ved brug af det tidligere nævnte VB script.

Jeg har ikke fået problemet løst, men lukker her