eSportsKosova - Gaming Community
Si Te shikojm Licensen tone (Serial Key) ne Windows 10 - Printable Version

+- eSportsKosova - Gaming Community (https://esportskosova.com)
+-- Forum: KOMUNITETI (https://esportskosova.com/forum-107.html)
+--- Forum: IT Zone (https://esportskosova.com/forum-24.html)
+---- Forum: PC - Tutoriale/Mesime (https://esportskosova.com/forum-76.html)
+---- Thread: Si Te shikojm Licensen tone (Serial Key) ne Windows 10 (/thread-53793.html)



Si Te shikojm Licensen tone (Serial Key) ne Windows 10 - inL. - 05-24-2025

Si Te shikojm Licensen tone (Serial Key) ne Windows 10

1) Hapim Notepad
2) Bejme Paste Code-n:
Code:
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
[Image: bba4Faz.png]

3) Shkojm 'Save As' dhe tek Filename shkruajm: ProductKey.vbs kurse tek Save As Type selektojm: All Files , dhe ne fund vendin se ku do ta ruajm p.sh: Desktop

[Image: qRl7zxd.png]

4) Ne fund hapim fajllin e ruajtur dhe me pas ne do ta dijm licensen tone.
[Image: EExUcea.png]

Tutorial by inL.