Нужна прога для выдерания из списка (базы) Md5

Discussion in 'Болталка' started by joni, 16 Nov 2006.

  1. joni

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

    Joined:
    2 Apr 2006
    Messages:
    59
    Likes Received:
    164
    Reputations:
    9
    Нужна прога для выдерания из списка (базы) Md5
    хешей. Типа хеш-граббер какойнить.
     
  2. Koller

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

    Joined:
    25 Jul 2005
    Messages:
    402
    Likes Received:
    246
    Reputations:
    302
    Зачем спрашивается?
    Нельзя ли например каким-нибудь запросом ее вытащить?
    Например у ипб 1.3 -
    В ипб 2.* с солью -
    В phpbb тоже можно как-нибудь...я на 99% уверен в этом...не изучал просто...

    P.s. Спасибо Тохе ;)
     
  3. FQziT

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

    Joined:
    3 Nov 2005
    Messages:
    543
    Likes Received:
    156
    Reputations:
    206
    SELECT `колонка_с_хэшами` FROM `таблица_где_они_лежат` INTO OUTFILE 'полный_путь_до_файла_куда_сохранить.txt'
     
  4. ProTeuS

    ProTeuS --

    Joined:
    26 Nov 2004
    Messages:
    1,239
    Likes Received:
    542
    Reputations:
    445
    здается мне, 4ел просил "выдирание" хешей из уже сдампленной базы ака с текста.
    можно сделать поиск сабжа по маске: 32 символа, A-F, a-f, 0-9
     
  5. africanec

    africanec Banned

    Joined:
    11 Sep 2005
    Messages:
    222
    Likes Received:
    14
    Reputations:
    -3
    могу предложить скрипт на асп выдерает юзер;хеш;соль;мыло
     
  6. joni

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

    Joined:
    2 Apr 2006
    Messages:
    59
    Likes Received:
    164
    Reputations:
    9
    Да, ты прав. Спасибо, разобрался.
     
  7. LoneWolf666

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

    Joined:
    9 Dec 2005
    Messages:
    207
    Likes Received:
    121
    Reputations:
    12
    Не потеме но всё таки...
    А как таким же макарам выдрать мыло? А желательно сразу все мыла... очунь надо
     
  8. MegaBits

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

    Joined:
    30 Aug 2006
    Messages:
    151
    Likes Received:
    24
    Reputations:
    10
    Я например все время использую Денвер в нем есть phpMyAdmin имортируешь туда базу потом
    SELECT `email` FROM `таблица_где_они_лежат` INTO OUTFILE 'полный_путь_до_файла_куда_сохранить.txt'
     
  9. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    вот скриптик на perl -- писал когдато --- запихиваешь все свои дампы в одну папку и запуускаешь с скрипт с параметром *.pl /имя_папки/
    (ps если подправить регулярное выражение то будет выдирать и хэши)


    #!/usr/bin/perl

    if (@ARGV==0) { print "\n###########Genom Spam List Bilder v1.3##################\n\nUse: perl spam-bilder.pl /start_folder/\n"; exit;};

    $asd=@ARGV[0];
    $i=0;
    $a=1;
    @dir[0]=@ARGV[0];
    opendir FF, $asd;
    while ($zz=readdir FF) {
    $aa=$zz=~m/\./;
    if ($aa==0) {if ($asd=="/") {@dir[$i]="$asd$zz";$i++;}else{@dir[$i]="$asd/$zz";$i++;} }
    closedir dir;}

    papki(@dir[$a]);
    for $qq (@dir){print "$qq\n"}; # убери в начале решетку если хочешь чтобы выводились найденные папки

    ##################рекурсивная функция которая забивает пути к папкам в массив @dir ##################
    sub papki {
    opendir FF,@dir[$a];
    while ($zz=readdir FF) {
    $aa=$zz=~m/\./;
    if ($aa==0) {@dir[$i]="@dir[$a]/$zz";$i++;} };
    closedir dir;$a=$a+1;

    if ($a<$i) {papki(@dir[$a]);}
    };@dir[$a];
    ###########################функция поиска файлов################

    # получаем имена всех файлов в обнаруженных папках и заносим их в массив @file
    # под категорию файлов подпадают объекты в именах которых есть точка--- так что некоторые папки может
    # не обработать(то есть признает их файлами)- это связано с тем что пишу под виндой и параметры
    # распознования файлов линукса -e и -f у меня почемуто не работают =( ---
    $xy=0;

    for $qqq (@dir){
    opendir FF, $qqq;
    while ($zz=readdir FF) {
    if (length($zz)>2) {
    $aa=$zz=~m/\./;
    if ($aa==1) {@file[$xy]="$qqq/$zz";$xy++;} }
    closedir dir;}
    };
    for $wer (@file){print "$wer\n"};# убери в начале решетку если хочешь чтобы выводились найденные
    # файлы

    ######## функция выдирания из найденных фалов e-mail адресов

    open mail,">new-mail.txt";

    for $syka (@file){
    open piska, "<$syka";
    while ($zzaa=<piska>)
    {if ($zzaa =~m/\b([\w\d]+\@[\w\d]+\.[\w\d\.]+)\b/g) { $list{"$1"}="";}}}



    $,="\n";
    print mail keys %list;
    close mail;
     
Loading...