Fake Mailer

[Shady]

Mais uma tool... essa aqui e pra envio de fakemails. Voce precisa especificar o IP do servidor smtp. Sim, eu fiz isso pra nao acontecer de o script parar de funcionar em algumas semanas, como e comum acontecer com programas do tipo (o que e uma pena, pois alguns sao tao bem codados). Entao vai o codigo destravado.

------------------------------------------------------------------

use IO::Socket;
@ARGV;
if (@ARGV < 4){
print "\n\n";
print "----------------------------\n";
print "| GHoST by SHaDy ~ Sinapse |\n";
print "----------------------------\n\n";
print "Syntax:\n\n\n";
print "  $0 [smtp] [fakemail] [destino] [assunto]\n\n\n";
system("pause");
}
else {
$de      = $ARGV[0];
$assunto = $ARGV[1];
$para    = $ARGV[2];
$server    = $ARGV[3];
my $conex = new IO::Socket::INET(
PeerAddr => $server,
PeerPort => '25',
Proto => 'smtp',
Reuse => 1,
);
if (!$conex){
print "\n\a\a\a\nFalha ao tentar se conectar com $server: $!\n\n";
system("pause");
exit(1);
}
else{
print "Conexao com $server realizada com sucesso! Comecando negociacao SMTP...\n\n";
print $conex "HELO localhost";
print $conex "MAIL FROM: $de";
print $conex "RCPT TO: $para";
print $conex "DATA";
print $conex "from: $de";
print $conex "to: $para";
print $conex "subject: $assunto";
print $conex "received: 222.222.222.1";
print $conex "x-header: 222.222.222.1";
print "Estamos quase no fim. Digite a mensagem abaixo (enter finaliza):\n\n";
$msg = ;
chop($msg);
print $conex "$msg";
print $conex "\n.";
print "\n\nEmail enviado.\n\n";
print "\n --- http://www.darkers.com.br ---\n";
print "\n --- http://www.sinapse.com.br ---\n";
 }
}

[Anonymous]

perl? sim perl... mas como q usa? aki o erro eh o seguinte... fiz assim

cd C:\
perl hum.pl smtp.google.com china_do_carrinho@hotmail.com ae biba

e n vai, so da o sonzim do \a
heuiaheie

entra msn e ensina por vnc plx

ty bjks

[Shady]

Fire:

1. O SMTP do gmail e: gmail-smtp-in.l.google.com
2. Ele requer autenticacao, algo que meu script simples nao suporta.
3. O \a sinaliza um erro.

[OnlyOne]

o Shady , vc podia filtrar as respostas do servidor tb para evitar erros de envio

[Shady]

Na sei se tem como fazer isso em perl, OnlyOne.

[OnlyOne]

claro q tem , vc espera a resposta do servidor , toda msg começa com um numero , q e padrao nos servidores , vc filtra por esses numeros

usa ai o s/// ou m/// e assim em perl ne ? nem lembro mais de perl

ou entao se resposta tiver numero tal vc para

[Cloudy]

Acho que entendi mais ou menos o que o OnlyOne disse.

Acho que é como a variavel "$?" no Linux né? Cada resposta do comando gera um número, 0 é que rodou corretamente, 1 é que deu erro, 255 é Escape, etc.

Mas aí seria ver como funciona nos servers.

...by Cloudy