Cara Install OS Linux Di Android

Halloo all lama nih ga up date, beberapa waktu lalu saya menemukan hal yang menurut saya menarik dari kawan saya, ya itu memasukkan linux ke dalam handphone

silahkan di simak dan di coba ya 

Backtrack adalah salah satu OS pentesting yang banyak diminati, baik oleh para pemula maupun orang yang sudah lama bergelut di dunia hacking. Karena aplikasi didalamnya sudah lengkap dengan tools-tools hacker, serta tutorialnya pun sudah banyak menyebar di internet.

Pada awalnya backtrack hanya dikhususkan untuk pc/laptop, tapi seiring perkembangan gadget/smartphone yang sangat cepat, sekarang backtrack sudah bisa dijalankan di smartphone yang ber os android.

saya sudah coba sendiri tutorial dibawah, yang saya himpun dari internet, dan melakukan sedikit modifikasi

Dalam eksperimen ini saya menggunakan hp lenovo s880

sekarang mari kita langsung bereksperimen

spesifikasi minimum

1. Hp android dengan kapasitas minimum 1Ghz prosesor

2. Ram minimum 512 Mb

3. Ponsel yang Telah di root

4. Sdcard dengan minimal 3.5 Gb free

tools yang dibutuhkan

• s880 yang sudah di root
• Complete Linux Installer ( Download )
• Linux for android (ubuntu, debian, backtrack), bisa didownload dari complete linux atau langsung download di web nya linux on android atau download di sini :
  part 1
  part 2
  part 3
•  
  BusyBox ( Download )
•  
  Terminal Emulator ( Download )
•  
  Android Vnc Viewer ( Download )

1. install semua tools diatas
2. gabungkan ke 3 file part1, part2, dan part 3 tsb dengan 7zip atau winrar
3. extract, dan akan mendapatkan file sebagai berikut : 
   
4. copy ke sd card, buat folder bt5 ( lihat gambar diatas )
5. jalankan linux installer 
   
6. launch
   
7. pilih settings dan isi seperti gambar dibawah ini, pilih image dengan cara sentuh tanda ( ... )
   
8. pilih bt5.img
   
9. akan tampil seperti ini, dan save changes
   
10. selanjutnya pilih bt5 yang tadi kita buat, dan pilih START LINUX
    
11. akan tampil seperti ini dalam TERMINAL
    
12. ketik perintah sh bt
    
13. ketik y dan akan muncul seperti ini
    
14. setelah muncul tulisan root@localhost:~#
15. buka aplikasi Android Vnc Viewer dan isi seperti gambar berikut
    
16. untuk password, isi : root
17. port: 5901, color format : 24-bit
    
18. scrol sampai bawah, ikuti seperti gambar, dan pilih CONNECT
    
19. lalu akan tampil seperti berikut
    
20. backtrack siap dijalankan
    

Selamat Mencoba dan Berkreasi

berikut beberapa blog yang memiliki artikel yang sama :

fapriandarossyramadhan.blogspot.com 

uniat312.blogspot.com 

CARA MERUBAH FORMAT FILE VIDEO DENGAN MENGGUNAKAN (TVC) TOTAL VIDEO CONVERTER

Posting ini atas permintaan teman saya yang masih newbie (sama si sama gue).
cara merubah format video dengan menggunakan Total Video Converter

langkah pertama jika belum ada aplikasi Total Video Converter silahkan klik disini

instal Total Video Converter dan Register

setelah semua sudah siap baru kita mulai mengconvert

1. Buka Aplikasi Total Video Converter (TVC) tersebut
hingga muncul tampilan utama

2. Kemudian klik New Taks yang berada di pojok kiri atas atau dengan short cut alt+N hingga tampilan berubah menjadi seperti berikut

3. Cari File yang akan di convert setelah itu klik open hingga muncul tampilan sebagai berikut

4.Pilih dan klik Video File

5. Pilih format Video yang kita inginkan saya memberi contoh adalah dengan format MP4 maka tampilan seperti ini

6. Kemudian klik Convert Now yang ada di sebelah tombol New Taks

sehingga tampilan menjadi seperti ini

7. Tunggu hingga Proses Selesai

sekian Selamat Mencoba

Total Video Converter

Cara mengotomatisasi Microsoft Excel dari Visual Basic

