제목 : [ASP] 아이디(이메일) 찾기 등에서 활용할 이메일 자리수 + '*' 치환 함수




소스 :



Function email_asterisk(email)


If InStr(email, "@") > 0 Then

StrEmail = Split(email, "@")

id = StrEmail(0)

id_length = Len(id)

id_asterisk = Left(id, 1) & Mid("*************************", 2, id_length-1)

address = StrEmail(1)

address_length = Len(address)


If InStr(address, ".") > 0 Then


StrAddress = Split(address, ".")


address_domain = StrAddress(0)

address_domain_length = Len(address_domain)

address_domain_asterisk = Left(address_domain, 1) & Mid("*************************", 2, address_domain_length-1)


address_ext = Mid(address, address_domain_length+1)


t1 = id_asterisk & "@" & address_domain_asterisk & address_ext


End If


Else

t1 = email

End If


email_asterisk = t1


End Function



내용 :


1. 아이디 찾기 등을 하게 되면, 다 보여주면 개인정보 노출이 되는 지라, 보통 앞 2자리 + ****** 형태로 보여준다.


샘플 - 네이버


근데 네이버를 보면 아이디 2자리 ****, 도메인 1자리 *****, 도메인 뒷자리를 보여준다.


오~~쎄끈한데?


하여 classic asp 함수를 만들어보았다.




잘 되넹. 급하게 만든거니, 좀 더 이쁘게 코딩하면 좋을듯.





예제 소스 파일 : 

email_parse.asp




 출처 :  나




Posted by 잠수콩