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

제목 : [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

 출처 :  나