Perl Google Hacker

Code:

---

#!/usr/bin/perl
#
##################################################################################
#                                                                                #
#              w0000000000t <- FrEe-hAcK CrEw -> w0000000000t                  #
#                                                                                #
##################################################################################
#

# -[----------------------------------------------------------------------------]-

use IO::Socket;

print q{
-[----------------------------------------------------------------------]-

    SSSSSS SS  SS SS SSSSS SS SSSSS  SSSSS  <- http://www.free-hack.com
    SS    SS  SS SS SS    SS SS  SS SS    <- Fuck ++++++++++
    SSSSSS SS  SS SS SS    SS SS  SS SSSSS  <- Teamspeak: free-hack.com
        SS SS  SS SS SS    SS SS  SS SS    <- Gr33tz to All FH-User
    SSSSSS SSSSSS SS SSSSS SS SSSSS  SSSSS  <- ehm.. FUCK ++++++++++ xD

-[----------------------------------------------------------------------]-

      Ein simpler GooGle Hacker ...
      (Funktioniert nur mit Windows und dem Besten Browser)
      Auswahl:
      1: search database backup.sql
      2: search dictionary.txt
      3: Go To Diebe
      4: search file on rapidshare
      5: search index / of phpmyadmin
      6: search loginadmin.asp
      7: search front page pvt
      8: search simple login.asp
      9: search the bugged search module of phpnuke
    10: Go to Free-Hack.com
    11: search shell or php backdoor
    12: search admin.txt
    13: search proxy
    14: search files in megaupload
    15: search auth_user_file.txt
    16: search phpBB cookie faking Site
-[----------------------------------------------------------------------]-

};

# Input Selection

print q(
° Einfach auswählen! - Beispiel : 1 oder 2 oder 3 ... 4 sucht es euch aus...
° Option: );
$option = <STDIN>;
chop ($option);


if ($option == 1) {

system ("C:/Programme/Mozilla Firefox/firefox.exe",

"http://www.google.de/search?hl=en&q=%22--+phpMyAdmin+SQL%22+filetype%3Asql&btnG=Cerca+con+Google&meta=")

}elsif ($option == 2) {

system ("C:/Programme/Mozilla Firefox/firefox.exe", "http://www.google.com/search?hl=en&q=allinurl%3Adictionary.txt&btnG=Cerca&meta=")

}elsif ($option == 3) {

system ("C:/Programme/Mozilla Firefox/firefox.exe", "http://www.diebe.org")

}elsif ($option == 4) {

system ("C:/Programme/Mozilla Firefox/firefox.exe",

"http://www.google.com/search?hl=en&lr=&q=site%3Arapidshare.de+.rar%7C.zip%7C.avi%7C.exe%7C.txt%7C.pl%7C.c%7C.php%7C.tgz%7C.gzip%7C.sql%7C.m

db%7C.mp3%7C.3gp&btnG=Search")

}elsif ($option == 5) {

system ("C:/Programme/Mozilla Firefox/firefox.exe", "http://www.google.com/search?hl=en&lr=&q=Index+of+phpMyAdmin&btnG=Search")

}elsif ($option == 6) {

system ("C:/Programme/Mozilla Firefox/firefox.exe", "http://www.google.com/search?hl=en&lr=&q=allinurl%3Aloginadmin.asp&btnG=Search")

}elsif ($option == 7) {

system ("C:/Programme/Mozilla Firefox/firefox.exe",

"http://www.google.com/search?q=ext%3Apwd+inurl%3A%28service+%7C+authors+%7C+administrators+%7C+users%29+%22%23+-FrontPage-%22")

}elsif ($option == 8) {

system ("C:/Programme/Mozilla Firefox/firefox.exe", "http://www.google.it/search?hl=en&q=allinurl%3A%2FLogin.asp&btnG=Search")

}elsif ($option == 9) {

system ("C:/Programme/Mozilla Firefox/firefox.exe",

"http://www.google.it/search?hl=en&q=allinurl%3Amodules.php%3Fname%3DSearch&btnG=Search")

}elsif ($option == 10) {

system ("C:/Programme/Mozilla Firefox/firefox.exe", "http://www.free-hack.com/freehack/")

}elsif ($option == 11) {

system ("C:/Programme/Mozilla Firefox/firefox.exe",

"http://www.google.com/search?q=allinurl:/c99shell.php+%7C+r57shell.php+%7C+shell.php+%7C+cmd.php+%7C+nstshell.php+%7C+backdoor.php+%7C+bdoo

r.php+%7C+simplebackdoor.php+%7C+c99shell.gif+%7C+r57shell.gif+%7C+c99shell.jpg+%7C+r57shell.jpg+%7C+c99shell.png+%7C+r57shell.png&hl=en&lr=

&start=10&sa=N")

}elsif ($option == 12) {

system ("C:/Programme/Mozilla Firefox/firefox.exe", "http://www.google.com/search?hl=en&lr=&q=allinurl%3Aadmin.txt&btnG=Search")

}elsif ($option == 13) {

system ("C:/Programme/Mozilla Firefox/firefox.exe",

"http://www.google.com/search?hl=en&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=%22:80%22+%22:8080%22+%22high+anonymity%22&spell=1")

}elsif ($option == 14) {

system ("C:/Programme/Mozilla Firefox/firefox.exe",

"http://www.google.com/search?hl=en&lr=&q=site%3Amegaupload.com+.rar%7C.zip%7C.avi%7C.exe%7C.txt%7C.pl%7C.c%7C.php%7C.tgz%7C.gzip%7C.sql%7C.

mdb%7C.mp3%7C.3gp&btnG=Search")

}elsif ($option == 15) {

system ("C:/Programme/Mozilla Firefox/firefox.exe",

"http://www.google.com/search?hl=en&lr=&ie=UTF-8&oe=UTF-8&q=allinurl%3Aauth_user_file.txt")

}elsif ($option == 16) {

system ("C:/Programme/Mozilla Firefox/firefox.exe", "http://www.google.de/search?hl=de&q=%22powered+by+phpbb+2.0.10%22&btnG=Suche&meta=")

}else{

print "\n\nAre you stupid?\aErroR UnKnow Option :)";

}

---

bisschen dran gefeilt und euren namen drüber geschrieben :o

Naja funtzen tut der bei mir auch nicht :roll: der hier nicht und von root (der eigendliche coder des scriptes) auch nicht!

findet den path nicht :?

Wozu in den Installationsordner kopieren und wieso "perl.exe" in CMD eingeben. Das klappt auch alles ohne das du das machst!