Cum poti afla licenta windows fara aplicatii aditionale.

Afla cheia de licenta a windows-ului tau.

Astazi vreau sa va arat o metoda simpla prin care poti afla cheia de licenta a windows-ului care deja il aveti instalat cu licenta si din diferite motive vreti sa reinstalati windows-ul dar nu mai aveti acea cheie de activare a windows-ului. Sunt multe aplicatii care fac lucrul asta, dar care nu le-as recomanda pentru ca  acele aplicatii colecteaza date despre pc-ul vostru *si nu numai* si le trimit la dezvoltatori cu scopul de a 

inbunatati produsul respectiv si care totusi ar putea crea anumite brese de securitate si sa descoperti ca licenta nu mai functioneaza/nu mai e valabila.

Metoda de astazi este una simpla  in care nu folosim nici o aplicatie aditionala ci doar  tot ce trebuie sa faci este sa copiati codul script de mai jos dupa care să îl plasati într-un document text si sa salvati acest document cu extensia vbs (virtual basic script). Dupa ce ati creat acest document cu extensia vbs si cu codul script introdus in el, nu ramane decat sa dati dublu clik pe el si se va deschide o micuta fereastre pop up cu cheia de licenta a windows-ului care este instalat in acel PC/Laptop.

Cod de copiat.

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

Asta a fost tot, succes la reinstalarea windows-ului.