Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Поиск мыльников в дампах таблиц. (https://forum.antichat.xyz/showthread.php?t=37982)

~!DoK_tOR!~ 15.04.2007 01:34
Поиск мыльников в дампах таблиц.
 
нужен скрипт который бы выдёргивал мыльники из дамп таблиц =\\

------------------------------------
Еще раз. Читай правила. Название топика должно отображать суть темы\вопроса.
Модератор Gh0s7

guest3297 15.04.2007 01:36
именно скрипт или прога?

~!DoK_tOR!~ 15.04.2007 01:38
Цитата:
Сообщение от [ cash ]
именно скрипт или прога?
можно прогу

guest3297 15.04.2007 01:42
Вложений: 1
Не забываем проверять на вирусы.

}{0TT@БЬ)Ч 15.04.2007 01:42
как вариант можно дамп импортировать в тот же phpMyAdmin и там с ним уже работать

guest3297 15.04.2007 01:46
}{0TT@БЬ)Ч
Импортировать в mysql и работать через phpmyadmin.

Gh0s7 15.04.2007 01:58
Вообще все зависит от формата дампа. Но для большинста подойдет такой скрипт:

Код:
#!/usr/bin/perl -w

use strict;
use warnings;

my $file = $ARGV[0];

open (IN, "<$file) or warn "usage: $0 FILE\n" and exit(1);

while(<IN>) {
  print $& . "\n"  if /[-_.\d\w]{1,32}@[-_.\d\w]{1,64}/;
}

close IN;

~!DoK_tOR!~ 15.04.2007 02:07
[ cash ] спс помагло ...

limpompo 15.04.2007 13:58
[ cash ] - что-то да боли знакомые Скрипты=)))

ShadOS 15.04.2007 14:16
жуть... базу экспортировать а потом grep | awk пройтись нельзя чтоли?
ИМХО так проще. Хватит велосипеды изобретать =)

KSURi 15.04.2007 14:47
Код:
# perl -e "open(IN, 'base.sql'); open(OUT, '>', 'mail.txt'); while(<IN>) { print OUT $1 if /([-_.\d\w\s]+@[-_.\d\w]+)/ }"
Вродь должно сработать

ShadOS 15.04.2007 16:10
Цитата:
Сообщение от KSURi
Код:
# perl -e "open(IN, 'base.sql'); open(OUT, '>', 'mail.txt'); while(<IN>) { print OUT $1 if /([-_.\d\w\s]+@[-_.\d\w]+)/ }"
Вродь должно сработать
И всё равно вот это проще и короче:
Код:
cat dump.sql | awk '{ $<номер колонки с мылом> }' > spambase.txt
UPD: а если ещё кавычки надо удалить, то делаем вот так:
Код:
cat dump.sql | awk '{ $<номер колонки с мылом> }' | sed s/\'//g > spambase.txt

Digimortal 15.04.2007 23:54
Цитата:
Сообщение от KSURi
Вродь должно сработать
ага, тока перенос строки надо бы добавить..
Код:
perl -e "open IN,'file.sql';open OUT,'>mail.txt';while(<IN>){print OUT \"$1\n\" if /([-_.\d\w\s]+@[-_.\d\w]+)/}"
Цитата:
Сообщение от ShadOS
И всё равно вот это проще и короче:
и все же гораздо универсальнее использовать регулярки для подобных дел.. и колонки считать не надо )..

AdvLamer 16.04.2007 00:38
Если база отображается в html (привет космочату:))
То можно просто скопировать весь текст со страницы и вставить в Excel, колонки разбиваются автоматически

ShadOS 16.04.2007 01:45
Цитата:
Сообщение от Digimortal
и все же гораздо универсальнее использовать регулярки для подобных дел.. и колонки считать не надо )..
А sed и awk по твоему с чем работают? Эту колонку также можно с помощью sed вырезать.


Время: 14:59