Mail codificado

[[seoane]]

Antes de nada decir que me parece tremendamente sospechoso querer obtener por codigo direcciones de correo de una pagina web, me suena a spam, pero por otro lado no estoy para juzgar a nadie

El caso es que el texto esta codificado con el mismo algoritmo que se utiliza para codificar las url. El cual es bastante sencillo de descifrar:

Código Delphi [-]
function URLDecode(s: string): string;
var
  i: integer;
  Ch: integer;
begin
  result := '';
  i := 1;
  while i <= Length(s) do
  begin
    if copy(s, i, 1) = '%' then
    begin
      Ch := StrToIntDef('$' + copy(s, i + 1, 2), -1);
      if (Ch > 0) and (Ch < 256) then
        result := result + Char(Ch);
      inc(i, 2);
    end
    else
      result := result + copy(s, i, 1);
    inc(i);
  end;
end;

En concreto si le aplicas la funcion anterior al texto que tu indicas nos queda esto:

document.write('<a href="mailto:[email protected]?subject=APRILIA%20PEGASO%20650%20ei%202004" >[email protected]</a>');

A partir de ahi usalo para lo que quieras