Changeset 8823 in project


Ignore:
Timestamp:
02/24/08 19:30:22 (10 years ago)
Author:
svnwiki
Message:

Changes applied for Anonymous (69.70.120.46) through svnwiki:

email obfuscation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/jean-philippe-theberge

    r8820 r8823  
    44The languages used for this project are: Scheme (Chicken, of course), PHP and Javascript.
    55
    6 You can reach by email at: jphiltheberge@gmail.com
     6You can reach by email at:
     7<scheme>(define (string-join items delim)
     8  (if (null? items)
     9      ""
     10      (let loop ((result '())
     11                 (items items))
     12        (if (null? items)
     13            (apply string-append (reverse (cdr result)))
     14            (loop (cons delim (cons (car items) result))
     15                  (cdr items))))))
     16
     17(define (mailto mail)
     18  (let ((estr (string-join (map (lambda (c)
     19                                  (number->string (char->integer c)))
     20                                (string->list mail)) ",")))
     21    (print (string-append "<script type=\"text/javascript\">\n"
     22                          "document.write(String.fromCharCode(60,97,32,104,114,101,102,61,34,109,97,105,108,116,111,58,"
     23                          estr
     24                          ",34,62,"
     25                          estr
     26                          ",60,47,97,62))"
     27                          "\n</script>"))))
     28(mailto "jphiltheberge@gmail.com")
     29</scheme>
    730
    831 
Note: See TracChangeset for help on using the changeset viewer.