Şüpheliyim ki size ait olmayan bir şeye ulaşmaya çalışıyorsunuz.
Bu yüzden bu forumda tamamen böyle bir metnin decrypt edilmesi yanlış olur.

<SCRIPT language=JavaScript>eval(unescape("%66%75%6e%63%74%69%6f%6e%20%52%72%52%72%52%72%52%72%28%74%65%61%61%62%62%29%20%7b%76%61%72%20%74%74%74%6d%6d%6d%3d%22%22%3b%6c%3d%74%65%61%61%62%62%2e%6c%65%6e%67%74%68%3b%77%77%77%3d%68%68%68%68%66%66%66%66%3d%4d%61%74%68%2e%72%6f%75%6e%64%28%6c%2f%32%29%3b%69%66%28%6c%3c%32%2a%77%77%77%29%09%68%68%68%68%66%66%66%66%3d%68%68%68%68%66%66%66%66%2d%31%3b%66%6f%72%28%69%3d%30%3b%69%3c%68%68%68%68%66%66%66%66%3b%69%2b%2b%29%74%74%74%6d%6d%6d%20%3d%20%74%74%74%6d%6d%6d%20%2b%20%74%65%61%61%62%62%2e%63%68%61%72%41%74%28%69%29%2b%20%74%65%61%61%62%62%2e%63%68%61%72%41%74%28%69%2b%68%68%68%68%66%66%66%66%29%3b%69%66%28%6c%3c%32%2a%77%77%77%29%20%74%74%74%6d%6d%6d%20%3d%20%74%74%74%6d%6d%6d%20%2b%20%74%65%61%61%62%62%2e%63%68%61%72%41%74%28%6c%2d%31%29%3b%64%6f%63%75%6d%65%6e%74%2e%77%72%69%74%65%28%74%74%74%6d%6d%6d%29%3b%7d%3b"));</SCRIPT>

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, StrUtils;

var
  TS: TStrings;
  FS: TStream;
  S, A: string;
  P: Integer;
  B: Char;
begin
  TS := TStringList.Create;
  ----------------
  -----------
  -------------
  -------------
  end;
  FS.Free;
end.

----------------------------------------

function RrRrRrRr için;

function PreProcess(const S: string): string;
var
  i: Integer;
begin
  Result := '';
  i := 1;
  while i<=Length(S) do
  begin
    if S[i] = '\' then
    begin
      case S[i+1] of
      ---------------
      ----------
      -----------
      end;
      Inc(i);
    end else
      Result := Result + S[i];
    Inc(i);
  end;
end;