[ASP][Function]EnCode String Hidden Transfer *

字串編碼為*

 

'ChrHid(字串)

Function ChrHid(txt)
for i = 1 to len(txt)
  if i mod 2 = 0 then  
   RT = RT & "*"
  else
   RT = RT & mid(txt,i,1)
  end if
next
ChrHid=RT
end function