Apache::AntiSpam::SpamTrapApache::AntiSpam::SpamTrap is a Perl module to add SpamTrap suffix to local-part in Email. | |
Download |
Apache::AntiSpam::SpamTrap Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Alex Pleiner
- Publisher web site:
- http://search.cpan.org/~apleiner/Apache-AntiSpam-SpamTrap-0.01/SpamTrap.pm
Apache::AntiSpam::SpamTrap Tags
Apache::AntiSpam::SpamTrap Description
Apache::AntiSpam::SpamTrap is a Perl module to add SpamTrap suffix to local-part in Email. Apache::AntiSpam::SpamTrap is a Perl module to add SpamTrap suffix to local-part in Email.SYNOPSIS # in httpd.conf < Location /antispam > SetHandler perl-script PerlAddVar Key 0123456789ABCDEF PerlHandler Apache::AntiSpam::SpamTrap < /Location > # filter aware PerlModule Apache::Filter SetHandler perl-script PerlSetVar Filter On PerlHandler Apache::RegistryFilter Apache::AntiSpam::SpamTrap Apache::CompressApache::AntiSpam::SpamTrap is a subclass of Apache::AntiSpam, filter module to prevent e-mail addresses exposed as is on web pages. This module adds a Blowfish encrypted string suffix to the local-part of e-mail addresses. This string contains a timestamp and the IP address of the remote host. This enables you to identify a spammer's address harvester by its IP address and take steps to prosecute him.The encryption prevents faking and may help in a prosecuting attemp.For example, apleiner@cpan.org will be filtered to apleiner-78c1ed6da0322b3a@cpan.org.This module is Filter aware, meaning that it can work within Apache::Filter framework without modification.You need to give the Blowfish key in your Apache configuration file.To decode a received mail's SpamTrap string use the following function: sub spamtrap_decode { my ($string, $key) = @_; return unless $key; return unless $string =~ /{16}/o; my $inkey = pack("H16", $key); use Crypt::Blowfish; my $cipher = new Crypt::Blowfish $inkey; my $plaintext = $cipher->decrypt(pack("H*", $string)); my $time = unpack("L", substr($plaintext, 4, 4)); my $ip = join(".", map { ord } split //, substr($plaintext, 0, 4)); return wantarray ? ($ip, $time) : "$ip $time"; } Requirements: · Perl
Apache::AntiSpam::SpamTrap Related Software