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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
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 |
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
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.
7,199 total views, 9 views today