Perl Google Hacker

[Suicide]

#!/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%7 C.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+cm d.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 :)";

}

[locos]

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 :?

[Suicide]

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