myGully.com - [C++ oder VB] Windows Key Reader?

myGully.com (https://mygully.com/index.php)

- Programmierung (https://mygully.com/forumdisplay.php?f=67)

- - [C++ oder VB] Windows Key Reader? (https://mygully.com/showthread.php?t=2211946)

[C++ oder VB] Windows Key Reader?

Hey,

wollte fragen welchen Code ich bei Button1 eingeben muss, sodass bei Textbox1 der Windows Key (Serial) steht, der gerade benutzt wird.

Danke

Also meine Glaskugel ist zwar mächtig aber nicht allmächtig - um was gehts überhaupt? Du willst den Windows-ProductKey auslesen, ja? Entgegen all meiner Gewohnheit kriegste direkt die Lösung in VB ... auch wenn man befürchten muss dass du damit nur wenig anfangen kannst :

Code:

 '  ##############################################################

 '  #        #

 '  # VBS***** to find the DigitalProductID for your  #

 '  # Microsoft windows Installation and decode it to  #

 '  # retrieve your windows Product Key    #

 '  #        #

 '  # -----------------------------------------------  #

 '  #        #

 '  #  Created by:  Parabellum   #

 '  #        #

 '  ##############################################################

 '

 ' <--------------- Open Registry Key and populate binary data into an array -------------------------->

 '

 const HKEY_LOCAL_MACHINE = &H80000002 

 strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"

 strValueName = "DigitalProductId"

 strComputer = "."

 dim iValues()

 Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 

       strComputer & "\root\default:StdRegProv")

 oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,iValues

 Dim arrDPID

 arrDPID = Array()

 For i = 52 to 66

 ReDim Preserve arrDPID( UBound(arrDPID) + 1 )

 arrDPID( UBound(arrDPID) ) = iValues(i)

 Next

 ' <--------------- Create an array to hold the valid characters for a microsoft Product Key -------------------------->

 Dim arrChars

 arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")

 

 ' <--------------- The clever bit !!! (Decrypt the base24 encoded binary data)-------------------------->

 For i = 24 To 0 Step -1

 k = 0

 For j = 14 To 0 Step -1

  k = k * 256 Xor arrDPID(j)

  arrDPID(j) = Int(k / 24)

  k = k Mod 24

 Next

 strProductKey = arrChars(k) & strProductKey

 ' <------- add the "-" between the groups of 5 Char -------->

 If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey

 Next

 strFinalKey = strProductKey

 '

 ' <---------- This part of the s***** displays operating system Information and the license Key --------->

 '

 strComputer = "."

 Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

 Set colOperatingSystems = objWMIService.ExecQuery _

    ("Select * from Win32_OperatingSystem")

 For Each objOperatingSystem in colOperatingSystems

    strOS   = objOperatingSystem.Caption

    strBuild   = objOperatingSystem.BuildNumber

    strSerial   = objOperatingSystem.SerialNumber

    strRegistered  = objOperatingSystem.RegisteredUser

 Next

 Set wshShell=CreateObject("ws*****.shell")

 strPopupMsg = strOS & vbNewLine & vbNewLine

 strPopupMsg = strPopupMsg & "Build Number:  " & strBuild & vbNewLine

 strPopupMsg = strPopupMsg & "PID:  " & strSerial & vbNewLine & vbNewLine

 strPopupMsg = strPopupMsg & "Registered to:  " & strRegistered & vbNewLine & vbNewLine & vbNewLine

 strPopupMsg = strPopupMsg & "Your Windows Product Key is:" & vbNewLine & vbNewLine & strFinalKey

 strPopupTitle = "Microsoft Windows License Information"

 wshShell.Popup strPopupMsg,,strPopupTitle,vbCancelOnly+vbinformation

 WS*****.Quit

Und um den Kids gleich die Trollgrundlage zu rauben :
[Link nur für registrierte und freigeschaltete Mitglieder sichtbar. Jetzt registrieren...]

/edit:
jagut hast recht.. sry aber ich hasse es wenn ich das wort "kiddy" seh, weil falls ich eins wär (was nicht der fall ist) sollte man die trotzdem nicht beleidigen oder sonstiges weil jeder mal ein kind war.

Du hast den Sinn seiner Aussage nicht verstanden. Es ging nicht um Dich, sondern dass das S***** nicht von ihm stammt.

Zitat:

Zitat von NeX# (Beitrag 21808598)

Interessant dass du dich angesprochen fühlst ... und noch interessanter ist dass du so etwas als Beleidigung interpretierst

hm also ich denke mal das wir beide wissen das dus als beleidigung gemeint hast auch wenn dus jetzt nicht so sagen würdest. und wie schon gesagt ich hatte den letzten satz nicht richtig gelesen, deswegen habe ich gedacht das du mich meinst.

Zitat:

Zitat von NeX# (Beitrag 21809524)

hm also ich denke mal das wir beide wissen das dus als beleidigung gemeint hast

Nö, das "weisst" nur du. Sonst niemand. Denn eine Personengruppenbeschreibung kann definitionsgemäß keine Beleidigung sein - das lernt man eigentlich in der Grundschule.

Zitat:

Zitat von NeX# (Beitrag 21809524)

auch wenn dus jetzt nicht so sagen würdest.

Aha? Was denn überhaupt? Weisst du das eigentlich selbst? Ich bezweifle es; im Übrigen "weiss" das auch sonst niemand. Aber da du scheinbar sehr viel Wissen über alle Dinge dieser Existenz besitzt erleuchtest du uns bestimmt gleich - zumindest hoffe ich das

Zitat:

und wie schon gesagt ich hatte den letzten satz nicht richtig gelesen, deswegen habe ich gedacht das du mich meinst.

Nein, das schreibst du just zum allerersten Mal.

Sry aber du gehst mir voll auf den Sack (das haben nur männliche Menschen). Und du glaubst wohl auch das ein ganz toller bist oder..

Zitat:

Zitat:
Zitat von NeX# Beitrag anzeigen
auch wenn dus jetzt nicht so sagen würdest.
Aha? Was denn überhaupt? Weisst du das eigentlich selbst? Ich bezweifle es; im Übrigen "weiss" das auch sonst niemand. Aber da du scheinbar sehr viel Wissen über alle Dinge dieser Existenz besitzt erleuchtest du uns bestimmt gleich - zumindest hoffe ich das

lies den ganzen satz und dann weißt dus.

und nein, ich habe folgendes nicht zum erstenmal gesagt:

Zitat:

und wie schon gesagt ich hatte den letzten satz nicht richtig gelesen

. Ich habe das gefühl das du eine Leseschwäche hast. Ich empfehle dir zu einem Arzt zu gehen oder ein sogenantes "Buch" kaufst und es dir liest bzw. versuchst zu lesen.