[Dúvida] Inversor de link no delphi

[Coca Cola]

Olá,

Gostaria de saber se alguém aqui sabe como criar um inversor de link no delphi, por exemplo, aqueles protetor de link para download que colocam o link invertido, eu queria saber como que faz pra colocar esse site em um Edit e ele sair por inverso.

Exemplo, você coloca no Edit Banana e sai em outro edit por exemplo ananab e vice e versa.

E que não funcione apenas para um site, porque era só colocar no edit pra receber apenas aquele site, queria um que ele invertesse o que for colocado no Edit.

Desde já agradeço.

Editado Janeiro 9, 2011 por Coca Cola

[Jhonas]

Exemplo, você coloca no Edit Banana e sai em outro edit por exemplo ananab e vice e versa.

exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, t: cardinal; s : string;
begin
  s := '';
  t:=length(Edit1.Text);
  setlength(s,t);
  for i:=0 to t-1 do
    s[t-i]:=Edit1.Text[i+1];
  edit1.text := s;
end;

abraço

[__WIGLAN__]

OLA AMIGO...

Cansado com esses protetores de link, eu fiz um 'Reverse Text' pra facilitar o trabalho na hora de fazer algun download.

Logo abaixo segue o codigo que abre uma nova guia no navegador com o link de Download:

-------

//vai inverter a string passada como parametro.

function TfrmReverse.Inverte(texto: String): String;

var i: Integer;

begin

for i := Length(texto) downto 1 do begin

Result := Result +copy(texto,i,1);

end;

-------

procedure TfrmReverse.Button2Click(Sender: TObject);

var

Endereço_Url: WideString;

Url_Final : PWideChar;

megaupload,link : string;

I : Integer;

begin

//verifica se o link é do megaupload;

if AnsiContainsText(edit1.text,'d?/moc.daolpuagem.www//:ptth') then begin

megaupload := Inverte(edit1.text);

if Pos('=',megaupload) >= 0 then

Delete(megaupload,1,pos('=',megaupload));

for I := 0 to Length(megaupload) - 1 do Begin

if Copy(megaupload,i,1) = '=' then begin

megaupload := Copy(megaupload,1,(i -1));

break;

end;

End;

link := 'http://www.megaupload.com/?d=' + megaupload;

Url_Final := Addr(link[1]); //converte str para PWideChar

if Application.MessageBox('Deseja Abrir Uma Nova Janela Para Realizar o Download ?','Atenção',

MB_ICONQUESTION + MB_YESNO)= ID_YES then begin

HlinkNavigateString(nil,Url_Final);

end;

end

----------- OBS : o programa trata de outros servidores tambem, não so do megaupload.

se quizer, eu te mando o programa completo pra tu analizar e utilizar.

ESPERO QUE TENHA AJUDADO...

[Douglas Soares]

Manda o link do programa aí pra gente :P

[__WIGLAN__]

Segue o link para download do programa então :

http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/

esse é o blog onde ele ta hospedado...

por favor comentem se gostarem do aplicativo... :unsure:

duvidas e sugestões ou reclamações para melhorias são sempre bem vindas... :rolleyes:

thé + pessoal....

[Douglas Soares]

Opa muito bom mas vou dar uma sugestão:

Repara esse link: http://teste.info/download/?url=SMqJ2/em.ergim//:ptth

Você poderia inverter esse link, extrair somente a URL do migre.me e então acessa-la e extrair a URL que ele converteu ao acessar, e jogar no edit :)

Abraços

[__WIGLAN__]

Não entendi muito bem a sua sugestão, mas fiz algumas adaptações no programa.

Baixe ele de novo e teste. Se não for o que tu precisa me avisa.

http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/

Baixe pela PRIMEIRA OPÇÂO.

Thé +

[Douglas Soares]

Deu certinho, é que tipo, o migre.me é um site redirecionador, qd você acessar essa url ele vai para hotfile, megaupload, rapidshare, etc.... dai você poderia acessar essa url por tras e dps q ele redirecionar você pega a url e poe no edit :D

Abraços

[__WIGLAN__]

Agora entendi o que tu precisa, mas não entendi o porque. Tipo se você já tem o link 'http://migre.me/2JqMS' ai ele vai carrega esse link em uma pagina. Nessa página ele vai gerar a Url de download que vai ser do Megaupload, FileServe, etc... então, Não entendi por que voce quer a Url gerada depois de carregar o link do migre.me???

[Douglas Soares]

Porque as vezes essa url do migre.me quando é redireciona ela vai pra outro maldito protetor de link, dai tem q esperar dnv, os caras tão ficando espertos... hehehehe

Abraços

[__WIGLAN__]

tá, me manda um exemplo desse pra mim ve como que funciona isso....

[Douglas Soares]

Vou dar um exemplo com meu site :P

www.mestrerunescape.com.br/protetordelink=p8tD3/em.ergim//:ptth

você vai extrair esse migre.me e ao acessar vai redirecionar pra outra url de meu site com protetor de link com outro migre.me, dai você teria q extrair dnv!, é só um exemplo, pois já vi varios sites assim! Obs: não poe esse dominio do meu site no seu programa pois ele não é de filme e n quero sujar ele rssrsr

Abraços

[__WIGLAN__]

Cara, não ta muito facil resolve teu problema. Mas estou na luta....

Divulga o programa pros teus amigos ai....

http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/

[__WIGLAN__]

então cara, acho que desta vez resolvi teu problema. fiz algumas adaptações e correções no programa que vao te ajudar.

segue o link para download... OBS : verifique se o arquivo que voce baixa esta na versão 2.2 :)

http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/

Qual quer duvida ou sugestao não deixe de postar....

Novas versões podem surgir...

Portanto, fiquem atentos... e não dexe de fazer o download..... : :D

Obrigado!!!!

Editado Janeiro 18, 2011 por __WIGLAN__

[Douglas Soares]

Boaaaaaa ficou muuuuuuuito bom cara parabéns!!! poe só um textinho dulado ou na barra de status!!! dizendo que está revelendo url ou desmascarando ou algo do tipo! pro usuário n fica olhando pra cima :P

Abraços

[kawyn]

Estou com quase a mesma dúvida que ele, queria fazer um Burlador disto, mais o problema é que não sei.. ;x

Queria fazer o seguinte, uma função que procura no edit1 um texto e destaca ele, é possível?