UltraNerds.com - Detailed Link for 'Encrypt Emails into their � equivelant'

Title: Encrypt Emails into their � equivelant

Add Date: Sat Jun 26 2004
Mod Date: Sat Jun 26 2004

Type: Global

Author: Andy Newby

Description: This clever global will let you encrypt your email addresses (on the fly), before showing them on web-accessable pages (i.e to stop spiders grabbing them)

Forum URL: http://www.gossamer-threads.com/perl/gforum/gforum.cgi?post=268579#268579

You need to create a new global (you can name it whatever you want). Do this via Build > Template Globals.

<%global_name($Contact_Email)%>

global_name should be replaced with the name you gave your global.

$Contact_Email is the tag that you want to encrypt. This is the default email address field, but it will work on ANY string that is passed through it.

Code

sub { 
 
  my $in = $_[0]; 
  my $strings = q| 
a~097 
b~098 
c~099 
d~100 
e~101 
f~102 
g~103 
h~104 
i~105 
j~106 
k~107 
l~108 
m~109 
n~110 
o~111 
p~112 
q~113 
r~114 
s~115 
t~116 
u~117 
v~118 
w~119 
x~120 
y~121 
z~122 
1~049 
2~050 
3~051 
4~052 
5~053 
6~054 
7~055 
8~056 
9~057 
0~048 
&~038 
 ~032 
_~095 
-~045 
@~064 
.~046 
  |; 
 
  my $back; 
  my @address = split //, $in; # cut the email address up into each charachter... 
  my @strings = split /\n/, $strings; 
 
  foreach (@address) {  
 
    my $next; 
 
    foreach my $s (@strings) { 
 
        next if $next == 1; 
 
        my ($char,$equiv) = split /~/, $s; # get the charachter, and its numerical equiv 
     
        if ($char eq $_) { 
          $char =~ s/\Q$char/$equiv/i; 
          $char = '&#' . $char . ';'; 
          $back .= $char; # add the new replacement to $back 
          $next = 1; 
        } 
 
    } 
 
  } 
 
return $back; 
 
}