Ada dua cara untuk mengontrol server Otomatisasi: dengan menggunakan ikatan terbaru atau ikatan lama. Dengan ikatan terbaru, metode tidak dibatasi hingga pengoperasian dan server Otomatisasi dinyatakan sebagai Objek. Dengan ikatan lama, aplikasi Anda mengetahui pada waktu-desain jenis tepat dari objek yang akan berkomunikasi, dan dapat menyatakan objeknya sebagai jenis khusus. Sampel ini menggunakan ikatan lama, yang dianggap lebih baik dalam banyak kasus karena memberikan performa yang lebih baik dan jenis keamanan yang lebih baik.

Untuk ikatan awal pada server Otomatisasi, Anda harus mengatur referensi pada perpustakaan jenis server tersebut. Dalam Visual Basic, ini dilakukan melalui kotak dialog Referensi yang ditemukan di bawah menu Projek | Referensi. Untuk sampel ini, Anda harus menambah referensi ke perpustakaan jenis untuk Excel sebelum Anda dapat menjalankan kode. Baca langkah di bawah ini mengenai cara menambah referensi.

Membuat Sampel Otomatisasi

1. Mulai Visual Basic dan buat projek Standard EXE yang baru. Form1 dibuat secara default.
2. KlikProjek kemudian klik Referensi. Kotak dialog Referensi muncul. Gulir daftar ke bawah hingga Anda menemukan perpustakaan objek Microsoft Excel, kemudian pilih item untuk menambahkan referensi pada Excel. Apabila perpustakaan objek yang benar untuk versi Excel Anda tidak muncul dalam daftar, pastikan versi Excel Anda terinstal dengan benar.

Catatan
* Apabila Anda sedang mengotomatisasi Microsoft Office Excel 2007, perpustakaan jenis muncul sebagai Perpustakaan Objek Microsoft Excel 12.0 dalam daftar Referensi.
* Apabila Anda sedang mengotomatisasi Microsoft Office Excel 2003, perpustakaan jenis muncul sebagai Perpustakaan Objek Microsoft Excel 11.0 dalam daftar Referensi.
* Apabila Anda sedang mengotomatisasi Microsoft Excel 2002, perpustakaan jenis muncul sebagai Perpustakaan Objek Microsoft Excel 10.0 dalam daftar Referensi
* Apabila Anda sedang mengotomatisasi Microsoft Excel 2000, perpustakaan jenis muncul sebagai Perpustakaan Objek Microsoft Excel 9.0 dalam daftar Referensi.
* Apabila Anda sedang mengotomatisasi Microsoft Excel 97, perpustakaan jenis muncul sebagai Perpustakaan Objek Microsoft Excel 8.0 dalam daftar Referensi
3. Klik OK untuk menutup kotak dialog Referensi.
4. Tambah CommandButton pada Form1.
5. Dalam jendela kode untuk Form1, masukkan kode berikut:

--------------------****************************----------------------------------

Option Explicit

Private Sub Command1_Click()
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range


'Pada Galat GoTo Err_Handler

' Mulai Excel dan dapatkan objek Aplikasi.
Set oXL = CreateObject("Excel.Application")
oXL.Visible = True

' Dapatkan buku kerja yang baru.
Set oWB = oXL.Workbooks.Add
Set oSheet = oWB.ActiveSheet

' Tambah header tabel dengan cara sel per sel.
oSheet.Cells(1, 1).Value = "First Name"
oSheet.Cells(1, 2).Value = "Last Name"
oSheet.Cells(1, 3).Value = "Full Name"
oSheet.Cells(1, 4).Value = "Salary"


' Format A1:D1 sebagai tebal, lurus vertikal = tengah.
With oSheet.Range("A1", "D1")
.Font.Bold = True
.VerticalAlignment = xlVAlignCenter
End With

' Buat larik untuk mengatur banyak nilai secara bersamaan.
Dim saNames(5, 2) As String
saNames(0, 0) = "John"
saNames(0, 1) = "Smith"
saNames(1, 0) = "Tom"
saNames(1, 1) = "Brown"
saNames(2, 0) = "Sue"
saNames(2, 1) = "Thomas"
saNames(3, 0) = "Jane"

saNames(3, 1) = "Jones"
saNames(4, 0) = "Adam"
saNames(4, 1) = "Johnson"

' Isi A2:B6 dengan satu larik nilai (Nama Depan dan Belakang).
oSheet.Range("A2", "B6").Value = saNames

