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 (http://www.darkers.com.br) ---\n";
print "\n --- http://www.sinapse.com.br (http://www.sinapse.com.br) ---\n";
}
}
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 (mailto: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
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.
o Shady , vc podia filtrar as respostas do servidor tb para evitar erros de envio
Na sei se tem como fazer isso em perl, 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
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