[Source] Fake Mail

[shake]

Ai galera depois de um pouco de estudo, agora estou partindo para a melhor parte, as práticas.

Bom então pra começar vou postar esse source de um programinha que envia email (serve como Fake Mail também se colocar um host que dê suporte).
Eu não passei um compilado pois não encontrei um servidor de SMTP (free) que dê suporte a entrada de emails com endereço diferente do seu domínio.

OBS: Feito em Delphi 7

É necessário:

2 Componentes Button; Aba Standard
4 Componentes Edit; Aba Standard
1 Componente Memo; Aba Standard
1 Componente IdMessage; Aba Indy Clients
1 Componente IdSMTP; Aba Indy Misc

Então vamos ao code:

Code Select Expand

unit Unit1;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;

type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='servidor'; //seu servidor SMTP
IdSMTP1.Port:=25; //porta do ultilizada pelo servidor
IdSMTP1.Username:='seu_login'; //seu login
IdSMTP1.Password:='sua_senha'; //senha
IdSMTP1.AuthenticationType := atLogin; //autenticação no servidor
IdSMTP1.Connect;//faz a conexão
IdMessage1.From.Address:=edit1.text;  //email do remetente do servidor
IdMessage1.From.Name:=edit2.text;  //nome do remetente
IdMessage1.Recipients.EMailAddresses:= edit3.text;  //email destinatario
IdMessage1.Priority := mpNormal;  //prioridade normal
IdMessage1.Subject := edit4.text;  //assunto do email
IdMessage1.ContentType:='text/html';  //entrada de mensagem em HTML
IdMessage1.Body := Memo1.Lines;  //texto
try
IdSMTP1.Send(IdMessage1); //envia a mensagem
finally
IdSMTP1.Disconnect; //desconecta
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',MB_ICONINFORMATION + MB_OK);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

end.
Então é isso ai pessoal.
Espero poder futuramente poder trazer muito mais a vocês.

Abraços

[rodweb]

Bom poste kra 

[Shady]

Parabens pela concretizacao.

[slul]

Primeiramente Parabéns

Segundamente  (adoro essa palavra =P)

Alguém tem um codigo em PHP de fake mail que utilize um smtp bugado para enviar msgs?

flws

[Hacker Xtreme]

Legal... Upa ele já pronto, assim só é necessário arrumar um smtp... Mais parabens seu code é muito show!! estou estudando ele e vi que agora é só arrumar um smtp pq o seu code é muito bom!

[Anonymous]

@slul
 qual seria a vantagem de se usar smtp num php? e eu acho que se nao tiver uma funçao especifica pra isso que eu acho que tem deve dar  pra fazer com sockets
@zero cool
esses efeitos estao dificultando a leitura

[shake]

Legal... Upa ele já pronto, assim só é necessário arrumar um smtp... Mais parabens seu code é muito show!! estou estudando ele e vi que agora é só arrumar um smtp pq o seu code é muito bom!

Upado
http://rapidshare.de/files/22714532/FakeMail.rar.html
Senha: darkers

Screen:

[TGA]

TGA

Vejo que as pessoas do darkers estão estudando, isso ai pessoal, parabens pelo coder, mais quero chamar atenção em uma parte do seu codigo;

try
IdSMTP1.Send(IdMessage1); //envia a mensagem
finally
IdSMTP1.Disconnect; //desconecta
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',MB_ICONINFORMATION + MB_OK);
end

;

Mesmo que o e-mail não seja enviado ou ocorra algum erro, dará uma msg ao usuario de que o  Email enviado com sucesso!', então presisa tratar isso, só uma dica vlw..

Abraços

[slul]

@slul
 qual seria a vantagem de se usar smtp num php? e eu acho que se nao tiver uma funçao especifica pra isso que eu acho que tem deve dar  pra fazer com sockets
@zero cool
esses efeitos estao dificultando a leitura

o PHP tem a função mail()

soh q nunca funciona pelo menos no meu localhost sem contar que ele vai falar o host de origem no fakemail...


com o smtp vc fik mais oculto

inté

[Symersky]

www.anonimail.cjb.net

[Hacker Xtreme]

Veio queria chamar a sua atenção, pq o Fake Mail e tão grande diminui um pouco tem que ser monitor de 20 pra ver o programa... o meu é de 15...rs

[slul]

www.anonimail.cjb.net

Isso daí n funfa faz moh cara =P

Pelo menso não no Gmail

[Symersky]

www.anonimail.cjb.net

Isso daí n funfa faz moh cara =P

Pelo menso não no Gmail

Realmente não está mais funcionando.. :)

Abraços

[shake]

TGA

Vejo que as pessoas do darkers estão estudando, isso ai pessoal, parabens pelo coder, mais quero chamar atenção em uma parte do seu codigo;

try
IdSMTP1.Send(IdMessage1); //envia a mensagem
finally
IdSMTP1.Disconnect; //desconecta
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',MB_ICONINFORMATION + MB_OK);
end

;

Mesmo que o e-mail não seja enviado ou ocorra algum erro, dará uma msg ao usuario de que o  Email enviado com sucesso!', então presisa tratar isso, só uma dica vlw..

Abraços

Ok TGA, vou dar uma olhada nisso.
Vlw pela dica.

Veio queria chamar a sua atenção, pq o Fake Mail e tão grande diminui um pouco tem que ser monitor de 20 pra ver o programa... o meu é de 15...rs

Ok cara irei diminuí-lo pra vc!
Abraços

[shake]

kkk Errei no post acima.
Retificando:

Fora da citação que deveria estar:
Ok TGA, vou dar uma olhada nisso.
Vlw pela dica.


Z3R0_C00L
Tá ai o Fake-mail um pouco menor!

http://rapidshare.de/files/23993491/Fake-Mail.rar.html
Senha: darkers

Espero ter ajudado
Abraços