perl script

Discussion in 'PHP' started by genom--, 27 Jul 2006.

  1. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    я написал брутер md5 хэшей на перле теперь вы сможете запречь расшифровкой не свой домашний комп а атакуемый сервер сливать тут http://www.genom-psixoz.narod.ru/md5.pl

    также я еще написал качалку файлов -- она может прикодиться вам если недай ог вы залезли на сервак а на нем нету ни wget-a ни других качалок-- скопируете код в новый файл и заливайте шелл --качать тут http://www.genom-psixoz.narod.ru/wget.pl


    еще я написал скрипт который выдирает из файлов мыла и саписывает их в файл-- пока файлы из которых нужно читать нужно прописывать-- но в ближайшем будущем я его допишу и он будет автоматически сканировать все файлы и выдирать оттуда мыла--- так взломал сервак -- порутал--сапустил скрипт и через 5 минул у тебя готовый к продаже спам лист качайте отсюда http://www.genom-psixoz.narod.ru/e-mail_cut.pl
     
    7 people like this.
  2. hidden

    hidden 7H3 0N3

    Joined:
    23 Apr 2006
    Messages:
    550
    Likes Received:
    332
    Reputations:
    386
    Это ты конечно неплохо написал, проги на перле с окнами, держи плюс, но я сомневаюсь что оконный интерфейс, это то-что надо для отаки на сервер, хотя смотря что ты подразумеваешь под словом "залезли".
    Не проще ли скопировать шэл, вместо этой качалки ;).
    А насчёт выдерания мэилов, так думаю будет проще, + повторяющиеся отсеяться.
    Code:
    #!/usr/bin/perl
    
    if (@ARGV < 1) { print "Usage: script.pl source.txt destination.txt\n"; exit; }
    
    ($src, $dest) = @ARGV;
    
    open(IN, $src) || die "Can't read $src\n";
    read(IN, $buf, -s$src);
    close(IN);
    
    while($buf =~ /\b([\w\d]+\@[\w\d]+\.[\w\d\.]+)\b/g) { $list{"$1"} = ""; }
    
    open(OUT, ">$dest") || die "Can't write $dest\n";
    $, = ';';
    print OUT keys %list;
    close(OUT);
    
     
    2 people like this.
  3. bul.666

    bul.666 булка

    Joined:
    6 Jun 2006
    Messages:
    719
    Likes Received:
    425
    Reputations:
    140
    Если залезли на сервак, то полюбому через шелл... =) Мы залезли, качалок там нет... Придется опятьже через ШЕЛЛ писать твой скрипт, чтобы потом залить шелл... =) Смешно =)
     
    1 person likes this.
  4. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    ну не обязательно ты залез через шелл--вдруг --у них бага на команды-- а качалки нету-- че ты делать будешь??????это к бул666

    лана новый релиз моего псевдо гения как и обещал автоматическая выдиралка e-mail-oв из файлов.-- в качестве параметра использует имя директории---- и проверяет все вложенные файлы и папки--- все коменты внутри скрипта http://www.genom-psixoz.narod.ru/spam-bilder.pl
     
  5. zeppe1in

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

    Joined:
    12 Jul 2006
    Messages:
    343
    Likes Received:
    66
    Reputations:
    18
    Я тоже против окошек.
     
    1 person likes this.
  6. hidden

    hidden 7H3 0N3

    Joined:
    23 Apr 2006
    Messages:
    550
    Likes Received:
    332
    Reputations:
    386
    Нет я не против окошек, когда пишешь утилиту для локального использования, но когда ты зашол через шэл на удалённый сервер, мало того что эту качалку надо как-то поместить на этот сервер, но ищё и после её запуска, любовалься обошком будет только администратор этого сервера ;) :)
     
  7. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    да фиг с ней с качалкой =)
     
    1 person likes this.
  8. zeppe1in

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

    Joined:
    12 Jul 2006
    Messages:
    343
    Likes Received:
    66
    Reputations:
    18
    Ну я это и имел ввиду. Ещо гуёвый эксплойт от рст тоже барахло.
     
  9. da_ff

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

    Joined:
    11 Jul 2006
    Messages:
    118
    Likes Received:
    22
    Reputations:
    26
    Не сочти за критику, но помоему, не стоит выводить результат в подпрограмме, лучше возвращать результат типа «0» или «хеш», и уже в основной части принимать решение «BCE XyeBO» или «BCE 3AEbiCb», а так спасибо я с перлом плохо знаком, никогда не доводилось рисовать формы, а теперь вот увидел на примере.
     
    1 person likes this.
  10. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    критика -- правильная --- вспринял и решил что ты прав -- так будет красивеее
     
  11. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    люди и еще проверьте кто нить знающий перл скрипт для сбора мыл -- втрой который0---- как он поведет себя на линуксе
     
  12. da_ff

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

    Joined:
    11 Jul 2006
    Messages:
    118
    Likes Received:
    22
    Reputations:
    26
    Не сочти за критику, но помоему, не стоит выводить результат в подпрограмме, лучше возвращать результат типа «0» или «хеш», и уже в основной части принимать решение «BCE XyeBO» или «BCE 3AEbiCb», а так спасибо я с перлом плохо знаком, никогда не доводилось рисовать формы, а теперь вот увидел на примере.
     
  13. hidden

    hidden 7H3 0N3

    Joined:
    23 Apr 2006
    Messages:
    550
    Likes Received:
    332
    Reputations:
    386
    Дежавю ;)
     
  14. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    вот воспринял критику правильную от tcover-а о том что как можно юзать удаленно переборщик md5 с гуи если у админа на экране появится окошко и все--- вот написал консолный брутер прямым перебором---- накрайняк можно сипользовать как досер т.к. то что он сжирает весь прац дык это точна--- качать тут http://www.genom.h10.ru/brute-md5.pl
     
  15. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    есть одна просьба --- люди если есть какая нибудь интересная идея какой еще скрипт написать -- предлагайте не стесняйтесь-- знание перла есть а идеи уже иссякли-- так что жду предложений
     
  16. Sn@k3

    Sn@k3 Elder - Старейшина

    Joined:
    13 Apr 2006
    Messages:
    1,000
    Likes Received:
    438
    Reputations:
    90
    идею?.....сделай прогу, что удаляет, например в папке ламо, файлы, которые не изменялись месяц, крч ты понял? просто считываешь дату создания и извенения и прибавляешь к дате создания месяц, крч понял? аа тока сначало чтобы выкидывал вопрос, типа да или нет, перед каждым файлом. все работай
     
  17. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    угумс


    во первых это неитересно-- а во вторых пользуйся поиском с параметром создания фалов и удаляй скока влезет =)
     
  18. k1b0rg

    k1b0rg Тут может быть ваша реклама.

    Joined:
    30 Jul 2005
    Messages:
    1,182
    Likes Received:
    399
    Reputations:
    479
    извращение писать на перле окна.
    Для гуи есть другие средства(vb,c++,delphi,kylix).
    Вы бы еще на перле пеинт наколбасили.
     
  19. Sn@k3

    Sn@k3 Elder - Старейшина

    Joined:
    13 Apr 2006
    Messages:
    1,000
    Likes Received:
    438
    Reputations:
    90
    ты спросил, а я ответил

    k1b0rg, не обязательно делать граф окно, можно и дос режиме и т.д.
     
  20. tclover

    tclover nobody

    Joined:
    13 Dec 2005
    Messages:
    741
    Likes Received:
    682
    Reputations:
    287
    Простите меня, но Снэйк, ты уже порядком достал... Хватит тупить, начни читать.