Bongkar rahasia Notepad

Mengintip serial numbaer windwos dengan 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…??

Ketikan script yang panjang dan melelahkan berikut ini…(gak papa itung-itung sambil latihan ngetik script…)

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) = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"

 

 arrSubKeys(2,0) = "Microsoft Office XP"

 

 arrSubKeys(2,1) = "SOFTWARE\Microsoft\Office\10.0\Registration"

 

 arrSubKeys(1,0) = "Microsoft Office 2003"

 

 arrSubKeys(1,1) = "SOFTWARE\Microsoft\Office\11.0\Registration"

 

 arrSubKeys(3,0) = "Microsoft Office 2007"

 

 arrSubKeys(3,1) = "SOFTWARE\Microsoft\Office\12.0\Registration"

 

 arrSubKeys(4,0) = "Microsoft Exchange Product Key"

 

 arrSubKeys(4,1) = "SOFTWARE\Microsoft\Exchange\Setup"

 

 strComputer = "."

 

 Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default: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

Read More

Apa itu Linux?

Mungkin diantara kita ada yang baru pertama kali mendengar tentang OS linux..:) ada yang bertanya,"apa sih itu linux?apa bagusnya linux dengan Windows?susah gak make linux?" 

yaahh,,pertanyaan ini akan di jawab dalam artikel kali ini..

bekicot :D :D :D

Linux pertama kali ditemukan oleh seorang Mahasiswa Finlandia bernama Linus Torvalds..:) dia adalah penggagas Sistem Operasi Open Source..seperti nama OS nya.nama sitem operasi linux ini di amlbil dari namanya sendiri. seiring pekembangannya linux melahirkan turunannya seperti ubuntu,Slackware,Slax,Fedora,,dll :)hehe..:)

waduh,,dr tadi kita hanya bicara soal linux,,:D truss dmn perbedaan linux dengan Windows? :D

linux adalah sistem operasi yang terbuka source kodenya berbeda dengan windows yang menymbunyikan source kodenya..dengan adanya linux maka semua orang bisa meremastring linux ini,,banyak sekali turununan dari linux seperti linux ubuntu yang banyak pengguna yang telah berhasil meremastering ubuntu ini seperti Edubuntu,Lubuntu,Xubuntu,Blankon buatana asli Indonesia,,:):)

mau tau kelebihan linux?: ):P

cekidot,,dalam dunia virus linux ibarat tameng yang sangat kuad sehingga virus tidak bisa masuk apalagi merusak sistem dalam linux,karena linux tidak mengenal ekstensi .exe seperti halnya windows yang mengenal ekstensi .exe. banyak pengguna OS windows sering berkeluh kesah dengan virus yang masuk ke dalam PC atau laptop mereka,,diantaranya virus telah merusak sistem 32 windows, :D :D sehingga tidak sedikit dari mereka yang meng-install ulang OS walaupun harus mengeluarkan biaya install yang tidak sedikit(bagi kantong orang miskin): D Rp. 100.000.

bukan hanya itu,,linux adalah OS yang banyak digunakan oleh para Hacker untuk meng-hack sesuatu,salah satu linux yang digunakan adalah Backtrack.

kesimpulanya,,linux sangat berbeda dengan windows,,jadi jika anda berminat untuk migrasi ke linux,,silahkan saja,,dan jika anda butuh bantuan penginstalan,,

jika anda orang Gorontalo silahkan hubungi saya :D :D :D

dan tidak lupa saya mengucapkan terimaksih atas kunjungan anda di blog saya ini,, :)

Read More