FORUM DARKERS

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:
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

Bom poste kra 

Parabens pela concretizacao.

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

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!

@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

Quote from: "Z3R0_C00L"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 (http://rapidshare.de/files/22714532/FakeMail.rar.html)
Senha: darkers

Screen:
(//http://i5.tinypic.com/13zbsde.jpg)

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;

Quotetry
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

Quote from: "anti-mateira"@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é

www.anonimail.cjb.net

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

Quote from: "Symersky"www.anonimail.cjb.net

Isso daí n funfa faz moh cara =P

Pelo menso não no Gmail

Quote from: "slul"

Quote from: "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

Quote from: "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;

Quotetry
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.

Quote from: "Z3R0_C00L"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

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 (http://rapidshare.de/files/23993491/Fake-Mail.rar.html)
Senha: darkers

Espero ter ajudado
Abraços

Quote from: "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 (http://rapidshare.de/files/23993491/Fake-Mail.rar.html)
Senha: darkers

Espero ter ajudado
Abraços

Muito obrigado....
Eu montei este prog e me deu muitas idéias do tipo montar fake msn, keylogg e etc...
Mas, muito bom o código pra quem ta começando isso é uma bela ajuda...

Cara, ficou muito bom

Mas não estou achando esse IDMessage na aba Indy Clients (Sim, já revirei tudo 3x)

Estou usando o Borland Delphi 7

Ops agora que eu estou vendo tá errado aquilo
Ele está na Indy Misc!
Foi Mal ai.

Uma imagem ai!
(//http://img230.imageshack.us/img230/9031/imagemdf7.th.png)
Flwz

É, eu achei quando fui procurar o IdSMTP

Cara, comecei com delphi ontem... e só compilei um programa, que o cara coloco o projeto salvo com as sources e tudo feito!

Poderia upar o projeto do arquivo pronto para mim aprender onde eu ponho a source?

Eu tentei, mas deu muitos erros na hora de compilar... erros de Unit2, etc!


Obrigado!

Tá ai cara,
http://rapidshare.de/files/29512716/Fake-Mail.rar.html (http://rapidshare.de/files/29512716/Fake-Mail.rar.html)
Senha: darkers

Abraços

Cara, muito obrigado!

Mas tá falando que está faltando o arquivo Unit1.pas e Unit2.pas

O que são esses arquivos?

Tem idéia do que esteja acontecendo?

Opa Tá ai cara, o de cima tinha componentes do VCLSkin.
Ainda vc não deve ter instalado!

Esse está "puro"!
http://rapidshare.de/files/29513427/Fake-Mail.rar.html (http://rapidshare.de/files/29513427/Fake-Mail.rar.html)
Senha: darkers

Abraços

Obrigado..

Estudando o code eu 'recodei'... a função é a mesma, mas com algumas coisas removidas e funções adicionadas!

obrigado novamente!

Quote from: "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 (http://rapidshare.de/files/23993491/Fake-Mail.rar.html)
Senha: darkers

Espero ter ajudado
Abraços

quebrado  ¬¬

Tá ai o source do programa para estudos!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    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:=edit5.text;//seu provedor
IdSMTP1.Port:=StrToInt(edit6.Text);
IdSMTP1.Username:=edit7.text;//seu login
IdSMTP1.Password:=edit8.text;//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.



skake como vc usa o VCLSkin??eu ja tentei instala essa merda 4, 5 vezes e nada nao funfa nenhunzinho me ajuda por favor...
Obrigado por disponibilizar a source do programa gosto de dar uma estuda nisso 

^.-

Cara no delphi 7 vc tem que abrir o Delphi, ir até o menu "Component" e escolher "Install Component", na onde está unit file name vc irá clicar em "Browse"  escolher o arquivo .pas da VCLSkin clique em abrir , feito isso clique em ok ele irá compila o componente, depois feche a janela de instalação, ele ira pergunta se deseja salvar, vc salva (yes), logo após isto irá aparecer na "Component Palett" uma aba chamada VCLSkin.

Depois acho que essa imagem dá pra explicar;
(//http://img385.imageshack.us/img385/2633/imagemql3.th.png) (//http://img385.imageshack.us/my.php?image=imagemql3.png)

Ficou meio paia mas acho que dá pra entender!
Espero ter ajudado.
Qualquer duvida estou a disposição!
Abraços

Bah cara,desculpe abusar mas vc nao teria o link para o VCLSkin sem o DEMO no nome do Form se vc tiver o link por favor coloque aki.

Obrigado

Obs: SIm já tinha um link ake mais passou do tempo e nao da mais para baixar =/

^.-

Tá ai cara!

http://rapidshare.de/files/31987889/VCLSkin.rar.html (http://rapidshare.de/files/31987889/VCLSkin.rar.html)

Senha: darkers

Ae cara vlw consegui direitinho

Obrigado

^.-

shake!!

poderia upar o projeto novamente???

Projeto Fake Mail!

Tá ai

http://rapidshare.de/files/32051406/FakeMail.rar (http://rapidshare.de/files/32051406/FakeMail.rar)

Ops,
desculpe o post duplo.
Esqueci de falar a senha é: darkers

Abraços

Obrigado

alguém poderia colocar no divshare/4shared? aki o projeto jah tah fora de novo =/
e no divshare/4shared o arquivo não expira.

vlw...