자바로 랜덤키 만들기(함수)

자바로 랜덤키 만들기(함수)

Function getRandomKey()

str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" '랜덤 문자열에 포함될 문자들

strlen = 10 '랜덤 문자열의 자릿수

Randomize '랜덤 초기화

Dim r, i

For i = 1 to strlen

r = Int((36 - 1 + 1) * Rnd + 1)

strRandomCode = strRandomCode & CSTR(Mid(str,r,1))

If InStr(strRandomCode,"EXEC")>0 Then

strRandomCode=""

i=0

End If

Next

getRandomKey = strRandomKey

End Function

from http://bitjava.tistory.com/112 by ccl(A) rewrite - 2021-12-01 14:01:12