Titolo: Metodo antispam
Categoria: Codice |
|
Ultimo Aggiornamento: 22/06/04 |
Durante la cena seguita alla conferenza del 17 giugno, mi è stato chiesto di pubblicare il metodo con cui abbiamo creato alcune mail nell'html del sito.
Scrivo due righe di documentazione: il metodo prende come parametro un indirizzo di posta e ne crea uno in un formato ascii comprensibile dal browser internet. Da questa conversione viene "esentato" il secondo carattere dell'indirizzo per evitare che uno snake faccia in automatico la conversione da ascii a carattere in maniera troppo semplice e automatica.
C_TEXT($IndirizzoOriginale_t;$IndirizzoModificato_t; mailto_t)
C_LONGINT($i;$k)
$IndirizzoOriginale_t:=$1
$mailto_t:="mailto:" `"mailto:" in formato ascii
$IndirizzoModificato_t:=""
For ($i;1;Length($IndirizzoOriginale_t))
If ($i=2)
$IndirizzoModificato_t:=$IndirizzoModificato_t+$IndirizzoOriginale_t[[$i]]
Else $IndirizzoModificato_t:=$IndirizzoModificato_t+""+
String(
Ascii($IndirizzoOriginale_t[[$i]]))+";"
End if End for $IndirizzoModificato_t:=$mailto_t+$IndirizzoModificato_t
$0:=$IndirizzoModificato_t
Inviato da: PierPaolo Sichera |
|
Visite: 13216 |
Se accedi con utente e password, puoi aggiungere dei commenti.