PDA

Просмотр полной версии : Поиск мыльников в дампах таблиц.


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

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

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

~!DoK_tOR!~
15.04.2007, 01:38
']именно скрипт или прога?

можно прогу

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

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

guest3297
15.04.2007, 01:46
}{0TT@БЬ)Ч (member.php?u=21634)
Импортировать в 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
# 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
Вродь должно сработать
ага, тока перенос строки надо бы добавить..

perl -e "open IN,'file.sql';open OUT,'>mail.txt';while(<IN>){print OUT \"$1\n\" if /([-_.\d\w\s]+@[-_.\d\w]+)/}"


И всё равно вот это проще и короче:

и все же гораздо универсальнее использовать регулярки для подобных дел.. и колонки считать не надо )..

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

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