Was tun gegen Spam durch Formmailer

[Kim]

Hallo liebe SelfHTML-Gemeinde,

vor rund zwei Wochen fragte ich hier bereits nach Hilfe da ich über meinen Formmailer Spam erhielt. Da die Email-Adresse fest eingestellt ist, betrifft der Spam nur mich, doch bei bis zu 700 Spam-Mails pro Tag ist das wirklich nervig...

Mir wurde hier das SelfHTML Formmailerscript empfohlen, welches ich dann auch verwendete. Leider brachte dies jedoch keinerlei Verbesserung und ich erhalte nach wie vor in völlig unregelmäßigen Abständen Spam durch meinen Formmailer.

Der Spam sieht so aus, dass er zufälligen englischen Text enthält (keine Links).

Das einzige was ich am Script änderte war die Einfügung des Abenders mit $antwort = $query->param('Email');  # ---> Absender - der Rest ist unverändert (Email und Link zur Dankesseite wurden natürlich auch geändert).

Ich bin schon richtig verzweifelt und weiß nicht was ich machen soll. Kann mir jemand hier einen Tipp geben?

Hier das Perl-Script von SelfHTML welches ich momentan verwende:

#!/usr/bin/perl

-------> Individuelle Parameter des Skriptes - bitte anpassen!

--> SMTP-Programm zum Versenden der Mail:

$Sendmail_Prog = "/usr/lib/sendmail";

--> Ziel-Mailadresse, an die gesendet werden soll:

$mailto = "[e-mail]";

-------> Modul für CGI-Scripts einbinden:

use CGI;

-------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:

$query = new CGI;
@names = $query->param;

-------> interne Daten aus den erwarteten hidden-Feldern auslesen:

$delimiter = $query->param('delimiter');  # ---> Begrenzerzeichen zwischen name und value
$returnhtml = "http://www.xxxxx.de/danke.html";    # ---> URL für Dankeseite
$subject = "Formmailer";      # ---> E-Mail-Subject
$antwort = $query->param('Email');  # ---> Absender

-------> alle Whitespace-Zeichen (Leerzeichen, Tabulator, Newline) in Leerzeichen wandeln

#             VERHINDERT sonst möglichen MISSBRAUCH des Skripts
$subject =~ s/\s/ /g;

-------> Text der E-Mail aus den Formulardaten ermitteln:

$mailtext = "";
foreach(@names) {
  $name = $_;
  @values = "";
  @values = $query->param($name);
  if($name ne "return" && $name ne "subject" && $name ne "delimiter") {
    foreach $value (@values) {
      $mailtext = $mailtext.$name;
      $mailtext = $mailtext.$delimiter;
      $mailtext = $mailtext.$value."\n";
    }
  }
}

-------> E-Mail versenden:

open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "From: $antwort\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);

-------> Dankeseite an Browser senden:

print "Location: $returnhtml\n\n";