Скрипт, который подставит в адрес гмейла точки

[Webaz]

есть адрес допустим
[email protected]
чем можно сделать чтобы получилось максимальное кол-во таких емейлов
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]

с одного емейла может быть очень много вариантов

[seoengineer]

Сообщение от gcc

а работает еще [email protected] == [email protected] == [email protected] ?

работает, ага. его легче написать

PHP код:

#!/usr/bin/perl
use strict;

my $email = '[email protected]';
my( $left, $right ) = $email =~ m/(.+)\@(.+)$/gx;

$left =~ s/\.//;

my $lb = length( $left ) - 1;
my $rb = 1 << $lb;

foreach my $suffix( split /:/, q/:+home:+work/ ) {
    foreach my $mask ( 0..($rb-1) ) {
        my $proto = $left;
        my $count = 0;
    
        foreach my $i( 0..$lb ) {
            substr( $proto, ++$count + $i, 0 ) = '.' if( $mask & (1 << $i) );
        }
        
        print $proto.$suffix.'@'.$right, "\n";
    }
} 


[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]

[creator123]

Сообщение от seoengineer

PHP код:

#!/usr/bin/perl 


толи php толи perl. прикольно получилось.

А за сам скрипт спасибо.

[gcc]

seoengineer, ты не понял
можно генерить
[email protected]
без точек

[dveredel]

Тут кто говорил что полчаса писать для варианта с точками, я решил проверить - получилось 10 минут

Функция возвращающая массив со всеми вариантами расположения точек для заданной строки (логина).

PHP код:

$l = 'test123';

$logins = gdots($l);
print_r($logins);

function gdots($login, &$arr = null)
{
    $result = array();
    $len = strlen($login);
    for($i=0;$i<$len-1;$i++) {
        if($login[$i] == '.' || $login[$i+1] == '.') continue;
        $var = substr($login, 0, $i+1).'.'.substr($login, $i+1);
        if($arr && isset($arr[$var])) continue;
        $result[$var] = true;
        $result = array_merge($result, gdots($var, $result));
    }
    if($arr) return $result;
    else return array_keys($result);
} 


[Joyen]

Вроде бы точек можно въебать сколько угодно, хоть 100 подряд

[dveredel]

Тогда вобще ппц можно намутить )

[Webaz]

от одного акка получилось 65к мыл только от точек)

[Drunk Monk]

PHP код:

<?
$email[0]="[email protected]";

for($i=1;$<1000000000000;$i++){
$email[$i]=str_replace("long", "long.", $email[$i-1]);
}
?>

43 sec

[seoengineer]

($a,$b)=split'@',$ARGV[0];for$i(0..(2**($l=length($a)-1)-1)){$c=0;for(0..$l){substr($a,++$c+$_,0)='.'if($i& 2**$_);}print$a."\@$b\n";$a=~s|\.||g;}

$ perl 1.pl [email protected]

[Drunk Monk]

Перл Харбор