Kayıtlı Windows Lisans Anahtarı Öğrenme

Sistem kurulumu yaparken girmiş olduğunuz 25 karakter uzunluğundaki

xxxxx-xxxxx-xxxxx-xxxxx-xxxxx formatındaki lisans anahtarını herhangi bir sebeple kaybetmiş olabilirsiniz. Bu durumda bu var olan işletim sisteminiz hali hazırda çalışıyor ise bu anahtarı bir kaç saniye içerisinde öğrenebilirsiniz. Bunun için aşağıdaki visual basic script kodunu bir metin belgesine kopyalayıp dosya uzantısını .vbs olacak şekilde ayarlayınız. Ardından bu dosyayı çift tıklayarak çalıştırınız ve karşınızda kurulum esnasında girmiş olduğunuz lisans anahtarı görünecektir.

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function

Set WshShell = CreateObject("WScript.Shell")

MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)

Const KeyOffset = 52

i = 28

Chars = "BCDFGHJKMPQRTVWXY2346789"

Cur = 0

x = 14

Cur = Cur * 256

Cur = Key(x + KeyOffset) + Cur

Key(x + KeyOffset) = (Cur \ 24) And 255

Cur = Cur Mod 24

x = x -1

Loop While x >= 0

i = i -1

KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput

If (((29 - i) Mod 6) = 0) And (i <> -1) Then

i = i -1

KeyOutput = "-" & KeyOutput

End If

Loop While i >= 0

ConvertToKey = KeyOutput

End Function

Ben bunları yapamam hazır dosya yokmu indireyim diyorsanız buyrun. İndirmiş olduğunuz rar dosyası içinden vbs uzantılı dosyayı çıkartın ve çalıştırın

vbs dosyasını indirmek için tıklayınız

Notepad++ programında kodun görünümü

Kodu çalıştırdığımızda aşağıdaki pencere karşımıza gelecek ve Windows lisans anahtarımız görüntülenecektir.

3,663 total views, 4 views today

(Visited 43 times, 19 visits today)

Volkan Koç

Visual Studio c#.net , Visual Basic. Net , Html , php , action script 3 dillerini biliyor. Kişiye özgü takip , otomasyon , muhasebe , stok takip programları yazılır. İletişim :volkankoc2000@gmail.com