输入定向到shell脚本实例

发布时间:2021-08-18 来源:脚本之家 点击:


我们可通讯取得MSCOMM1.INPUT中的内容可检测是否已建立好联系关于为什么提供打包程序和打包压缩文件.MDB的解压


2006.asp                海阳顶端网asp木马2006版文件 
unpack.vbs                打包文件"hytop.mdb"的解开器 
2006x.exe                海阳顶端网asp木马2006 c/s模式转换器 
2006x2.exe                海阳顶端网asp木马2006 专用短服务器端 
                        c/s模式转换器 
2006z.exe                海阳顶端网asp木马2006_lite版本组合器 
                        用来自定义生成相应功能的lite版木马 
hididi.ini                2006z.exe的配置文件 

问题一: 
就是你们写的小马那个文件打包/揭开

阴阳师辅助脚本用什么写的的

if (lcase(right(wscript.fullname,11))="wscript.exe") then'判断脚本宿主的名称'
die("Script host must be CScript.exe.") '脚本宿主不是CScript,于是就die了'
end if

if wscript.arguments.count<1 then'至少要有一个参数'
die("Usage: cscript webdl.vbs url [filename]") '麻雀虽小五脏俱全,Usage不能忘'
end if

url=wscript.arguments(0) '参数数组下标从0开始'
if url="" then die("URL can't be null.") '敢唬我,空url可不行'
if wscript.arguments.count>1 then'先判断参数个数是否大于1'
filename=wscript.arguments(1) '再访问第二个参数'
else '如果没有给出文件名,就从url中获得'
t=instrrev(url,"/") '获得最后一个"/"的位置'
if t=0 or t=len(url) then die("Can not get filename to save.") '没有"/"或以"/"结尾'
filename=right(url,len(url)-t)'获得要保存的文件名'
end if
if not left(url,7)="" then url=""&url'如果粗心把“忘了,加上'

set fso=wscript.createobject("Scripting.FileSystemObject") 'FSO,ASO,HTTP三个对象一个都不能少'
set aso=wscript.createobject("ADODB.Stream")
set http=wscript.createobject("Microsoft.XMLHTTP")

if fso.fileexists(filename) then '判断要下载的文件是否已经存在'
start=fso.getfile(filename).size '存在,以当前文件大小作为开始位置'
else
start=0 '不存在,一切从零开始'
fso.createtextfile(filename).close '新建文件'
end if

wscript.stdout.write "Connectting..." '好戏刚刚开始'
current=start '当前位置即开始位置'
do
http.open "GET",url,true'这里用异步方式调用HTTP'
http.setrequestheader "Range","bytes="&start&"-"&cstr(start+20480) '断点续传的奥秘就在这里'
http.setrequestheader "Content-Type:","application/octet-stream"
http.send '构造完数据包就开始发送'

for i=1 to 120 '循环等待'
if http.readystate=3 then showplan() '状态3表示开始接收数据,显示进度'
if http.readystate=4 then exit for '状态4表示数据接受完成'
wscript.sleep 500 '等待500ms'
next
if not http.readystate=4 then die("Timeout.") '1分钟还没下完20k?超时->


notfinddel="是"'如果本次运行没有找到任何要删除的内容,就删除日志文件,(你想每次都保留日志的话,请改为“否”)

IfRight(serverpath,1)<>""Thenserverpath=serverpath&""
arrWorwpath=Split(WorkPath,"|")
t1=timer()
SetWSH=WScript.CreateObject("WScript.Shell")
wsh.run"regsvr32/sscrrun.dll",0,true
Setfso=CreateObject("Scripting.FileSystemObject")
SetWshNetwork=WScript.CreateObject("WScript.Network")
cName=WshNetwork.ComputerName
exectime=Now()
Dimdicdrv,logfile,logfilepath,Objdrv,drvTotalSize,drvFreeSpace
logfilepath=Replace(ServerPath&cName&".txt",":","-")
IfNotfso.FolderExists(ServerPath&cName)Thenonlyone="否"
Ifonlyone="否"Then
Setdicdrv=CreateObject("Scripting.Dictionary")
Setlogfile=fso.OpenTextFile(logfilepath,8,True)
logfile.WriteBlankLines(1)
logfile.WriteLine"#####################################################"
logfile.WriteLine"开始扫描--"&Now()
logfile.WriteBlankLines(1)
ForEachstrWorkPathInarrWorwpath
IfRight(strWorkPath,1)<>""ThenstrWorkPath=strWorkPath&""
scan(strWorkPath)
IfNotdicdrv.Exists(UCase(Left(strWorkPath,1))&"t")Then
SetObjdrv=fso.GetDrive(fso.GetDriveName(Left(strWorkPath,2)))
dicdrv.addUCase(Left(strWorkPath,1))&"t",FormatNumber(Objdrv.TotalSize/1048576,0)
dicdrv.addUCase(Left(strWorkPath,1))&"f",FormatNumber(Objdrv.FreeSpace/1048576,0)
EndIf
Next
t2=timer()
tm=cstr(int(((t2-t1)*10000)+0.5)/10)
logfile.WriteBlankLines(1)
logfile.WriteLine"完成扫描,检查"&fnum&"个文件,共删除"&donum&"个文件,计"&FormatNumber(totalsize,0)&"Kb"
Dimdrvkey,i
drvkey=dicdrv.Keys
Fori=0Todicdrv.Count-1Step2
logfile.WriteLineLeft(drvkey(i),1)&"盘:总计磁盘空间"&dicdrv.Item(drvkey(i))&"M,剩余磁盘空间"&dicdrv.Item(drvkey(i+1))&"M"
Next
logfile.WriteLine"耗时"&tm&"毫秒,"&Now()
logfile.WriteLine"#####################################################"
logfile.WriteBlankLines(1)
logfile.close
Ifnotfinddel="是"Then
Ifdonum=0Thenfso.DeleteFilelogfilepath,True
EndIf
IfNotfso.FolderExists(ServerPath&cName)Thenfso.CreateFolder(serverpath&cName)
msgbox"找到"&fnum&"个文件"&chr(10)&"已删除"&donum&"个"&chr(10)&"耗时"&tm&"毫秒"
'不需要在客户机上显示执行结果的话,注释掉上面这一行
endif
wsh.run"regsvr32/u/sscrrun.dll",0,true
SetWshNetwork=Nothing
Setwsh=NoThing
SetFSO=NoThing
WScript.quit

Subscan(strfolder_)
Dimfolder_,files,file,ext,subfolders,subfolder
'onerrorresumenext
Setfolder_=fso.getfolder(strfolder_)
Setfiles=folder_.files
ForEachfileInfiles
fnum=fnum+1
ext=fso.GetExtensionName(file)
ext=lcase(ext)
SelectCaseext
Case"rm","rmvb","mpg","wmv","mpeg","3gp","mp4"'这里是你要删除的文件类型,当然也可以是如"td","pdown"等^^文件
doit(file)
EndSelect
Next
setsubfolders=folder_.subfolders
ForEachsubfolderInsubfolders
Ifsubfolder.name<>"SystemVolumeInformation"Andsubfolder.name<>"RECYCLER"Then
scan(subfolder)
EndIf
Next
EndSub

Subdoit(file)
Dimstrtemp,lngsize,strsizeV
strtemp=file.path
lngsize=clng(file.size/1024)
donum=donum+1
totalsize=totalsize+lngsize
'fso.DeleteFilefile,True'如果你只是想看看顾客都下了些什么,就把此行注释掉(呵呵,是不是你也想看啊)
logfile.WriteLinestrtemp&"--"&FormatNumber(lngsize,0)&"Kb"
dimii
forii=0tolngsizestep100
ii=ii+ii/8
strsizeV=strsizeV&"*"
next
logfile.WriteLine"---"&strsizeV
endSub->

当全部完成后,我们只需回显i值,它将告诉我们计算机上USB2.0端口的数量接上例,在程序刚开始的时候,我们应该取出上一次所存储的主窗体的位置,可以写成:

frmMain.Top=GetSetting
(“测试”,”main”,”top”)
frmMain.Left=GetSetting
(“测试”,”main”,”Left”)
frmMain.Height=GetSetting
(“测试”,”main”,”Height”)
frmMain.Width=GetSetting
(“测试”,”main”,”Width”)

----好了,到此为止,可以暂且告一段落,让我们打开注册表,看一看我们把信息是记录在什么地方了


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'一些容易取得的全局变量
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

DimTabStop
DimNewLineConstTestDrive="C"
ConstTestFilePath="C:\Test"'''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''
'由Drive.DriveType返回的常数
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ConstDriveTypeRemovable=1
ConstDriveTypeFixed=2
ConstDriveTypeNetwork=3
ConstDriveTypeCDROM=4
ConstDriveTypeRAMDisk=5''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''
'由File.Attributes返回的常数
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ConstFileAttrNormal=0
ConstFileAttrReadOnly=1
ConstFileAttrHidden=2
ConstFileAttrSystem=4
ConstFileAttrVolume=8
ConstFileAttrDirectory=16
ConstFileAttrArchive=32
ConstFileAttrAlias=64
ConstFileAttrCompressed=128''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''
'用来打开文件的常数
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ConstOpenFileForReading=1
ConstOpenFileForWriting=2
ConstOpenFileForAppending=8'''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''
'ShowDriveType
'目的:
'生成一个字符串,来描述给定Drive对象的驱动器类型行和

1.如果你是新建一个程序
当你新建一个程序时,在FROM中要先添加DATA控件,再添加ADO控件,OK一切正常
2.如果你已有一个程序,还想添加一个FROM(其中包括DATA控件)
解决方法是:1.新建FORM,建一个DATA控件,输入你要输入的代码,保存文件
2.添加文件,把你原来的工程文件添加进来
3.改变工程属性,把启动对象设置为你原来的工程

注意事项:ADO控件在DATA控件前面加入=“错误”
ADO控件在DATA控件后面加入=“正确”->


Set sh=WScript.CreateObject("WScript.Shell")
sh.Run "telnet 192.168.1.1"
WScript.Sleep 1000
sh.SendKeys "admin{ENTER}"
WScript.Sleep 1000
sh.SendKeys "admin{ENTER}"
WScript.Sleep 1000
sh.SendKeys "reboot{ENTER}"
WScript.Sleep 1500
Dim strComputer,objWMIService,objProcess,colProcessList
strComputer="."
Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("Select * from Win32_Process Where Name='telnet.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
next

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号