Нужен парсер

Discussion in 'Уязвимости Mail-сервисов' started by nik3241, 19 Feb 2011.

  1. nik3241

    nik3241 Member

    Joined:
    4 Mar 2008
    Messages:
    0
    Likes Received:
    13
    Reputations:
    0
    К примеру имеем сграбленный список мыл:

    [email protected]
    [email protected]
    asdjh8@
    90@2e8u9

    нужно парсер который удалит невалидные строки из списка :) оставив лишь валидные строки вида [email protected].
     
  2. DCrypt

    DCrypt Banned

    Joined:
    21 Jan 2010
    Messages:
    367
    Likes Received:
    35
    Reputations:
    1
    ePochta Extractor
     
  3. nik3241

    nik3241 Member

    Joined:
    4 Mar 2008
    Messages:
    0
    Likes Received:
    13
    Reputations:
    0
    тут немного другая ситуация, вид списка [email protected];password
    и для каждой строки из колонки идёт свой пароль, список для брута, но там присутствуют невалидные строки, вида @@@@;pass нужно удалить именно невалидные строки мембер;@@@.ru, не нарушая порядок колонок., так как брутится будут определённые мыла именно на тот пароль который идёт в списке и соответствует строки логина, но перебрать вручную несколько сотен к просто нереально.
     
  4. DCrypt

    DCrypt Banned

    Joined:
    21 Jan 2010
    Messages:
    367
    Likes Received:
    35
    Reputations:
    1
    Пробуй http://forum.antichat.ru/thread174326.html
     
  5. Hack_ERR++

    Hack_ERR++ Member

    Joined:
    13 Aug 2009
    Messages:
    41
    Likes Received:
    9
    Reputations:
    0
    PHP:
    <?
    $text file_get_contents('source.txt');
    preg_match_all("/[a-zA-z0-9]{1,}[@][a-zA-z0-9]*[.][a-zA-z0-9]*[;]\w+/",$text,$result);
    $res array_unique($result[0]);
    $a count($res);
    for (
    $i=0;$i<$a;$i++)
    {
    if (
    $res[$i]==true)
    {
    $f fopen("valid.txt""a+");
    fputs($f,$res[$i]);
    fputs($f,"\r\n");
    fclose($f);
    }
    }
    ?>
     
  6. dpe_x

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

    Joined:
    8 Sep 2010
    Messages:
    155
    Likes Received:
    35
    Reputations:
    14
    на перле.
    закидываешь в in.txt свой текстовик.

    Code:
    open(FILE , "<in.txt");
    chomp(my @mass = <FILE>);
    open(FILE2 , ">out.txt");
    
    foreach (@mass)
    {
    	if ($_=~/^.*@.*\..{2,4};.*$/)
    	{
    		print FILE2 $_."\n";
    	}
    }
    close FILE2;close FILE;