Windows Product-Key auslesen

[Frabbing]

Ein kleiner Quellcode, um den Windows Product-Key auszulesen:

'
' © Frank Abbing für Paules-PC-Forum
' http://www.paules-pc-forum.de/forum/xprofan/
'
$H windows.ph

Declare mem#, memnew#, digits#, x&, pkey$
Dim mem#, 280
Dim memnew#, 280
Dim digits#,100

Clear mem#
Clear memnew#
String digits#, 0 = "BCDFGHJKMPQRTVWXY2346789"
Var path$ = "Software\\Microsoft\\Windows NT\\CurrentVersion"
Var item$ = "DigitalProductID"
Var key& = 0
Var size& = 280
~RegOpenKeyEx($80000002, Addr(path$), 0, $20119, Addr(key&))
~RegQueryValueEx(key&, Addr(item$), 0, 0, mem#, Addr(size&))
If size&<>280
  ~RegCloseKey(key&)

  WhileLoop 24, 0, -1
    x& = 0
    WhileLoop 66, 52, -1
      x& = (x& << 8) + Byte(mem#, &loop)
      Byte mem#, &loop = x& / 24
      x& = x& mod 24
    EndWhile
    Byte memnew#, &loop = Byte(digits#, x&)
  EndWhile

  pkey$=Char$(memnew#, 0, 5) + "-" + Char$(memnew#, 5, 5) + "-" + Char$(memnew#, 10, 5) + "-" + Char$(memnew#, 15, 5) + "-" + Char$(memnew#, 20, 5)
  MessageBox(pkey$, "Ihr Windows Produkt-Key lautet:", 64)

Else

  MessageBox("...konnte leider nicht ermittelt werden.", "Ihr Windows Produkt-Key...", 64)

EndIf

[p. specht]

Aha.. und nach welchen Prinzip funktionieren Key-Generatoren eigentlich?

[AHT]

Nach einem nicht erlaubten Prinzip .

[Frabbing]

Ein Haufen Tools können den Key anzeigen.
Ist ja überall vorhanden und muß nur ausgelesen und in ein lesbares Format gebracht werden.

Auf dem eigenen System ist das gestattet. Aber natürlich nicht auf fremden Systemen!

[AHT]

Wie ein Keygen funktioniert, hat nichts mit dem oben stehenden Code zu tun. Wie das geht, findet man im Netz. Da das aber keine legale Sache ist, sollte man sich damit auch nicht weiter beschäftigen.

[horsthorn]

@Frank
Meinst du, "die in Redmont" haben was dagegen, wenn ich den Code in mein "Auf 1 Blick" intregiere ?

[Frabbing]

Wie gesagt, Horst. Ein Haufen Tools macht das ja auch schon.

[p. specht]

Wieso bitte ist ein Key-Generator was illegales? Ich will doch nur das PRINZIPIELLE Verfahren wissen! Von den im Net zu findenden KegGens sind ohnehin 80% viren- bzw. Trojaner-verseucht. Finger weg - da stimme ich natürlich zu

Zum Verfahren: Es wird vermutlich doch so sein, daß dabei mittels eines geheimen Firmen/Produkt-Hauptschlüssels ein Zufallsschlüssel ergänzt wird auf einen gültigen Code. Schätze ich mal. Vielleicht weiß aber doch wer was näheres: Blowfish? Rijandel? DES? Oder blosses XOR? Quersummen?

[ts-soft]

Hab mir mal erlaubt den Code zu ergänzen, so das es auch unter 64-Bit
Windows funktioniert.

Def @IsWow64Process(2) !"KERNEL32", "IsWow64Process"
Def @GetCurrentProcess(0) !"Kernel32", "GetCurrentProcess"

Proc IsWow64
  Declare Is64&
  @IsWow64Process(@GetCurrentProcess(), Addr(Is64&))
  Return Is64&
EndProc

'
' © Frank Abbing für Paules-PC-Forum
' http://www.paules-pc-forum.de/forum/xprofan/
'
$H windows.ph

Declare mem#, memnew#, digits#, x&, pkey$
Dim mem#, 280
Dim memnew#, 280
Dim digits#,100

Clear mem#
Clear memnew#
String digits#, 0 = "BCDFGHJKMPQRTVWXY2346789"
Var path$ = "Software\\Microsoft\\Windows NT\\CurrentVersion"
Var item$ = "DigitalProductID"
Var key& = 0
Var size& = 280
IfNot IsWow64()
  ~RegOpenKeyEx($80000002, Addr(path$), 0, $20019, Addr(key&))
Else
  ~RegOpenKeyEx($80000002, Addr(path$), 0, $20119, Addr(key&))
EndIf
~RegQueryValueEx(key&, Addr(item$), 0, 0, mem#, Addr(size&))
If size&<>280
  ~RegCloseKey(key&)

  WhileLoop 24, 0, -1
    x& = 0
    WhileLoop 66, 52, -1
      x& = (x& << 8) + Byte(mem#, &loop)
      Byte mem#, &loop = x& / 24
      x& = x& mod 24
    EndWhile
    Byte memnew#, &loop = Byte(digits#, x&)
  EndWhile

  pkey$=Char$(memnew#, 0, 5) + "-" + Char$(memnew#, 5, 5) + "-" + Char$(memnew#, 10, 5) + "-" + Char$(memnew#, 15, 5) + "-" + Char$(memnew#, 20, 5)
  MessageBox(pkey$, "Ihr Windows Produkt-Key lautet:", 64)

Else

  MessageBox("...konnte leider nicht ermittelt werden.", "Ihr Windows Produkt-Key...", 64)

EndIf

PS: Die verwendete API erfordert Vista oder höher, sollte man vielleicht
noch eine Abfrage einbauen (bin gerade zu faul )

Gruß
Thomas

[horsthorn]

PS: Die verwendete API erfordert Vista oder höher, sollte man vielleicht
noch eine Abfrage einbauen (bin gerade zu faul )

Das heißt, unter Vista, also XP oder weniger müsste dann der Code von Frank in unveränderter Form aufgerufen werden ?

Könnte mal jemand, der Win-7 64-Bit installiert hat, "Auf 1 Blick 2.80" testen ?
Danke im Voraus

[Frabbing]

Hab nur 32 Bit, Horst.

@Thomas: Wenn du Flag $100 unter 32 Bit zusätzlich setzt, funktioniert der Code auch. Die zusätzlich Abfrage ist dann also unnötig, oder? Hab den Flag mal in meinen Code übernommen.

@Horst: Absturz der neuen Version.

[ts-soft]

Zitat von Frabbing

@Thomas: Wenn du Flag $100 unter 32 Bit zusätzlich setzt, funktioniert der Code auch. Die zusätzlich Abfrage ist dann also unnötig, oder? Hab den Flag mal in meinen Code übernommen.

Hatte ich gar nicht getestet, sondern habe einfach das logische gemacht .
Funktioniert anscheinend in alle Richtungen, also auch 64-Bit auf 64-Bit, was
Ihr ja nicht testen könnt. Hab mir wieder mehr Arbeit gemacht als nötig, war
aber auch zu Faul ein 32-Bit Windows zum Testen zu starten.

Gruß
Thomas

[Frabbing]

Hab den Code mal in ein Minitool gepackt. Zu finden als "WKey" auf meiner Webpage: Webpage Frabbing

[Frabbing]

Die Druckfunktion ist nur sehr rudimentär. Druckt sie den irgendwo gar nicht?

[p. specht]

Welche Druckfunktion?