comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Function] Adf.ly Decode by crack81[Delphi]

  • 0 Respuestas
  • 1943 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BDWONG

  • *
  • Underc0der
  • Mensajes: 1
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« en: Septiembre 16, 2015, 11:11:27 pm »
Hola chicos viendo el post de fudmario https://underc0de.org/foro/visual-studio-net/%28function%29adf-ly-decode-by-fudmario%28vb-net%29/msg92951/?topicseen#msg92951

decidi hacerle su traduccion en Delphi el codigo se puede mejorar un monton pero funciona bien

Código: Delphi
  1. uses
  2.   SysUtils,
  3.   IdHTTP,
  4.   IdCoderMIME;
  5.  
  6. function DecodeAdFly(const url:string):string;
  7. var
  8. http:TIdHTTP;
  9. content,data,urlFinal,part1,part2:string;
  10. pos1,pos2,i,npos:integer;
  11. const
  12. STRINGKEY='ysmm = ';
  13. begin
  14.   urlFinal:='';
  15.   i:=1;
  16.   http:=TIdHTTP.Create(nil);
  17.   try
  18.     content:=http.Get(url);//obtenemos el codigo html
  19.     pos1:=pos(STRINGKEY,content);//encontramos el ysmm =
  20.     pos2:=1;
  21.     npos:=pos1;
  22.     while(content[npos]<>';')do//recorremos el content hasta encontrar el ';'
  23.     begin
  24.       inc(npos);
  25.       inc(pos2);//el pos2 nos dira cuantos caracteres tiene el ysmm
  26.     end;
  27.     //data alamcenrar la cadena de ysmm
  28.     data:=copy(content,pos1+length(STRINGKEY)+1,pos2-length(STRINGKEY)-3);
  29.     while(i<=length(data)) do //filtramos la cadena llamada data
  30.     begin
  31.       part1:=part1+data[i];
  32.       part2:=data[i+1]+part2;
  33.       i:=i+2;
  34.     end;
  35.     urlFinal:=TIdDecoderMIME.DecodeString(part1+part2);//los desencriptamos con base64
  36.     Result:=copy(urlFinal,3,length(urlFinal)-2);//retornamos la url original
  37.   finally
  38.     http.Free; //liberamos el objeto creado arriba
  39.   end;
  40. end;
  41.  
  42. var
  43. url:string;
  44. begin
  45.   url:=DecodeAdFly('http://adf.ly/dLgCS');
  46.   writeln(url);
  47.   readln;
  48. end.
« Última modificación: Octubre 11, 2015, 08:36:11 pm por Expermicid »

 

¿Te gustó el post? COMPARTILO!



[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2055
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3265
Último mensaje Febrero 24, 2010, 04:57:14 pm
por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3512
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
Poner splash screen con progress bar en delphi

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2987
Último mensaje Febrero 24, 2010, 04:54:23 pm
por ANTRAX
[Delphi] Creacion de un Server Builder con recursos

Iniciado por BigBear

Respuestas: 1
Vistas: 1478
Último mensaje Marzo 09, 2015, 07:56:20 pm
por Flemon