DBR Delphi-Ecke

// Wenn man seine EMail-Adresse auf eine HTML-Seite setzt oder in
// Foren hinterlässt, können Robots/Spider diese Adresse aufspüren
// und für Spams nutzen. Diesem Umstand kann man gegensteuern.
// Die zwei folgenden Routinen stellen in der Zwischenablage HTML-Code
// zur Verfügung, welcher in den Code der HTML-Seite an entsprechender
// Stelle eingefügt werden kann.

// Getestet mit D4 unter XP

// Variante 1:
// Die Mail-Adresse wird in einzelne Zeichen zerlegt.

uses clipbrd; 
 
function trans(s: string): string; 
var 
  x: integer; 
begin 
  result := ''; 
  for x := 1 to length(s) do 
    result := result + '&#x' + inttohex(ord(s[x]), 2) + ';'; 
end; 
 
function mailto(mail, txt: string): string; 
begin 
  result := '<a href="' + trans('mailto:' + mail) + '">' + #13#10 + 
    trans(txt) + '</a>'; 
end; 
 
// Beispielaufruf 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  clipboard.asText := mailto('webmaster@aol.de', 'Kontakt'); 
end;

// ------------------------------------------------------------------

// Variante 2:
// Die Mail-Adresse wird in Variablen und einzelne Zeichen zerlegt, und
// mittels Javascript eingefügt.

uses clipbrd; 
 
function transd(s: string): string; 
var 
  x: integer; 
begin 
  result := ''; 
  for x := 1 to length(s) do 
    result := result + '&#' + inttostr(ord(s[x])) + ';'; 
end; 
 
function DoNotFindMailAdress(adress, txt: string): string; 
var 
  teil1, teil2: string; 
  p: integer; 
begin 
  p := pos('@', adress); 
  teil1 := transd(copy(adress, 1, p - 1)); 
  teil2 := transd(copy(adress, p + 1, maxint)); 
  result := '<script language="JavaScript">'#13#10 + 
    'var t1="' + teil1 + '";'#13#10 + 
    'var t2="' + teil2 + '";'#13#10 + 
    'document.write(''<a href=\"' + transd('mailto:') + ''' ' + 
    '+ t1 + ''' + transd('@') + ''' + t2 + ''\">' + transd(txt) + 
    '</a>'');'#13#10 + '</script>'; 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  clipboard.astext := DoNotFindMailAdress('webmaster@aol.com', 'Kontakt'); 
end;