MD5 Cracker (DELPHI)

[Cash Override]

Olá galera estava tentando fazer um MD5 cracker
e na hora de compilar tá dando varios erros !
eu queria saber se alguém pode me ajudar a corrigir os erros !
se alguém puder ajudar fico agradecido !

function DecryptMD5(MD5 : string) : string;var
WB     : TWebBroser; 
_temp : string;  
Splitted : TStringList; 
begin
WB := TWebBrowser.Create(nil);
WB.Navigate('http://www.cmd5.org/');
while WB.ReadyState <> READYSTATE_COMPLETE do
begin
Application.ProcessMessages;
Sleep(0);
end;
WB.Document.Body.GetElementByID('ctl00_ContentPlaceHolder1_TextBoxq').InnerText := MD5;
WB.Document.Body.GetElementByID('ctl00_ContentPlaceHolder1_Button1').Click;
while WB.ReadyState <> READYSTATE_COMPLETE do
begin
Application.ProcessMessages;
Sleep(0);
end;
WB.Document.Body.GetElemenByID('ctl00_ContentPlaceHolder1_LabelResult').InnerText;
Splitted := TStringList.Create;
Assert(Assigned(Splitted));
Splitted.Delimiter := '=';
Splitted.DelimiterText := _temp;
result := Splitted[1];
end; 

[CoderSc]

Olá seja bem vindo Cash Override =)

Veja esse tópico que o hacker_wap postou não faz muito tempo.

t+

[Cash Override]

Olá seja bem vindo Cash Override =)

Veja esse tópico que o hacker_wap postou não faz muito tempo.

t+

Amigo pode me ajudar diretamente do meu exemplo
aquele tópico do hacker_wap está meio avançado para min !

[CoderSc]

Amigo pode me ajudar diretamente do meu exemplo
aquele tópico do hacker_wap está meio avançado para min !

Poderia dizer quais são os erros que o compilador está te retornando ?

[hacker_wap]

Eu testei aqui.

WB     : TWebBroser;

Esta errado o certo é

WB     : TWebBrowser;

não sei você esta utilizando mas é necessario as unitys

OleCtrls, SHDocVw

O metodo

.Body.GetElementByID

Não existe.

Aqui esta errado tambem

Splitted.DelimiterText := _temp;

_temp não tem nenhum valor atribuido.

E mais alguns..

[Cash Override]

Eu testei aqui.

WB     : TWebBroser;

Esta errado o certo é

WB     : TWebBrowser;

não sei você esta utilizando mas é necessario as unitys

OleCtrls, SHDocVw

O metodo

.Body.GetElementByID

Não existe.

Aqui esta errado tambem

Splitted.DelimiterText := _temp;

_temp não tem nenhum valor atribuido.

E mais alguns..

Por gentileza Hacker_Wap
poderia conserta o código para min
eu estou apanhando um pouco aqui para fazer isso !

[hacker_wap]

De onde você tirou este codigo? poderia me enviar o link para que possa dar uma olhada.
porque pelo que eu estou fazendo com o TWebBrowser a coisa ficou mais complexa do que da forma com que eu fiz neste topico.

A unica vantagem de utilizar o TWebBrowser é que ele vai processar o javascript, que pra variar o site que você esta utilizando usa...

E tambem estou meio impedido de continuar os testes com este site porque aqui diz que ele esta em manutenção.

[CoderSc]

Pra mim isso é uma POG muito mal feita.

[Cash Override]

De onde você tirou este codigo? poderia me enviar o link para que possa dar uma olhada.
porque pelo que eu estou fazendo com o TWebBrowser a coisa ficou mais complexa do que da forma com que eu fiz neste topico.

A unica vantagem de utilizar o TWebBrowser é que ele vai processar o javascript, que pra variar o site que você esta utilizando usa...

E tambem estou meio impedido de continuar os testes com este site porque aqui diz que ele esta em manutenção.

Foi um amigo meu que fez mais ele estava sem delphi
ai não deu para ele ver os erros no código, se puder ajudar fico agradecido !

[hacker_wap]

Só vou lhe dizer como navegar pelas tags.

adicione a unit

mshtml

Depois você deve usar as interfaces IHTML para navegar entre as diferentes tags.
Exemplo

var
  IHTML: IHTMLDocument2;
  ICollection: IHTMLElementCollection; 

WB.Document.QueryInterface(IID_IHTMLDocument2, IHTML);
if(Assigned(IHTML))then
begin
  ICollection:= IHTML.all;

  ICollection.item('nome da tag', 0).
  QueryInterface(IID_IHTMLInputElement, IInput);
  if(Assigned(IInput))then
  begin
    //faça alguma coisa
  end;
end; 

Isto já deve lhe dar uma boa ideia de como prosseguir.