Notepad
yang sepele ternyata bisa digunakan untuk mengintip serial number/
produk key dari windows seseorang, tidak hanya windows namun juga bisa
dimanfaatkan untuk mengintip Serial Number dari aplikasi microsoft
office 2007
Ketikan script yang panjang dan melelahkan berikut ini…(gak papa itung-itung sambil latihan ngetik script…)
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
| CONST HKEY_LOCAL_MACHINE = &H80000002 CONST SEARCH_KEY = "DigitalProductID" Dim arrSubKeys(4,1) Dim foundKeys Dim iValues, arrDPID foundKeys = Array() iValues = Array() arrSubKeys(0,0) = "Microsoft Windows Product Key" arrSubKeys(0,1) = "SOFTWAREMicrosoftWindows NTCurrentVersion" arrSubKeys(2,0) = "Microsoft Office XP" arrSubKeys(2,1) = "SOFTWAREMicrosoftOffice10.0Registration" arrSubKeys(1,0) = "Microsoft Office 2003" arrSubKeys(1,1) = "SOFTWAREMicrosoftOffice11.0Registration" arrSubKeys(3,0) = "Microsoft Office 2007" arrSubKeys(3,1) = "SOFTWAREMicrosoftOffice12.0Registration" arrSubKeys(4,0) = "Microsoft Exchange Product Key" arrSubKeys(4,1) = "SOFTWAREMicrosoftExchangeSetup" strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "rootdefault:StdRegProv") For x = LBound(arrSubKeys, 1) To UBound(arrSubKeys, 1) oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1), SEARCH_KEY, arrDPIDBytes If Not IsNull(arrDPIDBytes) Then call decodeKey(arrDPIDBytes, arrSubKeys(x,0)) Else oReg.EnumKey HKEY_LOCAL_MACHINE, arrSubKeys(x,1), arrGUIDKeys If Not IsNull(arrGUIDKeys) Then For Each GUIDKey In arrGUIDKeys oReg.GetBinaryValue HKEY_LOCAL_MACHINE, arrSubKeys(x,1) & "" & GUIDKey, SEARCH_KEY, arrDPIDBytes If Not IsNull(arrDPIDBytes) Then call decodeKey(arrDPIDBytes, arrSubKeys(x,0)) End If Next End If End If Next MsgBox("Selesai") Function decodeKey(iValues, strProduct) Dim arrDPID arrDPID = Array() For i = 52 to 66 ReDim Preserve arrDPID( UBound(arrDPID) + 1 ) arrDPID( UBound(arrDPID) ) = iValues(i) Next Dim arrChars arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9") For i = 24 To 0 Step -1 k = 0 For j = 14 To 0 Step -1 k = k * 256 Xor arrDPID(j) arrDPID(j) = Int(k / 24) k = k Mod 24 Next strProductKey = arrChars(k) & strProductKey If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey Next ReDim Preserve foundKeys( UBound(foundKeys) + 1 ) foundKeys( UBound(foundKeys) ) = strProductKey strKey = UBound(foundKeys) MsgBox strProduct & vbNewLine & vbNewLine & foundKeys(strKey) End Function |
Fyuuh…….jika sudah selesai mengetikan code/script diatas simpan file dengan format .vbs, untuk namanya terserah anda saja, bisa ngintip.vbs atau kembangkenyot.vbs terserah anda deh, yang penting formatnya .vbs, dan jangan lupa untuk file typenya pillih All Files ya….
Jika
sudah copy file .vbs yang baru saja anda buat tadi kedalam flash disk,
lalu beranjaklah untuk mencari komputer yang akan anda intip serial
numbernya, atau bisa juga komputer anda sendiri untuk latihan, double
klik file tersebut
0 comments:
Post a Comment