Spam Schutz mit Perl/PHP und JS

[root]

Hihi!

Ja! So ist es dann wohl! Ich hatte ja gehofft er bezöge es implizit auf sich selbst...

nun klappts auch!

my $try_cnt = 1;
 my $statt_at = '('.salt(7).')'; # salt() gibt eifach nur eine lustige kombination von Zeichen, der übergebenen Länge, zurück.
 # Eindeutige Zeichenfolge finden, einfach paarmal versuchen.
 while($complete_webpage =~ m/$statt_at/){
  $statt_at = '('.salt(7).')';
  $try_cnt++;
  last if $try_cnt>25; # irgendwann ist auch mal gut.
 }
 if($complete_webpage !~ m/$statt_at/){ # Wenn die Zeichenfolge noch nicht in der Webseite vertreten ist

# auf dem Server ersetzten.
  $complete_webpage =~ s/@/$statt_at/g;

# JS einbauen, dass auf dem Client wieder zurück übersetzt.
  my $js = "</body>\n".
    "<script language="javascript" type="text/javascript">\n".
    " document.getElementsByTagName('body')[0].innerHTML = document.getElementsByTagName('body')[0].innerHTML.replace(/\Q$statt_at\E/g,'@');\n".
    "</script>\n";
  $complete_webpage =~ s/</body>/$js/i;
 }
 #print "brauchte $try_cnt Versuche um einen eindeutigen String zu finden: $statt_at<br>";

Falls es noch wer haben will.