Vb 언어 사전

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

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

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

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

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

친위대? =? 친위대? & amp? "0 123456789"

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

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

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

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

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

암담한가? 나? J? 무엇으로? 두 배? 변수 I 를 변수로 정의하고 j 를 배정도로 정의합니다.

암담한가? 세어? 무엇으로? "Double" 정의 변수인 count 는 배정도 모델입니다.

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

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

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

만약? Passwordlen? & lt? 1? Passwordlen 이 1 보다 작을 때.

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

텍스트 1. SetFocus? 텍스트 상자 텍스트1초점 얻기.

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

끝? 만약

목록 1. 지우기 초기화, 빈 목록 상자 목록 1.

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

뭐 때문에? 나? =? 1? 어디 가? Icount‘for 루프, 초기 값은 1, 최종 값은 90, 단계는 1 입니다.

레딤? 저장? 비밀번호 (I)? 동적 배열 암호 () 를 I (상한 0) 로 재정의하면 Preserve 가 유지되고 대체되지 않습니다.

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

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

다음? 나

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

암호? =? 주혁 (암호,? Icount? Ss)? 함수 zuhe 호출

다음? 나

끝? 잠수함

공공? 기능? 조상과 (temp ()? 무엇으로? 문자열,? Icount? 무엇으로? 더블? 친위대? 무엇으로? 문자열)? 무엇으로? String ()? 함수 zuhe 정의

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

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

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

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

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

세어? =? Ubound (temp)' 배열 temp ()? 변수 수의 다음 저장.

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

암담한가? 색인? 무엇으로? "Double" 은 변수 iindex 를 배정도로 정의합니다.

색인? =? 1' iindex 에 대한 초기 값은1입니다.

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

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

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

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

DoEvents 의 지연 기능, 프로그램 가사방지,

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

암호 (iindex)? =? 온도 (I)? & amp? S 1? 배열 temp(I) 와 문자열 s 1 이 연결되어 배열 password () 에 할당됩니다.

목록 1. AddItem? Password (인덱스)' 는 목록 상자 목록1에 배열 password () 의 요소를 표시합니다.

다음? J.

다음? 나

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

끝? 기능