実際にはやっていませんが、こんな方法もあります。
・メールアドレスを文字コード化して順列を作り、その階差数列をJSのソースに埋め込んで置く。
・ページが読み込まれる時にJSのソースからメルアドを表示できるように、階差数列の初期値と階差数列から次々と文字コードを割り出し、それを文字として認識できるような形にして(やり方がわからんが、ABで言うChr$関数で行う。)、最後にDocument.writeとかで表示。
(ABのソースですが)例を出すと、himajinn13sei→104,105,109,097,106,105,110,110,49,51,115,101,105→104,+1,+4,-12,+9,-1,+5,0,-61,+2,+64,-14,+4
↓
コード: Dim A(11)=[1,4,-12,9,-1,5,0,-61,2,64,-14,4] As Char
Dim B=104 As Byte
Dim i As Long
Dim A$ As string
A$=Chr$(B)
For i=0 To 11
B=B+A(i)
A$=A$+Chr$(B)
Next i
print A$
みたいな具合に。
実際にはやっていませんが、こんな方法もあります。 ・メールアドレスを文字コード化して順列を作り、その階差数列をJSのソースに埋め込んで置く。 ・ページが読み込まれる時にJSのソースからメルアドを表示できるように、階差数列の初期値と階差数列から次々と文字コードを割り出し、それを文字として認識できるような形にして(やり方がわからんが、ABで言うChr$関数で行う。)、最後にDocument.writeとかで表示。
(ABのソースですが)例を出すと、himajinn13sei→104,105,109,097,106,105,110,110,49,51,115,101,105→104,+1,+4,-12,+9,-1,+5,0,-61,+2,+64,-14,+4 ↓ [code]Dim A(11)=[1,4,-12,9,-1,5,0,-61,2,64,-14,4] As Char Dim B=104 As Byte Dim i As Long Dim A$ As string A$=Chr$(B) For i=0 To 11 B=B+A(i) A$=A$+Chr$(B) Next i print A$[/code] みたいな具合に。
|