엑셀 랜덤 비밀번호 생성 - egsel laendeom bimilbeonho saengseong

길이숫자숫자 포함영어abc.. 포함ABC.. 포함특수특수문자 포함 (@#$%^)옵션
더 추가할 문자는 그냥 나열하시면됩니다.
예) ~!@#$%^&*/-+

여기에 결과가 표시됩니다.

랜덤으로 비밀번호를 생성하는 도구입니다.

이 또한 흔한 도구입니다.

> 비밀번호 토막 상식

과연 이용자들이 주기적으로 바꾸는것이 안전할까?

제 의견은 "아니오" 이다.

왜 그렇게 생각하냐 의문이 생길수 있다.

우리는 주기적으로 바꾸라 배웠는데

먼저 제대로된 사이트에서는 해시로 저장하게 된다.

해시란 뭘까?

DB를 보유해도 비밀번호를 알아낼수 없다.

보안이 수준 미달인 사이트는 고려하지 않는다.

이를 토대로 역분석을 하려면

1. 타 웹사이트의 DB를 보유 할것

2. 해당 사이트의 해시 알고리즘과 솔트값을 모두 알것

3. 해당 알고리즘에 맞게 당신이 가지고 있는 모든 암호를 대입해서 분석할것

1 - 가능성은 없진 않다 만약 보안이 취약한 사이트라면

2 - 아무리 취약해도 알기 어려운수준..

3 - 해시만 제대로 되어있다면 이는 현재로는 GPU(그래픽카드) 수만개로 돌려도 그래픽 1개로 비트코인 채굴하는것보다 어려운 연산들이다. 수백년 이상 걸릴수있다.

비밀번호의 길이에 따라 갈려진다 비밀번호는 20자리 이상을 추천한다.

비밀번호 주기적으로 바꾸는게 맞으려면..

1. 사이트가 복호화가 가능한 알고리즘을 쓴다.

2. 해당 웹사이트의 서버소스는 모두 오픈되어있다.

3. 내 컴퓨터가 해킹되었다.

가장 가능성이 높은건 3. 내 컴퓨터가 해킹되었다 인데

그러나 이는 비밀번호를 바꾸어도 무용지물이다.

바꾼다고 해도 바꾸는것도 알게되는데..

> 비밀번호 쉽고 길게 잘 만들기

그냥 단어+숫자+(특수문자) 조합이 제일 흔하다.

근데 이건 까먹기가 너무 쉽다. 또는 같은비번을 중복하여 쓴다.

그런데! 만약 비밀번호를 길게 하면서 쉽게 외울 방법이 있다면?

비번 : dlrjsdlatlqlqjs123

한글로 이건임시비번123

이라고 적은 것이다.

비번 : dlrjsrnrmfqlqjs123

한글로 이건구글비번123

이라고 적은 것이다.

이와같이 문장으로 비밀번호를 만들면 쉽게 길이가 길어지고 외우기도 편리하다.

만약 원하시는 도구가 있으시면 '이런거 원해요 탭에서 요청해주세요~~

즐겨찾기 하시고 많이 찾아주세요.

공유하기

게시글 관리

저작자표시 비영리 변경금지

'웹툴 > 랜덤' 카테고리의 다른 글

저작권 보호안내무단 전재, 재배포 행위는 금지됩니다. (글을 복사하여 게시금지)
본문의 일부(링크용 문장) 인용은 가능하지만, 출처와 링크(a 태그)를 남기셔야 됩니다.
(웹툴을 이용하고, 스크린샷/녹화하는것은 상관없습니다.)

예외적으로. 저에게 허락받은 경우에는 본문을 전재할 수 있습니다.

만약, 본문 공유를 원하신다면 링크 공유를 해주세요

저작권 정책 확인하기링크 공유하기

비밀번호 생성

VB(A) 2015. 10. 31. 08:06

영문, 숫자, 특수문자의 숫자를 지정하고

그만큼 문자를 생성하는 매크로

해외에서 짜깁기.

Function RandomPass(lowerCase As Integer, NumericChr As Integer, SpecialChr As Integer) As String

    Dim i As Byte

    Dim v As Variant

    Dim NonAlpha As Variant

'   Set Non-alpha characters to choose from

    NonAlpha = Array("~", "@", "#", "$", "%", "^", "&", "*", "(", ")", "+", "?")

    For i = 1 To SpecialChr

        RandomPass = RandomPass & NonAlpha(Int((UBound(NonAlpha) - LBound(NonAlpha) + 1) * Rnd + LBound(NonAlpha)))

    Next i

'   Set Numeric character

    ReDim v(48 To 57)

    For i = 1 To NumericChr

        RandomPass = RandomPass & Chr(Int((UBound(v) - LBound(v) + 1) * Rnd + LBound(v)))

    Next i

'   Set lower case character

    ReDim v(97 To 122)

    For i = 1 To lowerCase

        RandomPass = RandomPass & Chr(Int((UBound(v) - LBound(v) + 1) * Rnd + LBound(v)))

    Next i

    RandomPass = ScrambleWord(RandomPass)

End Function

Function ScrambleWord(ByRef orderedWord As String) As String

    Dim temp As String

    Dim i As Long, RandChr As Long

    For i = 1 To Len(orderedWord)

        RandChr = Int(Rnd() * Len(orderedWord)) + 1

        temp = Mid(orderedWord, i, 1)

        Mid(orderedWord, i, 1) = Mid(orderedWord, RandChr, 1)

        Mid(orderedWord, RandChr, 1) = temp

    Next i

    ScrambleWord = orderedWord

End Function

Colored by Color Scripter

공유하기

게시글 관리

저작자표시 비영리 변경금지

'VB(A)' 카테고리의 다른 글

TAG

문자 섞기, 비밀번호 생성

관련글 관련글 더보기

• 정규식을 이용한 텍스트 변경2015.11.08
• 경우의 수2015.11.06
• 두가지 조건을 만족하는 값 나열2015.10.16
• 체크박스로 시트 보호 해제 및 셀 잠금 해제2015.10.14

댓글 0

이전 댓글 더보기

비밀글

등록