by konisi » 2006年8月27日(日) 14:03
実際にはやっていませんが、こんな方法もあります。
・メールアドレスを文字コード化して順列を作り、その階差数列を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]
みたいな具合に。