[Source] Fake Mail

[Hacker Xtreme]

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

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

[Fvox]

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

[shake]

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

[shake]

Uma imagem ai!

Flwz

[Fvox]

É, 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!

[shake]

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

Abraços

[Fvox]

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?

[shake]

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

Abraços

[Fvox]

Obrigado..

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

obrigado novamente!

[Dx]

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

quebrado  ¬¬

[shake]

Tá ai o source do programa para estudos!

Code Select Expand

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.



[tiaguito-.-]

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 

^.-

[shake]

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;


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

[tiaguito-.-]

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 =/

^.-

[shake]

Tá ai cara!

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

Senha: darkers