Posted by : Dimas Bayu Senin, 20 Mei 2013

Mengintip serial number windows dengan notepad

 
mengintip serial number windows dengna notepad – 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, nah penasaran kan…??

mengintip serial number windows

untuk mengintip serial number windows, Ketikan script yang panjang dan melelahkan berikut ini…(gak papa itung-itung sambil latihan ngetik script…)
serial number windows
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.
nah setelah anda berhasil mengintip serial number windows, selanjutnya terserah anda deh tuh serial number windows mau diapain. mau dipakai di komputer anda sendiri atau di buang..? :D

Leave a Reply

Subscribe to Posts | Subscribe to Comments

- Copyright © DATA Fansclub - Skyblue - Powered by Blogger - Designed by Johanes Djogan -