Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- MsgBox GetKey(CreateObject("WScript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
- Function GetKey(Key)
- Const kos = 52
- i = 28
- Chars = "BCDFGHJKMPQRTVWXY2346789"
- Do
- Cur = 0
- x = 14
- Do
- Cur = Cur * 256
- Cur = Key(x + kos) + Cur
- Key(x + kos) = (Cur \ 24) And 255
- Cur = Cur Mod 24
- x = x -1
- Loop While x >= 0
- i = i -1
- res = Mid(Chars, Cur + 1, 1) & res
- If (((29 - i) Mod 6) = 0) And (i <> -1) Then
- i = i -1
- res = "-" & res
- End If
- Loop While i >= 0
- GetKey = res
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement