CARA MENYERANG SITE MENGUNAKAN METODE DDOS

Oke sebelum melangkah lebih jauh,kita lihat dulu apa itu DDOS attack
DDOS >> Denial Distribute of services
____________________________________________________________________
Sedikit Penjelasan mengenai Kata iNi ..
Serangan DDOS ( Denial Distribute of services ) Attack, mungkin adalah serangan yang paling cukup simple di lakukan dengan efek sangat berbahaya bagi korban.
Website teman saya Juga Pernah Mengalami Hal Yang sama, dan membuat servernya rusak
jika website anda mengalami serangan ini effectnya situs nya tidak bisa di akses selama beberapa jam. (tergantung dari attacker, berapa lama yang dia mau) Seharian juga bisa, asal jangan pake Angela.c, bisa down 1 server.

caranya cukup sederhana, cukup cari tau IP web target.
bisa menggunakan command prompt bagi pengguna windus.
ketik :

ping targetku[dot]com <<<

sample disitu udah bisa liat IP web target. kalau sudah dapat IP nya, ketikkan
ping SITE-IP -l 39999 -n 10000000 -w 0.00001

mangsud nya gini :
n = jumlah Besarnya Dos Silahkan Ubah nilai “10000000″ dengan yang diinginkan .
SITE-IP= Ganti teks dengan alamat ip dari situs target..
-W 0,00001 = Ini adalah waktu menunggu setelah satu serangan ping.

CATATAN: Jangan Ubah atau Hapus-l,-n dan-w ini command kalau di hapus, penyerangan akan gagal.

TUGAS YAHOO 6

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
TXTKT.SetFocus
TXTKT.Text = “”
TXTJB.Text = “”
TXTHT.Text = “”
TXTTP.Text = “”
TXTNK.Text = “”
TXTJT.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim KT As String
KT = TXTKT.Text
KT = Left(KT, 3)
If KT = “BIM” Then
TXTNK.Text = “BIMA”
TXTHT.Text = “50000”
TXTJB.Text = “16.00”
ElseIf KT = “EKO” Then
TXTNK.Text = “EKONOMI”
TXTHT.Text = “35000”
TXTJB.Text = “19.00”
ElseIf KT = “MUT” Then
TXTNK.Text = “MUTIARA”
TXTHT.Text = “23000”
TXTJB.Text = “17.00”
ElseIf KT = “SEN” Then
TXTNK.Text = “SENJA”
TXTHT.Text = “15000”
TXTJB.Text = “20.00”
End If
TXTJT.SetFocus
End Sub
Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTP.Text = Val(TXTJT.Text) * Val(TXTHT.Text)
End If
End Sub

TUGAS YAHOO 6

Private Sub Command2_Click()
Dim nik As String
nik = Left(txtnik.Text, 3)
If nik = “ADM” Then
txtbg.Text = “ADMINISTRAION”
ElseIf nik = “KEU” Then
txtbg.Text = “ACCOUNTING”
ElseIf nik = “EDP” Then
txtbg.Text = “IT STAF”
ElseIf nik = “SDM” Then
txtbg.Text = “GENERAL AFFAIR”
ElseIf nik = “EBP” Then
txtbg.Text = “SECURITY”
End If
txtth.Text = Mid(txtnik.Text, 4, 4)
nik = Mid(txtnik.Text, 8, 1)
If nik = “A” Then
txtgol.Text = “A”
txtbj.Text = “MANAGER”
txtgp.Text = “3000000”
txttj.Text = “875000”
ElseIf nik = “B” Then
txtgol.Text = “B”
txtbj.Text = “KA. SEKSI”
txtgp.Text = “2500000”
txttj.Text = “525000”
ElseIf nik = “C” Then
txtgol.Text = “C”
txtbj.Text = “STAFF”
txtgp.Text = “2000000”
txttj.Text = “325000”
End If
nik = Right(txtnik.Text, 1)
If nik = “S” Then
txtkds.Text = “S”
txtst.Text = “SINGLE”
ElseIf nik = “M” Then
txtkds.Text = “M”
txtst.Text = “MENIKAH”
ElseIf nik = “D” Then
txtkds.Text = “D”
txtst.Text = “DUDA”
ElseIf nik = “J” Then
txtkds.Text = “J”
txtst.Text = “JANDA”
End If
txttg.Text = Val(txtgp.Text) + Val(txttj.Text)
End Sub

Private Sub Command3_Click()
txtbj.Text = “”
txtbg.Text = “”
txtkds.Text = “”
txtst.Text = “”
txtgp.Text = “”
txttj.Text = “”
txttg.Text = “”
Text9.Text = “”
txtnik.Text = “”
txtth.Text = “”
txtgol.Text = “”
Text9.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Activate()
Text9.SetFocus
End Sub

Private Sub Text9_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub

TUGAS YAHOO 6

Private Sub Cmdbtl_Click()
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Label10.Caption = “”
Label12.Caption = “”
Combo1.SetFocus
End Sub

Private Sub Cmdklr_Click()
End
End Sub
Private Sub Cmdpros_Click()
Dim NQ, NT, NUTS, UAS, NA As Integer
Dim NPM, NM, JUR As String
NQ = Val(Text3.Text)
NT = Val(Text4.Text)
NUTS = Val(Text5.Text)
UAS = Val(Text6.Text)
Label10.Caption = (NQ + NT + NUTS + UAS) / 4
If Val(Label10.Caption) >= 80 Then
Label12.Caption = “A”
ElseIf Val(Label10.Caption) >= 70 Then
Label12.Caption = “B”
ElseIf Val(Label10.Caption) >= 60 Then
Label12.Caption = “C”
ElseIf Val(Label10.Caption) >= 50 Then
Label12.Caption = “D”
ElseIf Val(Label10.Caption) <= 40 Then
Label12.Caption = “E”
End If
End Sub

Private Sub Combo1_Click()
If Combo1.Text = “11100042” Then
Text1.Text = “Fitriyani”
Text2.Text = “Sistem Informasi”
Text3.SetFocus
ElseIf Combo1.Text = “11200077” Then
Text1.Text = “Puspita Dewi”
Text2.Text = “Manajemen Informatika”
Text3.SetFocus
ElseIf Combo1.Text = “11300078” Then
Text1.Text = “Septiana”
Text2.Text = “Teknik Informatika”
Text3.SetFocus
ElseIf Combo1.Text = “11100079” Then
Text1.Text = “Toto Iswanto”
Text2.Text = “Sistem Informasi”
Text3.SetFocus
ElseIf Combo1.Text = “11300082” Then
Text1.Text = “Novi Susanti”
Text2.Text = “Teknik Informatika”
Text3.SetFocus
ElseIf Combo1.Text = “11100084” Then
Text1.Text = “Sukmawati”
Text2.Text = “Sistem Informasi”
Text3.SetFocus
ElseIf Combo1.Text = “11300085” Then
Text1.Text = “Leni Apriyani”
Text2.Text = “Manajemen Informatika”
Text3.SetFocus
ElseIf Combo1.Text = “11300086” Then
Text1.Text = “Nurmalita Sari”
Text2.Text = “Manajemen Informatika”
Text3.SetFocus
ElseIf Combo1.Text = “11300087” Then
Text1.Text = “Heni Lestari”
Text2.Text = “Manajemen Informatika”
Text3.SetFocus
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem “11100042”
Combo1.AddItem “11200077”
Combo1.AddItem “11300078”
Combo1.AddItem “11100079”
Combo1.AddItem “11300082”
Combo1.AddItem “11100084”
Combo1.AddItem “11300085”
Combo1.AddItem “11300086”
Combo1.AddItem “11300087”
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub

TUGAS YAHOO 6

Private Sub cmdbatal_Click()
txtkb.Text = “”
txtnb.Text = “”
txtjs.Text = “”
txtter.Text = “”
txthj.Text = “”
txtth.Text = “”
txtss.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
Dim KB As String
KB = Right(txtkb.Text, 1)
If KB = “T” Then
txtnb.Text = “Tape”
txthj.Text = “275000”
ElseIf KB = “S” Then
txtnb.Text = “Sound System”
txthj.Text = “350000”
ElseIf KB = “C” Then
txtnb.Text = “Compact”
txthj.Text = “480000”
End If
txtjs.SetFocus
End Sub

Private Sub txtjs_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txtter.SetFocus
End If
End Sub

Private Sub txtkb_keypress(keyascii As Integer)
If keyascii = 13 Then
cmdproses.SetFocus
End If
End Sub

Private Sub txtter_keypress(keyascii As Integer)
If keyascii = 13 Then
txtss = Val(txtjs.Text) – Val(txtter.Text)
txtth = Val(txtter.Text) * Val(txthj.Text)
End If
End Sub

TUGAS YAHOO 6

Private Sub Command1_Click()
Dim GP, TJ, PO As Integer
Dim GK, PJ, GD As Long
GP = Val(Txtgp.Text)
TJ = Val(Txttj.Text)
PO = Val(Txtpotong.Text)
GK = (GP + TJ – PO)
Txtgk.Text = GK
PJ = (GK / 10)
Txtpjk.Text = PJ
GD = (GK – PJ)
Txtgd.Text = GD
End Sub

Private Sub Command2_Click()
Txtgp.SetFocus
Txtgp.Text = “”
Txttj.Text = “”
Txtpotong.Text = “”
Txtgk.Text = “”
Txtpjk.Text = “”
Txtgd.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttj.SetFocus
End If
End Sub

Private Sub Txttj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtpotong.SetFocus
End If
End Sub

TUGAS YAHOO 6

Private Sub cdmulangi_Click()
txtawal.SetFocus
txtawal = “”
txtdiskon = “”
txtakhir = “”
End Sub

Private Sub cmdhitung_Click()
txtdiskon.Text = Val(txtawal.Text) * 0.1
txtakhir.Text = Val(txtawal.Text) – Val(txtdiskon.Text)
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub txtawal_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtdiskon.SetFocus
End If
End Sub

TUGAS YAHOO 6

Private Sub chkmiring_Click()
If (chktebal.Value = 1) And (chkmiring.Value = 1) Then
lbl2.FontBold = True
lbl2.FontItalic = True
ElseIf (chktebal.Value = 1) And (chkmiring.Value = 0) Then
lbl2.FontBold = True
lbl2.FontItalic = False
ElseIf (chktebal.Value = 0) And (chkmiring.Value = 1) Then
lbl2.FontBold = False
lbl2.FontItalic = True
ElseIf (chktebal.Value = 0) And (chkmiring.Value = 0) Then
lbl2.FontBold = False
lbl2.FontItalic = False
End If
End Sub

Private Sub chktebal_Click()
If (chktebal.Value = 1) And (chkmiring.Value = 1) Then
lbl2.FontBold = True
lbl2.FontItalic = True
ElseIf (chktebal.Value = 1) And (chkmiring.Value = 0) Then
lbl2.FontBold = True
lbl2.FontItalic = False
ElseIf (chktebal.Value = 0) And (chkmiring.Value = 1) Then
lbl2.FontBold = False
lbl2.FontItalic = True
ElseIf (chktebal.Value = 0) And (chkmiring.Value = 0) Then
lbl2.FontBold = False
lbl2.FontItalic = False
End If
End Sub

Private Sub cmdok_Click()
lbl2.Caption = (Txtnama.Text)
End Sub

Private Sub cmdselesai_Click()
End
End Sub

Private Sub optbiru_Click()
If optbiru.Value = True Then
lbl2.ForeColor = vbBlue
End If
End Sub

Private Sub optmerah_Click()
If optmerah.Value = True Then
lbl2.ForeColor = vbRed
End If
End Sub

TUGAS YAHOO 6

Private Sub Command1_Click()

End Sub

Private Sub Check1_Click()
If Check1.Value = cheked Then
Lbltitle.FontBold = False
Else
Lbltitle.FontBold = True
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = cheked Then
Lbltitle.FontUnderline = False
Else
Lbltitle.FontUnderline = True
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = Checked Then
Lbltitle.FontItalic = True
Else
Lbltitle.FontItalic = False
End If
End Sub

Private Sub Check4_Click()
If Check4.Value = Checked Then
Lbltitle.FontStrikethru = True
Else
Lbltitle.FontStrikethru = False
End If
End Sub

Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
Option3.Value = False
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
Lbltitle.ForeColor = vbGreen
ElseIf Option1.Value = False Then
Lbltitle.ForeColor = vbGreen
End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
Lbltitle.ForeColor = vbYellow
End If
End Sub

Private Sub Option3_Click()
If Option3.Value = True Then
Lbltitle.ForeColor = vbBlue
ElseIf Option3.Value = False Then
Lbltitle.Caption = vbBlue
End If
End Sub

Private Sub Option4_Click()
If Option4.Value = True Then
Lbltitle.ForeColor = vbRed
ElseIf Option1.Value = False Then
Lbltitle.ForeColor = vbRed
End If
End Sub

Cara Memasang Mp3 Pada Word Press

Cara memasang musik MP3 atau memberikan backsound musik di blog WordPress.com semudah memakai Blogspot. Dengan memakai jasa Videokeman judul musik MP3 apa saja dapat Kita pasang di blog WordPress walaupun filenya berformat “.swf“. Di Videokeman sendiri menyediakan ratusan jenis judul lagu mulai dari lagu Barat sampai dengan lagu Indonesia. Dengan kapasitas file yang relatif kecil, Videokeman tidak terlalu memberatkan blog saat di akses. Dan loading juga relatif cepat, sehingga musik tidak putus-putus saat diputar.

Sebelum Anda memasang di blog, ada beberapa syarat yang wajib Anda miliki:

Speaker dan soundcard laptop atau komputer Anda masih berfungsi dengan baik.
Besarkan volume speaker di laptop atau komputer sehingga bisa terdengar di telinga Anda.

Setelah syarat diatas sudah Anda penuhi, kini saatnya proses cara memasang di blog WordPress.com Anda:

Silahkan login ke akun WordPress.com Anda.
Kemudian pergi ke http://videokeman.com/
Pada halaman utama Videokeman, cari lagu yang ingin Anda pasang di blog.

Pasang Musik MP3 Di WordPress.com 1

Sebagai contoh, Saya memilih lugu “Fucking Perfect – Pink“.
Kemudian pada kolom [Rock ‘n Share!], klik icon WordPress.

Pasang Musik MP3 Di WordPress.com 2
Dan akan tampil Post to WordPress, silahkan isi username dan password WordPress Anda.

Pasang Musik MP3 Di WordPress.com 3
Jika proses berhasil, akan ada peringatan Item posted, Thank You.

Pasang Musik MP3 Di WordPress.com 4
Dan langkah selanjutnya adalah pergi ke dashboard WordPress Anda kemudian klik [Posts].
Pada posting yang berjudul Videokeman, klik [Edit].

Pasang Musik MP3 Di WordPress.com 5
Kemudian copy kode yang tampil di area Visual sesuai contoh dibawah.

Videokeman (6)

Contoh :

[g1gya width=”300″ height=”44″ src=”http://videokeman.com/music/videokemanplay.swf&#8221; quality=”high” flashvars=”playerID=1&bg=0xffffff&leftbg=0xCA4536&lefticon=0xffffff&rightbg=0xCA4536&rightbghover=0x999999&righticon=0xffffff&righticonhover=0xffffff&text=0xCA4536&slider=0x303030&track=0xFFFFFF&border=0x666666&loader=0xC52C24&autostart=yes&loop=yes&soundFile=http://videokeman.com/dload/nm2/02220511/Pink_-_Fucking_Perfect.vkm” wmode=”transparent” ]

Keterangan :
autostart: ganti “no” jika tidak ingin lagu berputar secara otomatis saat blog diakses.
loop: ganti “no” jika tidak ingin lagu memutar kembali jika habis.
Kemudian pastekan pada widget Text.
Dan klik tombol Save.

Sedikit trick dari Saya, biasanya setelah kita pasang di sidebar tombol playlist akan terlihat. Dan ini bagi Saya sangat mengurangi ketidaknyamanan pembaca. Nah… agar tombol playlist tidak terlihat maka kita atur sedikit lebar dan tinggi dari playlist tersebut.

Kode asli:

[g1gya width=”300″ height=”44″ src=”http://videokeman.com/music/videokemanplay.swf&#8221; quality=”high” flashvars=”playerID=1&bg=0xffffff&leftbg=0xCA4536&lefticon=0xffffff&rightbg=0xCA4536&rightbghover=0x999999&righticon=0xffffff&righticonhover=0xffffff&text=0xCA4536&slider=0x303030&track=0xFFFFFF&border=0x666666&loader=0xC52C24&autostart=yes&loop=yes&soundFile=http://videokeman.com/dload/nm2/020222511/Pink_-_Fucking_Perfect.vkm” wmode=”transparent” ]

Rubah angka yang dicetak merah menjadi angka 1 semua.

Dengan begini pembaca akan bertanya-tanya dimanakah sumber suara berasal… kok tidak ada tombolnya tapi ada suaranya… It’s magic…. Seperti terdengar pada backsound posting ini.

mudah-mudahan bermanfaat untuk sobat wordpress…!