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

본문 바로가기
사이트 내 전체검색


회원로그인

소스코드

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

페이지 정보

작성자 100K5 작성일16-01-04 23:09 조회29,202회 댓글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 © kkujunhee.net All rights reserved.
상단으로

개인정보관리책임자 : 관리자

모바일 버전으로 보기