다음 코드를 사용하여 VBScript 스크립트 파일을 만듭니다. 파일을 .vbs 확장자로 저장합니다(예: ProductKey.vbs – 파일을 두 번 클릭하기만 하면 됩니다. 불법 복제된 창이 있는 경우 공백이 표시됩니다! 그러나 정품 Windows가 있는 경우 제품 키를 볼 수 있습니다.
암호:
설정 WshShell = CreateObject("WScript. 껍데기")
MsgBox ConvertToKey(WshShell. RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
함수 ConvertToKey(키)
상수 키 오프셋 = 52
나는 = 28
문자 = "BCDFGHJKMPQRTVWXY2346789"
하다
현재 = 0
x = 14
하다
쿠르 = 쿠르 * 256
Cur = 키(x + KeyOffset) + Cur
키(x + KeyOffset) = (Cur \ 24) 및 255
Cur = Cur Mod 24
x = x -1
루프 동안 x >= 0
나는 = 나는 -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
(((29 – i) Mod 6) = 0) 그리고 (i -1) 다음
나는 = 나는 -1
KeyOutput = "-" & KeyOutput
종료
루프 동안 i >= 0
ConvertToKey = 키 출력
기능 종료