Vb 소스 코드 설명, 설명이 상세할수록 좋습니다. 희망은 전문가이고 설명을 이해할 수 있다. 이것은 암호 사전을 생성하는 데 사용되는 소스 코드입니다. 저는 초보자입니다.

옵션? 노골적인? 강제 선언, 즉 변수를 사용하기 전에 정의해야 합니다.

암담한가? Ss? 로? 문자열? 변수 정의 ss 는 문자열 유형이고 기본 초기 값은 빈 문자열입니다.

개인? Sub? Command 1_Click ()? 버튼 명령 1 클릭 이벤트.

Ss? =? Ss? & amp? Ucase ("abcdefghijklmnopqrstuvwxyz")? UCase 함수는 대문자로 되어 있습니다.

Ss? =? Ss? & amp? Abcdefghijklmnopqrstuvwxyz. 문자열 연결 함수입니다.

Ss? =? Ss? & amp? "0 123456789"

Ss? =? Ss? & amp? "~! @ # $% & * () _+{} |: < & gt? [] \; ,./"

이제 ss = "abcdefghijklmnopkrstuvxyzabcdefghijklmnopkrstuvxyz0123456789 ~! @ # $% & * () _+{} |: < & gt? [] \; ,./"

암담한가? Passwordlen? 로? "Double" 정의 변수인 passwordlen 은 암호의 최대 길이를 설정하는 배정도 유형입니다.

암담한가? Icount? 로? 두 배? 변수 icount 를 정의하는 것은 배정도입니다.

암담한가? S 1? 로? 문자열? 정의 변수 s 1 은 문자열 유형입니다.

암담한가? 나? J? 로? "Double" 정의 변수 I 는 variant 이고 j 는 double precision 입니다.

암담한가? 세어? 로? 두 배? Count 변수는 배정도 모델로 정의됩니다.

암담한가? 암호 ()? 로? 문자열? 동적 배열 암호 정의 ()? 문자열 유형입니다.

암담한가? Tempstr? 로? "String" 정의 변수 tempstr 은 문자열 유형입니다.

Passwordlen? =? Val (텍스트1. Text)' text 1 의 문자 유형은 숫자 유형으로 변환되어 passwordlen 변수에 저장됩니다.

만약? Passwordlen? & lt? 1? 그리고는요? Passwordlen 이 1 보다 작을 때.

MsgBox? 최대 암호 길이를 입력하십시오. Vb 정보,? 사전 생성 도구? 팝업 대화 상자

텍스트1입니다. SetFocus 의 text 1 초점 획득.

종료? Sub? 하위 프로세스를 종료합니다.

끝? 만약

목록1. 잘 아세요? 목록 상자 목록1을 초기화하고 비웁니다.

Icount? =? 린 (ss)? Chuang ss 문자의 길이 값 90 을 변수 icount 에 넣습니다.

뭐 때문에? 나? =? 1? 어디 가? Icount? Loop 의 경우 초기 값은 1, 최종 값은 90, 단계는 1 입니다.

레딤? 저장? Password(i)' 다음에 동적 배열 암호 () 를 I (상한 0) 로 재정의해도 Preserve 는 바꾸지 않습니다.

비밀번호 (a)? =? Mid$(ss,? 나? 1)? 배열 암호의 각 요소는 문자열 ss 에서 I 번째 위치입니다.

목록1. AddItem? Password(i)' 는 목록 상자 목록1에 있는 배열의 모든 요소를 표시합니다.

다음? 나

뭐 때문에? 나? =? 2? 어디 가? Passwordlen? 2 부터 최대 비밀번호 길이까지 passwordlen

암호? =? 주혁 (암호,? Icount,? Ss)? 함수 그룹 호출 및

다음? 나

끝? 잠수함

공공? 기능? 조상과 (temp ()? 로? 문자열,? Icount? 로? 더블,? Ss? 로? 문자열)? 로? String ()? 함수 zuhe 정의

세 가지 독립 변수가 있습니다. 배열 temp () 는 문자열 유형이고 icount 는 배정밀도 유형입니다. Ss 는 문자열 유형입니다.

암담한가? 세어? 로? 두 배? Count 변수는 배정도로 정의됩니다.

암담한가? S 1? 로? String' 정의 변수 s 1 은 문자열 유형입니다.

암담한가? 나? 로? 두 배? 변수 I 는 배정도로 정의됩니다.

암담한가? J? 로? 두 배? 변수 j 는 배정도로 정의됩니다.

세어? =? UBound(temp)' 배열 temp ()? 다음에 count 변수에 저장합니다.

암담한가? 암호 ()? 로? "String" 정의 배열 암호 () 는 문자열 유형입니다.

암담한가? 색인? 로? "Double" 정의 변수인 iindex 는 배정도입니다.

색인? =? 1? Iindex 에 초기 값 1 을 지정합니다.

암담한가? Tempstr? 로? "String" 정의 변수 tempstr 은 문자열 유형입니다.

뭐 때문에? 나? =? 1? 어디 가? 숫자를 세다

뭐 때문에? J? =? 1? 어디 가? Icount

S 1? =? Mid$(ss,? J,? 1)? Mid 함수는 문자열 ss 의 j 에서 1 비트를 가져와서 변수 s 1 에 할당합니다.

DoEvents 의 지연 기능은 프로그램이 죽음을 위조하는 것을 방지합니다.

레딤? 저장? 암호 (iindex)? 동적 배열 암호 재정의 ()

암호 (iindex)? =? Temp(i)? & amp? S 1? 배열 temp(i) 는 문자열 s 1 과 연결되어 배열 password () 에 할당됩니다.

목록1. AddItem? 암호 (iindex)? 목록 상자 List 1 에 배열 password () 의 요소를 표시합니다.

다음? J.

다음? 나

조화? =? 암호? 배열 암호를 zuhe 변수에 함수의 함수 값으로 할당합니다.

끝? 기능