랜덤 문자열 생성하기(암호생성기) > 소스코드

본문 바로가기

사이트 내 전체검색


소스코드

asp | 랜덤 문자열 생성하기(암호생성기)

페이지 정보

작성자 100K5 작성일16-01-04 23:09 조회54,250회 댓글0건

본문

<%
Function randomStr(strlen)

 Dim str, rr, ii, strRandomCode
 str   = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
 strlen  = 20

 Randomize

 For ii = 1 to strlen
  rr = Int((90 - 1 + 1) * Rnd + 1)
  ' Response.write "<br>r = " & rr   
  strRandomCode = strRandomCode & CSTR(Mid(str, rr, 1))
 Next 

 randomStr   = strRandomCode

End function
%>

댓글목록

등록된 댓글이 없습니다.



회사소개 개인정보취급방침 서비스이용약관 Copyright © 소유하신 도메인. All rights reserved.상단으로
TEL. 00-000-0000 FAX. 00-000-0000 서울 강남구 강남대로 1
대표:홍길동 사업자등록번호:000-00-00000 개인정보관리책임자:홍길동
PC 버전으로 보기