' Isi C2:C6 dengan formula relatif (=A2 & " " & B2).
Set oRng = oSheet.Range("C2", "C6")
oRng.Formula = "=A2 & "" "" & B2"

' Isi D2:D6 dengan formula(=RAND()*100000) dan gunakan format.
Set oRng = oSheet.Range("D2", "D6")
oRng.Formula = "=RAND()*100000"
oRng.NumberFormat = "$0.00"

' Kolom AutoFit A:D.
Set oRng = oSheet.Range("A1", "D1")
oRng.EntireColumn.AutoFit

' Manipulasi jumlah variabel kolom untuk Data Penjualan Tigabulanan.
Call DisplayQuarterlySales(oSheet)

' Pastikan Excel terlihat dan memberikan kontrol pengguna
' pada masa usia Microsoft Excel.
oXL.Visible = True
oXL.UserControl = True

' Pastikan Anda mengeluarkan referensi objek.
Set oRng = Nothing
Set oSheet = Nothing
Set oWB = Nothing
Set oXL = Nothing

Exit Sub
Err_Handler:
MsgBox Err.Description, vbCritical, "Error: " & Err.Number
End Sub

Private Sub DisplayQuarterlySales(oWS As Excel.Worksheet)
Dim oResizeRange As Excel.Range
Dim oChart As Excel.Chart
Dim iNumQtrs As Integer
Dim sMsg As String
Dim iRet As Integer

' Tentukan berapa banyak bagian untuk menampilkan data.
For iNumQtrs = 4 To 2 Step -1
sMsg = "Enter sales data for" & Str(iNumQtrs) & " quarter(s)?"
iRet = MsgBox(sMsg, vbYesNo Or vbQuestion _
Or vbMsgBoxSetForeground, "Quarterly Sales")
If iRet = vbYes Then Exit For
Next iNumQtrs


sMsg = "Displaying data for" & Str(iNumQtrs) & " quarter(s)."
MsgBox sMsg, vbMsgBoxSetForeground, "Quarterly Sales"

' Memulai pada E1, isi header untuk jumlah kolom yang dipilih.
Set oResizeRange = oWS.Range("E1", "E1").Resize(ColumnSize:=iNumQtrs)

oResizeRange.Formula = "=""Q"" & COLUMN()-4 & CHAR(10) & ""Sales"""

' Ubah Orientasi dan properti WrapText untuk header.
oResizeRange.Orientation = 38
oResizeRange.WrapText = True

' Isi warna interior dari header.
oResizeRange.Interior.ColorIndex = 36

' Isi kolom dengan formula dan gunakan format angka.
Set oResizeRange = oWS.Range("E2", "E6").Resize(ColumnSize:=iNumQtrs)
oResizeRange.Formula = "=RAND()*100"
oResizeRange.NumberFormat = "$0.00"

' Gunakan batas pada data Penjualan dan header.
Set oResizeRange = oWS.Range("E1", "E6").Resize(ColumnSize:=iNumQtrs)
oResizeRange.Borders.Weight = xlThin

' Tambah formula Total untuk data penjualan dan gunakan batas.
Set oResizeRange = oWS.Range("E8", "E8").Resize(ColumnSize:=iNumQtrs)
oResizeRange.Formula = "=SUM(E2:E6)"
With oResizeRange.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
End With

