Loading ...
Sorry, an error occurred while loading the content.
 

Re: [NH] Clip to change @ to HTML numeric equivelant in Email addresses, afetr making into a LINK

Expand Messages
  • marker@us421.com
    Hi Jeffrey, Somewhere in my travels I found a clip someone had written called HideEmail. It converts anything you select to ASCII. In my experiments, the
    Message 1 of 8 , Oct 8, 2005
      Hi Jeffrey,

      Somewhere in my travels I found a clip someone had written called
      HideEmail. It converts anything you select to ASCII. In my
      experiments, the conversion only completely protects the address if
      you convert the mailto as well, for example:

      <a href="mailto:me@...">me@...</a> would become

      <a
      href="mailto:me@e&
      #120;ample.com">me
      @example.com</
      a>

      I would like to be able to tell you where I got the clip, but there is
      no link. The author is Christopher Dray. I hope it is appropriate to
      copy it here.
      Karen
      NOTE: This clip only converts printable characters from the lower 128
      characters of the ISO 8859-1 character set (ASCII).

      Convert
      ^!Set %selection%=^$GetSelection$

      ^!IF ^$GetSelSize$ > 0 PROCESS

      ^!Prompt You have not made a selection!
      ^!Goto EXIT

      :PROCESS

      ^!Set %asciiset%=" !
      #$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh
      ijklmnopqrstuvwxyz{|}~"
      ^!Set %dblquote%="
      ^!Set %equlsign%==
      ^!Set %grtrthan%=>

      ^!Set %length%=^$StrSize(^%selection%)$
      ^!Set %index%=1
      ^!Set %replacement%=^%EMPTY%

      :CONVERTLOOP

      ^!Set %char%=^$StrIndex(^%selection%;^%index%)$

      ^!IF "^%char%" <> "^%dblquote%" LOOKUP

      ^!Set %value%=34
      ^!Goto APPENDVALUE

      :LOOKUP

      ^!Set %value%=^$StrPos(^%char%;^%asciiset%;True)$
      ^!Inc %value% 31

      ^!IfInRange ^%value% 32..126 APPENDVALUE

      ^!Set %value%=32

      :APPENDVALUE

      ^!Append %replacement%="&#"
      ^!Append %replacement%=^%value%
      ^!Append %replacement%=^%SC%

      :SKIPAPPEND

      ^!Inc %index%
      ^!IF ^%index% <= ^%length% CONVERTLOOP

      ^%replacement%

      On Sat, 08 Oct 2005 11:26:37 -0700, Jeffery Scism brightened my day
      with:
      > This is reported to reduce harvesting of email addresses from
      > websites.
      >
      > Another (more effective) way is to convert all text in the link to
      > html
      > Numeric equivalents, but I don't know how to do that in a clip.
    • Rudolf Horbas
      Hi Jeffery, ... There s a clip by Chris Barnhill that does exacly that. As the URI in the clip:about is no longer valid, I ll post the clip here (kind of
      Message 2 of 8 , Oct 8, 2005
        Hi Jeffery,

        > Another (more effective) way is to convert all text in the link to html
        > Numeric equivalents, but I don't know how to do that in a clip.

        There's a clip by Chris Barnhill that does exacly that.
        As the URI in the clip:about is no longer valid, I'll post the clip here
        (kind of longish, but ist works well).

        (Hope the specialchars survive mail transport.)

        HTH,
        Rudi

        H=";About This Library"
        Created by: Chris Barnhill
        scorpio@...
        http;//www.txdirect.net/~scorpio

        To encode the characters in a document to their HTML equivalents, simply
        select the text and then run the clip "ASCII - HTML". To decode HTML
        characters, select the code and then click "HTML - ASCII".

        This clip can be very useful in disguising information on a web page
        from certain types of bots on the internet as well as making it
        difficult for others to steal code from your web page.

        H="ASCII - HTML"
        ^!REPLACE "&" >> "*&*" HTSA
        ^!REPLACE "#" >> "*#*" HTSA
        ^!REPLACE ";" >> "*;*" HTSA
        ^!REPLACE "*&*" >> "&" HTSA
        ^!REPLACE "*#*" >> "#" HTSA
        ^!REPLACE "*;*" >> ";" HTSA
        ^!REPLACE "1" >> "*1*" HTSA
        ^!REPLACE "2" >> "*2*" HTSA
        ^!REPLACE "3" >> "*3*" HTSA
        ^!REPLACE "4" >> "*4*" HTSA
        ^!REPLACE "5" >> "*5*" HTSA
        ^!REPLACE "6" >> "*6*" HTSA
        ^!REPLACE "7" >> "*7*" HTSA
        ^!REPLACE "8" >> "*8*" HTSA
        ^!REPLACE "9" >> "*9*" HTSA
        ^!REPLACE "0" >> "*0*" HTSA
        ^!REPLACE "*1*" >> "1" HTSA
        ^!REPLACE "*2*" >> "2" HTSA
        ^!REPLACE "*3*" >> "3" HTSA
        ^!REPLACE "*4*" >> "4" HTSA
        ^!REPLACE "*5*" >> "5" HTSA
        ^!REPLACE "*6*" >> "6" HTSA
        ^!REPLACE "*7*" >> "7" HTSA
        ^!REPLACE "*8*" >> "8" HTSA
        ^!REPLACE "*9*" >> "9" HTSA
        ^!REPLACE "*0*" >> "0" HTSA
        ^!REPLACE "&#38;" >> "&" HTSA
        ^!REPLACE "&#59;" >> ";" HTSA
        ^!REPLACE "&#35;" >> "#" HTSA
        ^!REPLACE "." >> "." HTSA
        ^!REPLACE "/" >> "/" HTSA
        ^!REPLACE "@" >> "@" HTSA
        ^!REPLACE """ >> """ HTSA
        ^!REPLACE "'" >> "'" HTSA
        ^!REPLACE "(" >> "(" HTSA
        ^!REPLACE ")" >> ")" HTSA
        ^!REPLACE "[" >> "[" HTSA
        ^!REPLACE "\" >> "\" HTSA
        ^!REPLACE "]" >> "]" HTSA
        ^!REPLACE ":" >> ":" HTSA
        ^!REPLACE "<" >> "<" HTSA
        ^!REPLACE "=" >> "=" HTSA
        ^!REPLACE ">" >> ">" HTSA
        ^!REPLACE "}" >> "}" HTSA
        ^!REPLACE "{" >> "{" HTSA
        ^!REPLACE "~" >> "~" HTSA
        ^!REPLACE "‘" >> "‘" HTSA
        ^!REPLACE "’" >> "’" HTSA
        ^!REPLACE " " >> " " HTSA
        ^!REPLACE "!" >> "!" HTSA
        ^!REPLACE "$" >> "$" HTSA
        ^!REPLACE "%" >> "%" HTSA
        ^!REPLACE "*" >> "*" HTSA
        ^!REPLACE "+" >> "+" HTSA
        ^!REPLACE "," >> "," HTSA
        ^!REPLACE "-" >> "-" HTSA
        ^!REPLACE "^" >> "^" HTSA
        ^!REPLACE "_" >> "_" HTSA
        ^!REPLACE "`" >> "`" HTSA
        ^!REPLACE "?" >> "?" HTSA
        ^!REPLACE "|" >> "|" HTSA
        ^!REPLACE "€" >> "€" HTSA
        ^!REPLACE "‚" >> "‚" HTSA
        ^!REPLACE "ƒ" >> "ƒ" HTSA
        ^!REPLACE "„" >> "„" HTSA
        ^!REPLACE "…" >> "…" HTSA
        ^!REPLACE "†" >> "†" HTSA
        ^!REPLACE "‡" >> "‡" HTSA
        ^!REPLACE "ˆ" >> "ˆ" HTSA
        ^!REPLACE "‰" >> "‰" HTSA
        ^!REPLACE "Š" >> "Š" HTSA
        ^!REPLACE "‹" >> "‹" HTSA
        ^!REPLACE "Œ" >> "Œ" HTSA
        ^!REPLACE "Ž" >> "Ž" HTSA
        ^!REPLACE "“" >> "“" HTSA
        ^!REPLACE "”" >> "”" HTSA
        ^!REPLACE "•" >> "•" HTSA
        ^!REPLACE "–" >> "–" HTSA
        ^!REPLACE "—" >> "—" HTSA
        ^!REPLACE "˜" >> "˜" HTSA
        ^!REPLACE "™" >> "™" HTSA
        ^!REPLACE "š" >> "š" HTSA
        ^!REPLACE "›" >> "›" HTSA
        ^!REPLACE "œ" >> "œ" HTSA
        ^!REPLACE "ž" >> "ž" HTSA
        ^!REPLACE "Ÿ" >> "Ÿ" HTSA
        ^!REPLACE "¡" >> "¡" HTSA
        ^!REPLACE "¢" >> "¢" HTSA
        ^!REPLACE "£" >> "£" HTSA
        ^!REPLACE "¤" >> "¤" HTSA
        ^!REPLACE "¥" >> "¥" HTSA
        ^!REPLACE "¦" >> "¦" HTSA
        ^!REPLACE "§" >> "§" HTSA
        ^!REPLACE "¨" >> "¨" HTSA
        ^!REPLACE "©" >> "©" HTSA
        ^!REPLACE "ª" >> "ª" HTSA
        ^!REPLACE "«" >> "«" HTSA
        ^!REPLACE "¬" >> "¬" HTSA
        ^!REPLACE "­" >> "­" HTSA
        ^!REPLACE "®" >> "®" HTSA
        ^!REPLACE "¯" >> "¯" HTSA
        ^!REPLACE "°" >> "°" HTSA
        ^!REPLACE "±" >> "±" HTSA
        ^!REPLACE "²" >> "²" HTSA
        ^!REPLACE "³" >> "³" HTSA
        ^!REPLACE "´" >> "´" HTSA
        ^!REPLACE "µ" >> "µ" HTSA
        ^!REPLACE "¶" >> "¶" HTSA
        ^!REPLACE "·" >> "·" HTSA
        ^!REPLACE "¸" >> "¸" HTSA
        ^!REPLACE "¹" >> "¹" HTSA
        ^!REPLACE "º" >> "º" HTSA
        ^!REPLACE "»" >> "»" HTSA
        ^!REPLACE "¼" >> "¼" HTSA
        ^!REPLACE "½" >> "½" HTSA
        ^!REPLACE "¾" >> "¾" HTSA
        ^!REPLACE "¿" >> "¿" HTSA
        ^!REPLACE "Þ" >> "Þ" HTSA
        ^!REPLACE "÷" >> "÷" HTSA
        ^!REPLACE "ø" >> "ø" HTSA
        ^!REPLACE "þ" >> "þ" HTSA
        ^!REPLACE "æ" >> "æ" HTSA
        ^!REPLACE "ß" >> "ß" HTSA
        ^!REPLACE "×" >> "×" HTSA
        ^!REPLACE "Ø" >> "Ø" HTSA
        ^!REPLACE "Ð" >> "Ð" HTSA
        ^!REPLACE "Æ" >> "Æ" HTSA
        ^!REPLACE "A" >> "A" HTSA
        ^!REPLACE "B" >> "B" HTSA
        ^!REPLACE "C" >> "C" HTSA
        ^!REPLACE "D" >> "D" HTSA
        ^!REPLACE "E" >> "E" HTSA
        ^!REPLACE "F" >> "F" HTSA
        ^!REPLACE "G" >> "G" HTSA
        ^!REPLACE "H" >> "H" HTSA
        ^!REPLACE "I" >> "I" HTSA
        ^!REPLACE "J" >> "J" HTSA
        ^!REPLACE "K" >> "K" HTSA
        ^!REPLACE "L" >> "L" HTSA
        ^!REPLACE "M" >> "M" HTSA
        ^!REPLACE "N" >> "N" HTSA
        ^!REPLACE "O" >> "O" HTSA
        ^!REPLACE "P" >> "P" HTSA
        ^!REPLACE "Q" >> "Q" HTSA
        ^!REPLACE "R" >> "R" HTSA
        ^!REPLACE "S" >> "S" HTSA
        ^!REPLACE "T" >> "T" HTSA
        ^!REPLACE "U" >> "U" HTSA
        ^!REPLACE "V" >> "V" HTSA
        ^!REPLACE "W" >> "W" HTSA
        ^!REPLACE "X" >> "X" HTSA
        ^!REPLACE "Y" >> "Y" HTSA
        ^!REPLACE "Z" >> "Z" HTSA
        ^!REPLACE "a" >> "a" HTSA
        ^!REPLACE "b" >> "b" HTSA
        ^!REPLACE "c" >> "c" HTSA
        ^!REPLACE "d" >> "d" HTSA
        ^!REPLACE "e" >> "e" HTSA
        ^!REPLACE "f" >> "f" HTSA
        ^!REPLACE "g" >> "g" HTSA
        ^!REPLACE "h" >> "h" HTSA
        ^!REPLACE "i" >> "i" HTSA
        ^!REPLACE "j" >> "j" HTSA
        ^!REPLACE "k" >> "k" HTSA
        ^!REPLACE "l" >> "l" HTSA
        ^!REPLACE "m" >> "m" HTSA
        ^!REPLACE "n" >> "n" HTSA
        ^!REPLACE "o" >> "o" HTSA
        ^!REPLACE "p" >> "p" HTSA
        ^!REPLACE "q" >> "q" HTSA
        ^!REPLACE "r" >> "r" HTSA
        ^!REPLACE "s" >> "s" HTSA
        ^!REPLACE "t" >> "t" HTSA
        ^!REPLACE "u" >> "u" HTSA
        ^!REPLACE "v" >> "v" HTSA
        ^!REPLACE "w" >> "w" HTSA
        ^!REPLACE "x" >> "x" HTSA
        ^!REPLACE "y" >> "y" HTSA
        ^!REPLACE "z" >> "z" HTSA
        ^!REPLACE "À" >> "À" HTSA
        ^!REPLACE "Á" >> "Á" HTSA
        ^!REPLACE "Â" >> "Â" HTSA
        ^!REPLACE "Ã" >> "Ã" HTSA
        ^!REPLACE "Ä" >> "Ä" HTSA
        ^!REPLACE "Å" >> "Å" HTSA
        ^!REPLACE "Ç" >> "Ç" HTSA
        ^!REPLACE "È" >> "È" HTSA
        ^!REPLACE "É" >> "É" HTSA
        ^!REPLACE "Ê" >> "Ê" HTSA
        ^!REPLACE "Ë" >> "Ë" HTSA
        ^!REPLACE "Ì" >> "Ì" HTSA
        ^!REPLACE "Í" >> "Í" HTSA
        ^!REPLACE "Î" >> "Î" HTSA
        ^!REPLACE "Ï" >> "Ï" HTSA
        ^!REPLACE "Ñ" >> "Ñ" HTSA
        ^!REPLACE "Ò" >> "Ò" HTSA
        ^!REPLACE "Ó" >> "Ó" HTSA
        ^!REPLACE "Ô" >> "Ô" HTSA
        ^!REPLACE "Õ" >> "Õ" HTSA
        ^!REPLACE "Ö" >> "Ö" HTSA
        ^!REPLACE "Ù" >> "Ù" HTSA
        ^!REPLACE "Ú" >> "Ú" HTSA
        ^!REPLACE "Û" >> "Û" HTSA
        ^!REPLACE "Ü" >> "Ü" HTSA
        ^!REPLACE "Ý" >> "Ý" HTSA
        ^!REPLACE "à" >> "à" HTSA
        ^!REPLACE "á" >> "á" HTSA
        ^!REPLACE "â" >> "â" HTSA
        ^!REPLACE "ã" >> "ã" HTSA
        ^!REPLACE "ä" >> "ä" HTSA
        ^!REPLACE "å" >> "å" HTSA
        ^!REPLACE "ç" >> "ç" HTSA
        ^!REPLACE "è" >> "è" HTSA
        ^!REPLACE "é" >> "é" HTSA
        ^!REPLACE "ê" >> "ê" HTSA
        ^!REPLACE "ë" >> "ë" HTSA
        ^!REPLACE "ì" >> "ì" HTSA
        ^!REPLACE "í" >> "í" HTSA
        ^!REPLACE "î" >> "î" HTSA
        ^!REPLACE "ï" >> "ï" HTSA
        ^!REPLACE "ð" >> "ð" HTSA
        ^!REPLACE "ñ" >> "ñ" HTSA
        ^!REPLACE "ò" >> "ò" HTSA
        ^!REPLACE "ó" >> "ó" HTSA
        ^!REPLACE "ô" >> "ô" HTSA
        ^!REPLACE "õ" >> "õ" HTSA
        ^!REPLACE "ö" >> "ö" HTSA
        ^!REPLACE "ù" >> "ù" HTSA
        ^!REPLACE "ú" >> "ú" HTSA
        ^!REPLACE "û" >> "û" HTSA
        ^!REPLACE "ü" >> "ü" HTSA
        ^!REPLACE "ý" >> "ý" HTSA
        ^!REPLACE "ÿ" >> "ÿ" HTSA

        H="HTML - ASCII"
        ^!REPLACE "A" >> "A" HTSA
        ^!REPLACE "B" >> "B" HTSA
        ^!REPLACE "C" >> "C" HTSA
        ^!REPLACE "D" >> "D" HTSA
        ^!REPLACE "E" >> "E" HTSA
        ^!REPLACE "F" >> "F" HTSA
        ^!REPLACE "G" >> "G" HTSA
        ^!REPLACE "H" >> "H" HTSA
        ^!REPLACE "I" >> "I" HTSA
        ^!REPLACE "J" >> "J" HTSA
        ^!REPLACE "K" >> "K" HTSA
        ^!REPLACE "L" >> "L" HTSA
        ^!REPLACE "M" >> "M" HTSA
        ^!REPLACE "N" >> "N" HTSA
        ^!REPLACE "O" >> "O" HTSA
        ^!REPLACE "P" >> "P" HTSA
        ^!REPLACE "Q" >> "Q" HTSA
        ^!REPLACE "R" >> "R" HTSA
        ^!REPLACE "S" >> "S" HTSA
        ^!REPLACE "T" >> "T" HTSA
        ^!REPLACE "U" >> "U" HTSA
        ^!REPLACE "V" >> "V" HTSA
        ^!REPLACE "W" >> "W" HTSA
        ^!REPLACE "X" >> "X" HTSA
        ^!REPLACE "Y" >> "Y" HTSA
        ^!REPLACE "Z" >> "Z" HTSA
        ^!REPLACE "a" >> "a" HTSA
        ^!REPLACE "b" >> "b" HTSA
        ^!REPLACE "c" >> "c" HTSA
        ^!REPLACE "d" >> "d" HTSA
        ^!REPLACE "e" >> "e" HTSA
        ^!REPLACE "f" >> "f" HTSA
        ^!REPLACE "g" >> "g" HTSA
        ^!REPLACE "h" >> "h" HTSA
        ^!REPLACE "i" >> "i" HTSA
        ^!REPLACE "j" >> "j" HTSA
        ^!REPLACE "k" >> "k" HTSA
        ^!REPLACE "l" >> "l" HTSA
        ^!REPLACE "m" >> "m" HTSA
        ^!REPLACE "n" >> "n" HTSA
        ^!REPLACE "o" >> "o" HTSA
        ^!REPLACE "p" >> "p" HTSA
        ^!REPLACE "q" >> "q" HTSA
        ^!REPLACE "r" >> "r" HTSA
        ^!REPLACE "s" >> "s" HTSA
        ^!REPLACE "t" >> "t" HTSA
        ^!REPLACE "u" >> "u" HTSA
        ^!REPLACE "v" >> "v" HTSA
        ^!REPLACE "w" >> "w" HTSA
        ^!REPLACE "x" >> "x" HTSA
        ^!REPLACE "y" >> "y" HTSA
        ^!REPLACE "." >> "." HTSA
        ^!REPLACE "/" >> "/" HTSA
        ^!REPLACE "@" >> "@" HTSA
        ^!REPLACE """ >> """ HTSA
        ^!REPLACE "'" >> "'" HTSA
        ^!REPLACE "(" >> "(" HTSA
        ^!REPLACE ")" >> ")" HTSA
        ^!REPLACE "[" >> "[" HTSA
        ^!REPLACE "\" >> "\" HTSA
        ^!REPLACE "]" >> "]" HTSA
        ^!REPLACE ":" >> ":" HTSA
        ^!REPLACE "<" >> "<" HTSA
        ^!REPLACE "=" >> "=" HTSA
        ^!REPLACE ">" >> ">" HTSA
        ^!REPLACE "}" >> "}" HTSA
        ^!REPLACE "{" >> "{" HTSA
        ^!REPLACE "~" >> "~" HTSA
        ^!REPLACE "‘" >> "‘" HTSA
        ^!REPLACE "’" >> "’" HTSA
        ^!REPLACE " " >> " " HTSA
        ^!REPLACE "!" >> "!" HTSA
        ^!REPLACE "$" >> "$" HTSA
        ^!REPLACE "%" >> "%" HTSA
        ^!REPLACE "*" >> "*" HTSA
        ^!REPLACE "+" >> "+" HTSA
        ^!REPLACE "," >> "," HTSA
        ^!REPLACE "-" >> "-" HTSA
        ^!REPLACE "^" >> "^" HTSA
        ^!REPLACE "_" >> "_" HTSA
        ^!REPLACE "`" >> "`" HTSA
        ^!REPLACE "?" >> "?" HTSA
        ^!REPLACE "|" >> "|" HTSA
        ^!REPLACE "€" >> "€" HTSA
        ^!REPLACE "‚" >> "‚" HTSA
        ^!REPLACE "ƒ" >> "ƒ" HTSA
        ^!REPLACE "„" >> "„" HTSA
        ^!REPLACE "…" >> "…" HTSA
        ^!REPLACE "†" >> "†" HTSA
        ^!REPLACE "‡" >> "‡" HTSA
        ^!REPLACE "ˆ" >> "ˆ" HTSA
        ^!REPLACE "‰" >> "‰" HTSA
        ^!REPLACE "Š" >> "Š" HTSA
        ^!REPLACE "‹" >> "‹" HTSA
        ^!REPLACE "Œ" >> "Œ" HTSA
        ^!REPLACE "Ž" >> "Ž" HTSA
        ^!REPLACE "“" >> "“" HTSA
        ^!REPLACE "”" >> "”" HTSA
        ^!REPLACE "•" >> "•" HTSA
        ^!REPLACE "–" >> "–" HTSA
        ^!REPLACE "—" >> "—" HTSA
        ^!REPLACE "˜" >> "˜" HTSA
        ^!REPLACE "™" >> "™" HTSA
        ^!REPLACE "š" >> "š" HTSA
        ^!REPLACE "›" >> "›" HTSA
        ^!REPLACE "œ" >> "œ" HTSA
        ^!REPLACE "ž" >> "ž" HTSA
        ^!REPLACE "Ÿ" >> "Ÿ" HTSA
        ^!REPLACE "¡" >> "¡" HTSA
        ^!REPLACE "¢" >> "¢" HTSA
        ^!REPLACE "£" >> "£" HTSA
        ^!REPLACE "¤" >> "¤" HTSA
        ^!REPLACE "¥" >> "¥" HTSA
        ^!REPLACE "¦" >> "¦" HTSA
        ^!REPLACE "§" >> "§" HTSA
        ^!REPLACE "¨" >> "¨" HTSA
        ^!REPLACE "©" >> "©" HTSA
        ^!REPLACE "ª" >> "ª" HTSA
        ^!REPLACE "«" >> "«" HTSA
        ^!REPLACE "¬" >> "¬" HTSA
        ^!REPLACE "­" >> "­" HTSA
        ^!REPLACE "®" >> "®" HTSA
        ^!REPLACE "¯" >> "¯" HTSA
        ^!REPLACE "°" >> "°" HTSA
        ^!REPLACE "±" >> "±" HTSA
        ^!REPLACE "²" >> "²" HTSA
        ^!REPLACE "³" >> "³" HTSA
        ^!REPLACE "´" >> "´" HTSA
        ^!REPLACE "µ" >> "µ" HTSA
        ^!REPLACE "¶" >> "¶" HTSA
        ^!REPLACE "·" >> "·" HTSA
        ^!REPLACE "¸" >> "¸" HTSA
        ^!REPLACE "¹" >> "¹" HTSA
        ^!REPLACE "º" >> "º" HTSA
        ^!REPLACE "»" >> "»" HTSA
        ^!REPLACE "¼" >> "¼" HTSA
        ^!REPLACE "½" >> "½" HTSA
        ^!REPLACE "¾" >> "¾" HTSA
        ^!REPLACE "¿" >> "¿" HTSA
        ^!REPLACE "Þ" >> "Þ" HTSA
        ^!REPLACE "÷" >> "÷" HTSA
        ^!REPLACE "ø" >> "ø" HTSA
        ^!REPLACE "þ" >> "þ" HTSA
        ^!REPLACE "æ" >> "æ" HTSA
        ^!REPLACE "ß" >> "ß" HTSA
        ^!REPLACE "×" >> "×" HTSA
        ^!REPLACE "Ø" >> "Ø" HTSA
        ^!REPLACE "Ð" >> "Ð" HTSA
        ^!REPLACE "z" >> "z" HTSA
        ^!REPLACE "À" >> "À" HTSA
        ^!REPLACE "Á" >> "Á" HTSA
        ^!REPLACE "Â" >> "Â" HTSA
        ^!REPLACE "Ã" >> "Ã" HTSA
        ^!REPLACE "Ä" >> "Ä" HTSA
        ^!REPLACE "Å" >> "Å" HTSA
        ^!REPLACE "Æ" >> "Æ" HTSA
        ^!REPLACE "Ç" >> "Ç" HTSA
        ^!REPLACE "È" >> "È" HTSA
        ^!REPLACE "É" >> "É" HTSA
        ^!REPLACE "Ê" >> "Ê" HTSA
        ^!REPLACE "Ë" >> "Ë" HTSA
        ^!REPLACE "Ì" >> "Ì" HTSA
        ^!REPLACE "Í" >> "Í" HTSA
        ^!REPLACE "Î" >> "Î" HTSA
        ^!REPLACE "Ï" >> "Ï" HTSA
        ^!REPLACE "Ñ" >> "Ñ" HTSA
        ^!REPLACE "Ò" >> "Ò" HTSA
        ^!REPLACE "Ó" >> "Ó" HTSA
        ^!REPLACE "Ô" >> "Ô" HTSA
        ^!REPLACE "Õ" >> "Õ" HTSA
        ^!REPLACE "Ö" >> "Ö" HTSA
        ^!REPLACE "Ù" >> "Ù" HTSA
        ^!REPLACE "Ú" >> "Ú" HTSA
        ^!REPLACE "Û" >> "Û" HTSA
        ^!REPLACE "Ü" >> "Ü" HTSA
        ^!REPLACE "Ý" >> "Ý" HTSA
        ^!REPLACE "à" >> "à" HTSA
        ^!REPLACE "á" >> "á" HTSA
        ^!REPLACE "â" >> "â" HTSA
        ^!REPLACE "ã" >> "ã" HTSA
        ^!REPLACE "ä" >> "ä" HTSA
        ^!REPLACE "å" >> "å" HTSA
        ^!REPLACE "ç" >> "ç" HTSA
        ^!REPLACE "è" >> "è" HTSA
        ^!REPLACE "é" >> "é" HTSA
        ^!REPLACE "ê" >> "ê" HTSA
        ^!REPLACE "ë" >> "ë" HTSA
        ^!REPLACE "ì" >> "ì" HTSA
        ^!REPLACE "í" >> "í" HTSA
        ^!REPLACE "î" >> "î" HTSA
        ^!REPLACE "ï" >> "ï" HTSA
        ^!REPLACE "ð" >> "ð" HTSA
        ^!REPLACE "ñ" >> "ñ" HTSA
        ^!REPLACE "ò" >> "ò" HTSA
        ^!REPLACE "ó" >> "ó" HTSA
        ^!REPLACE "ô" >> "ô" HTSA
        ^!REPLACE "õ" >> "õ" HTSA
        ^!REPLACE "ö" >> "ö" HTSA
        ^!REPLACE "ù" >> "ù" HTSA
        ^!REPLACE "ú" >> "ú" HTSA
        ^!REPLACE "û" >> "û" HTSA
        ^!REPLACE "ü" >> "ü" HTSA
        ^!REPLACE "ý" >> "ý" HTSA
        ^!REPLACE "ÿ" >> "ÿ" HTSA
        ^!REPLACE "1" >> "1" HTSA
        ^!REPLACE "2" >> "2" HTSA
        ^!REPLACE "3" >> "3" HTSA
        ^!REPLACE "4" >> "4" HTSA
        ^!REPLACE "5" >> "5" HTSA
        ^!REPLACE "6" >> "6" HTSA
        ^!REPLACE "7" >> "7" HTSA
        ^!REPLACE "8" >> "8" HTSA
        ^!REPLACE "9" >> "9" HTSA
        ^!REPLACE "0" >> "0" HTSA
        ^!REPLACE "&" >> "&" HTSA
        ^!REPLACE "#" >> "#" HTSA
        ^!REPLACE ";" >> ";" HTSA
      • Jeffery Scism
        Doesn t work for me. Hangs up on getting the selection. (claims no selection was made then exits) deleted Getselection size step, and it fails to convert, but
        Message 3 of 8 , Oct 8, 2005
          Doesn't work for me. Hangs up on getting the selection. (claims no
          selection was made then exits)

          deleted Getselection size step, and it fails to convert, but prints out
          the charactor string as plain text (abcdefg....)

          ~~

          Jeffery G. Scism, IBSSG
          Local Coordinator Representative,
          NE/NC Region, USGenWeb Project

          http://usgenweb.org/





          marker@... wrote:

          >Hi Jeffrey,
          >
          >Somewhere in my travels I found a clip someone had written called
          >HideEmail. It converts anything you select to ASCII. In my
          >experiments, the conversion only completely protects the address if
          >you convert the mailto as well, for example:
          >
          ><a href="mailto:me@...">me@...</a> would become
          >
          ><a
          >href="mailto:me@e&
          >#120;ample.com">me
          >@example.com</
          >a>
          >
          >I would like to be able to tell you where I got the clip, but there is
          >no link. The author is Christopher Dray. I hope it is appropriate to
          >copy it here.
          >Karen
          >NOTE: This clip only converts printable characters from the lower 128
          >characters of the ISO 8859-1 character set (ASCII).
          >
          >Convert
          >^!Set %selection%=^$GetSelection$
          >
          >^!IF ^$GetSelSize$ > 0 PROCESS
          >
          >^!Prompt You have not made a selection!
          >^!Goto EXIT
          >
          >:PROCESS
          >
          >^!Set %asciiset%=" !
          >#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh
          >ijklmnopqrstuvwxyz{|}~"
          >^!Set %dblquote%="
          >^!Set %equlsign%==
          >^!Set %grtrthan%=>
          >
          >^!Set %length%=^$StrSize(^%selection%)$
          >^!Set %index%=1
          >^!Set %replacement%=^%EMPTY%
          >
          >:CONVERTLOOP
          >
          >^!Set %char%=^$StrIndex(^%selection%;^%index%)$
          >
          >^!IF "^%char%" <> "^%dblquote%" LOOKUP
          >
          >^!Set %value%=34
          >^!Goto APPENDVALUE
          >
          >:LOOKUP
          >
          >^!Set %value%=^$StrPos(^%char%;^%asciiset%;True)$
          >^!Inc %value% 31
          >
          >^!IfInRange ^%value% 32..126 APPENDVALUE
          >
          >^!Set %value%=32
          >
          >:APPENDVALUE
          >
          >^!Append %replacement%="&#"
          >^!Append %replacement%=^%value%
          >^!Append %replacement%=^%SC%
          >
          >:SKIPAPPEND
          >
          >^!Inc %index%
          >^!IF ^%index% <= ^%length% CONVERTLOOP
          >
          >^%replacement%
          >
          > On Sat, 08 Oct 2005 11:26:37 -0700, Jeffery Scism brightened my day
          >with:
          >
          >
          >>This is reported to reduce harvesting of email addresses from
          >>websites.
          >>
          >>Another (more effective) way is to convert all text in the link to
          >>html
          >>Numeric equivalents, but I don't know how to do that in a clip.
          >>
          >>
          >
          >
          >
          >
          >
          >
          >
          >CSE HTML Validator Lite - it's free: http://home.earthlink.net/~5wink/dl/cselite652.exe
          >
          >Fookes Software Home: http://www.fookes.us/redir
          >
          >Yahoo! Groups Links
          >
          >
          >
          >
          >
          >
          >
          >
          >
          >
          >
          >


          [Non-text portions of this message have been removed]
        • marker@us421.com
          No doubt the problem is with me, as I am nowhere near the clip guru :) could this possibly work? I uploaded the clip to http://us421.com/HideEmail.clb and also
          Message 4 of 8 , Oct 8, 2005
            No doubt the problem is with me, as I am nowhere near the clip guru :)

            could this possibly work? I uploaded the clip to
            http://us421.com/HideEmail.clb and also created a zip and put it at
            http://us421.com/HideEmail.zip

            Maybe that helps.

            Karen

            On Sat, 08 Oct 2005 19:22:15 -0700, Jeffery Scism brightened my day
            with:
            > Doesn't work for me.
            > Jeffery G. Scism, IBSSG

            >> The author is Christopher Dray.
          • loro
            I ve used one by another Christopher. Found here: Lotta
            Message 5 of 8 , Oct 8, 2005
              I've used one by another Christopher. Found here:
              <http://notetab.com/html.php#Utilities>
              <http://notetab.com/clipbooks/hideemail.zip>

              Lotta
            • hsavage
              ... Karen, I was about to write a long boring email about trying this before. I decided to cut it short. I doubt very much if this method will serve it s
              Message 6 of 8 , Oct 8, 2005
                marker@... wrote:
                > No doubt the problem is with me, as I am nowhere near the clip guru :)
                >
                > could this possibly work? I uploaded the clip to
                > http://us421.com/HideEmail.clb and also created a zip and put it at
                > http://us421.com/HideEmail.zip
                >
                > Maybe that helps.
                >
                > Karen

                Karen,

                I was about to write a long boring email about trying this before. I
                decided to cut it short.

                I doubt very much if this method will serve it's purpose. By the time
                the clip was written, mid 99, the scavengers, I think they're called
                'mail crawlers',were probably already defeating this conversion.

                ºvº
                05.10.08
                hrs > hsavage@...
              • Leigh Harrison
                _____________________________________________________________ hsavage wrote ... It s not a clip, but I ve been using Dan Benjamin s Hiveware Enkoder -
                Message 7 of 8 , Oct 8, 2005
                  _____________________________________________________________



                  hsavage wrote

                  > I doubt very much if this method will serve it's purpose. By
                  > the time the clip was written, mid 99, the scavengers, I
                  > think they're called 'mail crawlers',were probably already
                  > defeating this conversion.

                  It's not a clip, but I've been using Dan Benjamin's Hiveware Enkoder -
                  http://automaticlabs.com/products/enkoderform

                  _____________________________________________________________

                  ~ Leigh Harrison
                  ~ email leigh.harrison@...
                  ~ phone 021 933 913 or 04 389 0960
                  ~ music http://www.newtowngirl.com/
                  _____________________________________________________________

                  "Imagination is more important than knowledge."
                  - Albert Einstein
                Your message has been successfully submitted and would be delivered to recipients shortly.