Вытащить e-mail адреса

[HIMIKAT]

Имеется файл, вот такого содержания:


PHP:
102bonuswm.ruPrivatepersonns0.s0t.ru.ns1.s0t.ru. +7 9500036527+7 8124270200REGTIME-REG-RIPN12-01-200712-01-2012

103bonuswmr.ruPrivatePersonreg.ru +79278820270REG RU-REG-RIPN15-01-200915-01-2012

В нем есть вот такие строки:


PHP:
/email.php?e=ZG5zQHMwdC5ydQ==

/email.php?e=YWRteG9zdEBnbWFpbC5jb20=

Как мы видим это email адреса закодированные в base64. Подскажите скрипт или программу, которая поможет сграбить эти строки и на лету их декодировать, чтобы на выходе получился вот такой список:


Code:
dns@s0t.ru
admxost@gmail.com

[Fepsis]

Code:
#!/usr/bin/perl

use MIME::Base64;

my $data = "

102

bonuswm.ru
Private person
ns0.s0t.ru.
ns1.s0t.ru.

+7 9500036527
+7 8124270200

REGTIME-REG-RIPN12-01-2007
12-01-2012


103

bonuswmr.ru
Private Person
reg.ru
+79278820270

REGRU-REG-RIPN15-01-2009
15-01-2012

";

my @emeils = $data =~/email\.php\?e=(.+?)'/g;

open(OUT, '> out.txt');

foreach $encoded (@emeils)

{

$decoded = decode_base64($encoded);
print OUT "$decoded\n";

}

close(OUT);

[Shturmgewehr]

в Cain есть утилитка, раскодирующая Base64...

[leaderru]

Shturmgewehr said:
в Cain есть утилитка, раскодирующая Base64...


Ага полностью согласен, а до этого просто поставь отправку имэилов тебе на мыло

[malahi]

тут ты можешь раскодировать base64

http://www.kruglov.ru/useful/base64/

а где можна наити закадированиые mail в басе 64?

(сорри за руски! узаю Транслит! )

[Mr.Replica]

В данном случае нужно использовать регулярные выражения,для парсинга Мыл.В VB.NET Это будет выглядеть примерно так:

[CODE]
Code:
Dim rssourcecode As String = sr.ReadToEnd

Dim r As New System.Text.RegularExpressions.Regex("