Sunday, July 6, 2008

Tool Google Hacking

Pada kesempatan ini akan dipaparkan penggunaan mesin pencari informasi Google, untuk mendapatkan informasi yang tersembunyi dan sangat penting. Dimana informasi tersebut tidak terlihat melalui metode pencarian biasa. Kecenderungan penggunaan teknik ini pada awalnya digunakan untuk mendapatkan informasi sebanyak banyaknya kepada target mesin ataupun mendapatkan hak akses yang tidak wajar. Pencarian informasi secara akurat, cepat dan tepat didasari oleh berbagai macam motif dan tujuan, semoga saja paparan ini digunakan untuk tujuan mencari informasi dengan tujuan yang tidak destruktif, tetapi ialah untuk membantu pencarian informasi yang tepat, cepat dan akurat untuk tujuan yang baik dan bermanfaat.




Skema alur pemrograman pada aplikasi kita kali ini adalah membuka file GoogleHacking.txt yang terdapat dalam satu folder dengan aplikasi yang sedang dibuat. File GoogleHacking.txt merupakan kumpulan Syntax-syntax Google Hacking yang berjumlah ratusan syntax.Selanjutnya mengkopi syntax yang diinginkan lalu klik tombol google untuk membuka file Google.html yang telah dimodifikasi (Lihat gambar di atas). Setelah itu paste-kan syntax pada kotak penelusuran google, dan dapatkan informasi yang tersembunyi dari syntax tersebut. Semoga bermanfaat.

Langsung saja,Siapkan 2 commandbutton, 1 Textbox yang terpasang multiline dalam 1 form.

===================================

Tulis kode di bawah ini dalam form1

===================================

'panggil url/Google.html

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 conSwNormal = 1

Private Sub CmdGoogle_Click()

On Error Resume Next ' jika ada kesalahan maka lanjutkan

Dim fso, a, regrun, b, c 'meminta jatah memori

Set fso = CreateObject("Scripting.FileSystemObject") ' menggunakan file scripting object

Set b = fso.GetFile("Google.Html") ' melalui fso untuk mendapatkan file Google.html yang terdapat di dalam satu folder dengan aplikasi ini

'Membuat folder Baru

Set c = fso.CreateFolder("C:\H@CK3RT00L")

c.Attributes = 6 ' memberi attribut folder H@CK3RT00L menjadi hidden

b.Copy ("C:\H@CK3RT00L\Google.Html") ' mlakukan copy file Google.Html ke dalam folder H@CK3RT00L

Set a = fso.GetFile("C:\Google.Html")

b.Attributes = 6

Set regrun = CreateObject("Wscript.shell") 'membuat regrun untuk melakukan perubahan script di registry

regrun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", "C:\H@CK3RT00L\Google.Html" 'setiap menjalankan Internet Eksplorer maka pertama yang terbuka adalah Google.html

ShellExecute hwnd, "open", "C:\H@CK3RT00L\Google.Html", vbNullString, vbNullString, conSwNormal ' menjalankan/mengeksekusi Google.html

End Sub

Private Sub Command1_Click()

End 'tutup

End Sub



Private Sub Form_Load()

lblStatus.Caption = "Copy Syntax Yang Dipilih, Kemudian Klik Tombol Google."

On Error GoTo ErrHandler ' jika terjadi kesalahan maka menuju ErrHandler

Open "GoogleHacking.txt" For Input As #1 'membuka file GoogleHacking.txt yang terdapat dalam satu folder dengan aplikasi ini

Text1.Text = Input(LOF(1), #1)

Close

Exit Sub

ErrHandler: 'membuat pernyataan terjadinya kesalahan

MsgBox "File GoogleHacking.txt Tidak Bisa Dibuka"

End
End Sub
================================

Semoga bermanfaat.
Bagikan

8 comments: