임시비밀번호 만들기

보안이 강화된 요즘 비밀번호 찾기를 하면 임시비밀번호를 발급해야 할때가 있다

그런데 막상 임시 비밀번호를 만들려고 하면 난감할때가 있다

그냥 숫자 8자리를 랜덤하게 만들까 하는 생각도 해보곤했는데

그래도 숫자와 문자를 합쳐서 만드는게 보기에도 좋을것 같아서

함수를 만들어 봤다.

 

'지정길이로 랜덤 숫자 만들기 (최대 15자리)
Function Func_getRndNum(ByVal rLen)
 IF rLen > 15 Then rLen = 15
  
 Dim idx, rndSeed, rndSeed2
 rndSeed = ""
 rndSeed2 = "1"
 
 For idx = 1 To rLen
  rndSeed = rndSeed &"1"
  rndSeed2 = rndSeed2 &"0"
 Next
 
 rndSeed = Int(rndSeed)
 rndSeed2 = Int(rndSeed2)
 
 Randomize
 
 Func_getRndNum = Int(Rnd(rndSeed)*rndSeed2)

End Function

 

'지정길이로 랜덤 문자 만들기

Function Func_getRndChr(ByVal rLen)

 Dim rtnStr
 
 Randomize
 
 For idx = 1 To rLen
  rtnStr = rtnStr & Chr(Int(2*Rnd)*32 + Int((90-65+1)*Rnd + 65))
 Next
 
 Func_getRndChr = rtnStr

End Function

 

 

이렇게 2가지 함수를 만든 다음

 

  strImsi1 = Func_getRndChr(4)
  strImsi2 = Func_getRndNum(5)
  
  imsiPwd = strImsi1 & strImsi2

이런식으로 비밀번호를 만들수 있다.

 

 

 

 

 

좀더 복잡한 비밀번호를 만들수도 있지만 이정도면 충분하지 않을까 싶다

문자 4개와 숫자 5개로 구성된 임시 비밀번호를 생성한 다음 기존 비밀번호 대신 DB에 입력하고 메일로 이 비밀번호를 전송하면 될것 같다.