VB 를 사용하여 폴더를 암호화하는 방법

1. 파일이 바이너리 형식으로 읽히기 때문에 암호화할 때 일반적으로 파일 형식을 무시할 수 있습니다.

2. 여기서는 이외나 연산을 한 번만 실행하며, 필요한 경우 여러 이외나 연산을 수행할 수 있습니다.

이 암호화 알고리즘은 빠르고 물론 암호화 강도가 낮습니다.

참조 코드는 다음과 같습니다.

1

2

셋；삼；3

사

다섯；오；5

여섯；육

일곱

여덟；팔

아홉；구；9

10

1 1

12

13

14

15

16

17

18

19

20

2 1

22

23

24

25

26

27

28

29

30

3 1

32

33

34

35

36

37

38

39

40

4 1

마흔 두 개

43

마흔 네

--

기능 설명: xor 연산을 통해 파일을 암호화합니다 (대부분의 파일은 암호화할 수 있음).

매개변수 설명: 키-키

FileName- 범용 파일 이름,

암호화된 파일 이름-암호화된 파일 이름입니다.

반환 값: 참-성공, 거짓-실패.

--

전용 함수 XOR_Encrypt (키는 정수, 파일 이름은 문자열, 암호화 파일 이름은 문자열) 는 부울 값입니다

오류 발생 시 오류 처리기로 이동

Dim inputFileNo 를 정수로 사용

Dim file bytes()As Byte

암담한 길이만큼 길다

XOR_Encrypt = False

파일을 열고 이진 배열에 저장합니다.

InputFileNo = FreeFile

이진 파일의 파일 이름을 #inputFileNo 형식으로 엽니다

길이 = LOF (문서 번호 입력)

길이 = 0 이면

MsgBox "암호화 종료: 파일 내용이 비어 있습니다! , VB 정보, "팁"

기능을 종료합니다

만약 ... 끝날거야

파일 바이트 (길이-1) 를 바이트로 다시 조정합니다

입력 파일 번호, 파일 바이트 수 () 를 가져옵니다

#inputFileNo 를 끕니다

이진 배열에 xor 연산을 수행합니다.

암담한 나만

For I = LBound (파일 바이트) 에서 UBound (파일 바이트)

파일 바이트 (I)= 파일 바이트 (I)Xor 키

그리고 나서

XOR 로 암호화된 이진 배열을 새 파일에 저장합니다.

Dim outputFileNo 는 정수입니다

OutputFileNo = FreeFile

이진 파일을 #outputFileNo 로 여는 encryptFileName

출력 파일 번호, 파일 바이트

#outputFileNo 끄기

Xor 암호화 = 참

오류 처리기:

만약. 그럼 번호를 매기세요

MsgBox' 암호화 중 오류 발생:'&; 어. 설명, vbCritical, "오류"

XOR_Encrypt = False

다음 단계로 진행합니다

만약 ... 끝날거야

기능을 종료합니다