' Tambahkan Bagan untuk data yang dipilih
Set oResizeRange = oWS.Range("E2:E6").Resize(ColumnSize:=iNumQtrs)
Set oChart = oWS.Parent.Charts.Add
With oChart
.ChartWizard oResizeRange, xl3DColumn, , xlColumns
.SeriesCollection(1).XValues = oWS.Range("A2", "A6")
For iRet = 1 To iNumQtrs
.SeriesCollection(iRet).Name = "=""Q" & Str(iRet) & """"
Next iRet
.Location xlLocationAsObject, oWS.Name
End With

' Pindahkan bagan sehingga tidak menutupi data Anda.
With oWS.Shapes("Chart 1")
.Top = oWS.Rows(10).Top
.Left = oWS.Columns(2).Left

End With

' Kosongkan referensi.
Set oChart = Nothing
Set oResizeRange = Nothing

End Sub

-------------------------------********************************--------------------

6. Tekan F5 untuk menjalankan projek.

Untuk informasi lebih lanjut mengenai Otomatisasi Office, kunjungi situs dukungan Pengembangan Microsoft Office pada:

http://support.microsoft.com/ofd (http://support.microsoft.com/ofd)

Koneksi Database pada Microsoft Visual Basic 6

Dalam Sistem Informasi, kita mengenal Database. Dalam implementasinya dalam bentuk program, Database haruslah terkoneksi dengan aplikasi yang kita buat. Database dan aplikasi yang digunakan beragam.
Misalnya yang banyak digunakan:
Sistem Informasi berbasis Web (PHP + MYSQL)
Berbasis Desktop (Delphi + SQL Server , Visual Basic + Ms. Access, dll).
Pada tutorial kali ini, saya akan membahas tentang Visual Basic yang dikoneksi dengan Ms. Access.
Untuk dasar, kita buat Sistem informasi kecil-kecilan saja.

1.Untuk langkah pertama, desain sebuah form sederhana seperti pada tampilan di bawah ini.

Dimana ketentuan komponen-komponennya pada Properties sebagai berikut:

Label1   : name = t_nama
                 : caption = NAMA

Label2  : name = t_jamkerja
                 : caption = JAM KERJA

Label3  : name = t_gaji
                 : caption = GAJI /JAM

Label4      : name = t_totgaji
                 : caption = TOTAL GAJI
                 : enable = false

Command1 : name = c_simpan
                   : caption = SIMPAN

Command2 : name = c_hapus
                   : caption = HAPUS 

2.Setelah selesai mendesainnya, kita perlu penambahan komponen untuk menyimpan data dan tabel tampil database kita. Caranya, klik Menu Project => Components atau bisa dengan menekan Ctrl + T. Kemudian centang Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB), seperti yang terlihat di bawah ini.

3.Klik OK, Kemudian pada Toolbar komponen, terdapat komponen baru, yang kita gunakan adalah DataGrid dan Adodc

4.Letakkan komponen tersebut di form Anda. Seperti gambar di bawah ini.

5.Setelah kita selesai membuat GUI-nya, langkah berikutnya membuat Database. Disini saya menggunakan Ms. Access.
Buka Ms. Access dan buat Database baru.
Beri nama Databasenya , dengan nama gaji.

6.Buat Tabel baru pada gaji dengan meng-klick Create table in Design view. Seperti di bawah ini.

7.Isikan Field Table dan tipe datanya sebagai berikut, dimana NAMA sebagai Primmary Key-nya. Kemudian simpan dengan nama T_Gaji.

8.Kita kembali ke lembar kerja kita di Visual Basic, Untuk mengkoneksi database yang kita buat tadi. Dalam mengkoneksinya, kita memerlukan Data Environment. Untuk menambahkannya, klik Menu Project => Add Data Environment

9.Setelah di klik, maka akan muncul jendela DataEnvironment1. Pada Connection, Klik Kanan pilih Properties.

10.Maka akan muncul jendela baru Data Link Properties. Pada Tab Provider, pilih Microsoft Jet 4.0 OLE DB Provider. Kemudian pilih Next >>

11.Setelah Next, pada Tab Connection, perhatikan Select or enter a database name : . Kita diminta untuk memasukkan database yang telah kita buat tadi, yakni gaji.

12.Untuk mengetes koneksinya, Klik Test Connection. Apabila sudah benar, maka akan muncul pesan alert berikut.

13.Klik OK, kemudian pada form, Ubah Properties komponen Adodc dan DataGrid tadi pada jendela Properties seperti berikut.
Adodc1 ->Visible = false
DataGrid1 ->DataSourse = DataEnvironment1

14.Tahap selanjutnya adalah untuk penulisan kode scriptnya. Pada general, kita tuliskan script berikut.

Untuk script Tombol SIMPAN, ketikkan script berikut.

Pada Tombol HAPUS, ketikkan script brikut.

Dan Script terakhir untuk form-nya ketika di-load (klik 2x pada form GUI).
Private Sub Form_Load()
Set gajiku = Nothing
        letak = App.Path & "\gaji.mdb"


        With gajiku
            gajiku.ActiveConnection = "Provider=microsoft.jet.OLEDB.4.0;Data source=" & letak & ";Persist security info=false"
            gajiku.CursorLocation = adUseClient
            gajiku.LockType = adLockOptimistic
            gajiku.Source = "select*from t_gaji"
            gajiku.Open
          
            Set DataGrid1.DataSource = gajiku
            DataGrid1.Refresh
        End With
End Sub

Jalankan Program.

copy from :http://blognapibelog.blogspot.com