causticVapor
03-30-2004, 05:58 PM
Very simple. Just use an algorithm that hashes the characters, then put them in an array, and upon the user loading the page, run the client-executed script that generates the characters based on a reversal of the algorithm and puts them into whatever you want... one could use this in anything, really, and it goes beyond web pages... it could be used to jumble stuff in VB.
Here's a very simple example with my page:
(in this case results in cV@mad dot scientist dot com)
'generateEmailAddress - generates email based on hashtable, renders to client
'
'algorithm used: (ascii code+102)/64.3
'The decoding algorithm is exactly the opposite.
Function generateEmailAddress()
Dim letterArray(20)
letterArray(0)=3.1259720062208398133748055987558
letterArray(1)=2.9237947122861586314152410575428
letterArray(2)=2.5816485225505443234836702954899
letterArray(3)=3.2814930015552099533437013996890
letterArray(4)=3.0948678071539657853810264385692
letterArray(5)=3.1415241057542768273716951788491
letterArray(6)=2.3017107309486780715396578538103
letterArray(7)=3.3748055987558320373250388802488
letterArray(8)=3.1259720062208398133748055987558
letterArray(9)=3.2192846034214618973561430793157
letterArray(10)=3.1570762052877138413685847589425
letterArray(11)=3.2970451010886469673405909797823
letterArray(12)=3.3903576982892690513219284603421
letterArray(13)=3.2192846034214618973561430793157
letterArray(14)=3.3748055987558320373250388802488
letterArray(15)=3.3903576982892690513219284603421
letterArray(16)=2.3017107309486780715396578538103
letterArray(17)=3.1259720062208398133748055987558
letterArray(18)=3.3125972006220839813374805598756
letterArray(19)=3.2814930015552099533437013996890
For concatenationCounter=0 to 19
generateEmailAddress=generateEmailAddress & chr((letterArray(concatenationCounter)*64.3)-102)
Next
End Function
Here's a very simple example with my page:
(in this case results in cV@mad dot scientist dot com)
'generateEmailAddress - generates email based on hashtable, renders to client
'
'algorithm used: (ascii code+102)/64.3
'The decoding algorithm is exactly the opposite.
Function generateEmailAddress()
Dim letterArray(20)
letterArray(0)=3.1259720062208398133748055987558
letterArray(1)=2.9237947122861586314152410575428
letterArray(2)=2.5816485225505443234836702954899
letterArray(3)=3.2814930015552099533437013996890
letterArray(4)=3.0948678071539657853810264385692
letterArray(5)=3.1415241057542768273716951788491
letterArray(6)=2.3017107309486780715396578538103
letterArray(7)=3.3748055987558320373250388802488
letterArray(8)=3.1259720062208398133748055987558
letterArray(9)=3.2192846034214618973561430793157
letterArray(10)=3.1570762052877138413685847589425
letterArray(11)=3.2970451010886469673405909797823
letterArray(12)=3.3903576982892690513219284603421
letterArray(13)=3.2192846034214618973561430793157
letterArray(14)=3.3748055987558320373250388802488
letterArray(15)=3.3903576982892690513219284603421
letterArray(16)=2.3017107309486780715396578538103
letterArray(17)=3.1259720062208398133748055987558
letterArray(18)=3.3125972006220839813374805598756
letterArray(19)=3.2814930015552099533437013996890
For concatenationCounter=0 to 19
generateEmailAddress=generateEmailAddress & chr((letterArray(concatenationCounter)*64.3)-102)
Next
End Function