Aflæse W10 nøglen gratis?

Software d.  11. oktober. 2020, skrevet af BrianTaylor
Vist: 1265 gange.

BrianTaylor
 
Erfaren rotte
Tilføjet:
11-10-2020 20:40:48
Svar/Indlæg:
68/31

Jeg har en HDD som kommer fra en bærbar, da bærbaren døde fuldkommen, ville jeg gerne trække W10 nøglen ud.

Jeg har forsøgt med ProduKey, men den kan ikke finde ud af og læse fra anden HDD ud over min hoved/ min egen nøgle. Recover Keys er forsgøt, men jeg betaler ikke mere end koster og køre en billig nøgle, for noget jeg skal bruge en gang.

Er der nogen som kender en gratis version, om det så er trial version, som dur til denne opgave?

MazdaMadsen
 
Moderator
Tilføjet:
11-10-2020 21:05:31
Svar/Indlæg:
5039/109

Men selvom du får den ud, så kan den alligevel ikke bruges. Den er bundet til bundkortet fra den døde bærbar, og du kan ikke aktivere en anden windows 10 med nøglen.



BrianTaylor
 
Erfaren rotte
Tilføjet:
11-10-2020 22:04:06
Svar/Indlæg:
68/31

Nå, underligt, har 3 maskiner her hjemme som køre på døde bærbar nøgler... Så tænker jeg prøver lykken med endnu en ;)



Svaret blev redigeret 1 gang, sidst af BrianTaylor d. 11-10-2020 22:04:24.


krikke
 
Elitebruger
Tilføjet:
12-10-2020 04:57:36
Svar/Indlæg:
2335/16

Ikke nødvendigvis

MazdaMadsen skrev d. 11-10-2020 21:05:31

Men selvom du får den ud, så kan den alligevel ikke bruges. Den er bundet til bundkortet fra den døde bærbar, og du kan ikke aktivere en anden windows 10 med nøglen.

 



krikke
 
Elitebruger
Tilføjet:
12-10-2020 04:58:57
Svar/Indlæg:
2335/16


deaddevil
 
Superbruger
Tilføjet:
12-10-2020 18:54:13
Svar/Indlæg:
478/75

ved ikke kan du kan bruge AIDA 64 til den opgave. 

https://www.aida64.com/downloa...



gasolin
 
Elitebruger
Tilføjet:
13-10-2020 15:07:32
Svar/Indlæg:
5506/640

 

MazdaMadsen skrev d. 11-10-2020 21:05:31

Men selvom du får den ud, så kan den alligevel ikke bruges. Den er bundet til bundkortet fra den døde bærbar, og du kan ikke aktivere en anden windows 10 med nøglen.

windows 7-8 nøgle,key virker med nyt bundkort

https://www.howtogeek.com/2660...

 



Pappasmirf
 
Elitebruger
Tilføjet:
14-10-2020 12:42:07
Svar/Indlæg:
56/7

Hmm. Brug det her og gem som .vbs

 

Option Explicit 
Dim objshell,path,DigitalID, Result 
Set objshell = CreateObject("WScript.Shell") 
'Set registry key path 
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 
'Registry key value 
DigitalID = objshell.RegRead(Path & "DigitalProductId") 
Dim ProductName,ProductID,ProductKey,ProductData 
'Get ProductName, ProductID, ProductKey 
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName") 
ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID") 
ProductKey = "Installed Key: " & ConvertToKey(DigitalID) 
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 
'Show messbox if save to a file 
If vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then 
Save ProductData 
End If 
'Convert binary to chars 
Function ConvertToKey(Key) 
Const KeyOffset = 52 
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert 
'Check if OS is Windows 8 
isWin8 = (Key(66) \ 6) And 1 
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4) 
i = 24 
Maps = "BCDFGHJKMPQRTVWXY2346789" 
Do 
Current= 0 
j = 14 
Do 
Current = Current* 256 
Current = Key(j + KeyOffset) + Current 
Key(j + KeyOffset) = (Current \ 24) 
Current=Current Mod 24 
j = j -1 
Loop While j >= 0 
i = i -1 
KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput 
Last = Current 
Loop While i >= 0 

If (isWin8 = 1) Then 
keypart1 = Mid(KeyOutput, 2, Last) 
insert = "N" 
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) 
If Last = 0 Then KeyOutput = insert & KeyOutput 
End If 
ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5) 
End Function 
'Save data to a file 
Function Save(Data) 
Dim fso, fName, txt,objshell,UserName 
Set objshell = CreateObject("wscript.shell") 
'Get current user name 
UserName = objshell.ExpandEnvironmentStrings("%UserName%") 
'Create a text file on desktop 
fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt" 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set txt = fso.CreateTextFile(fName) 
txt.Writeline Data 
txt.Close 
End Function