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

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