VB 2008에서 문자열 암호화 프로그램을 작성하여 입력 줄의 문자를 암호화합니다.

vb 2008을 사용하여 문자열 한 줄의 모든 문자를 입력하는 간단한 암호화 프로그램을 작성하세요

Dim S1을 문자열로

Dim S2를 문자열로

S1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJ"

S2 = "abcdefghijklmnopqrstuvwxyzabcdefghij"

Dim LStr을 문자열로

LStr = "AXDCF1245CDxhsavs" # 원본 텍스트 유지

Dim TStr을 문자열로

Dim i를 정수로

Dim S를 문자열로

TStr = ""

For i = 1 To LStr(LStr)

S = 중간(LStr, i, 1)

If InStr(S1, S) 0 Then

S = Mid(S1, InStr(S1, S) + 10, 1)

ElseIf InStr(S2, S) 0 Then

S = Mid(S2, InStr(S2, S) + 10, 1)

끝나면

TSr = TStr & S

다음엔 나

TStr 인쇄

VB 암호화 알고리즘

먼저 프로그램은 두 개의 문자열 k1과 k2를 정의합니다.

여기서 그는 전역 변수여야 하고 프로그램 이전에 정의된 Text1이라는 변수를 제공합니다.

먼저 Text1에 텍스트를 저장하기 위한 문자열 변수 코드를 정의해야 합니다. 그런 다음 Lcase() 함수를 사용하여 Text1의 대문자를 소문자로 변환합니다.

순환 프로세스인 암호화 프로세스가 시작됩니다.

이 루프에서 i의 범위를 1에서 코드 길이까지 설정합니다

각 루프가 시작될 때 코드의 각 문자를 꺼내서 s 변수에 할당합니다.

그런 다음 s가 빈 문자열이 아닌지 확인하고 s의 문자와 문자 a 사이의 "거리"로 n을 할당합니다(이 개념을 이미 이해하고 있다고 가정합니다. 그렇지 않은 경우 신중하게 생각해 보세요).

문자열 코드의 문자열 s에서 문자 'i'의 위치가 n번째 위치라고 가정합니다. n이 2의 배수가 아니면 n번째 문자를 문자열 디코드에 추가합니다. 문자열.k1. n이 2의 배수이면 문자열 k2의 n번째 문자를 문자열 디코드에 추가합니다.

지금 s가 null 문자인지 판단하는 과정에서, 얻은 s가 실제로 null 문자라면 다음 처리 과정으로 점프하겠습니다.

입력한 문자가 2의 배수가 아니라고 가정하고, 공백의 문자를 k1의 27번째 문자인 p로 변경하고, k2의 27번째 문자인 z에 추가합니다.

마지막으로 text2에 디코드를 할당합니다.

사실 이 절차는 매우 간단합니다. 먼저 26개의 문자와 공백을 포함하여 27개의 문자를 포함하는 두 개의 문자열을 정의합니다. 그런 다음 문자열 중 하나의 순서를 섞습니다. 다음으로 암호화해야 하는 문자열에 따라 각 문자를 하나씩 꺼내어 문자열 내 문자의 위치에 따라 k1 또는 k2에 해당하는 마스크 문자를 결정합니다. 이러한 방식으로 암호화 작업을 수행할 수 있습니다.

vb 프로그램은 입력된 원래 문자열을 대문자 문자열로 변환하고 암호화한 후 플러스로 출력해야 합니다

Dim은 문자열로

비공개 하위 명령1_Click()

's = InputBox（＂영문 문자열을 입력해주세요:＂）

s = "저는 영어 책을 가지고 있습니다. 1234페이지입니다."

For i = 1 To Len

C = UCase(Mid(s, i, 1))

만약 C >= "A" 그리고 C

C = Chr(Asc(C) - 3)

C가 "A"보다 작으면 C는 ASCII 코드에 26을 더한 해당 문자로 설정됩니다.

끝나면

Mid(s, i, 1) = C

다음엔 나

MsgBox("암호화된 문자열은 다음과 같습니다:" & vbCrLf & s)

끝 서브

비공개 하위 명령2_Click()

For i = 1 To Len

C = 중간(s, i, 1)

만약 C >= "A" 그리고 C

C = Chr(Asc(C) + 3)

C가 "Z"보다 큰 경우 C는 Chr(Asc(C) - 26)과 같습니다.

끝나면

Mid(s, i, 1) = C

다음엔 나

MsgBox("해독된 문자열은 다음과 같습니다: " & vbCrLf & s)

끝 서브

입력된 영어 문자열을 암호화하고 해독할 수 있는 작은 프로그램을 작성하는 Vb 프로그래밍

다음은 학생번호 마지막 2자리를 기반으로 암호화 및 복호화하는 VB 프로그램입니다.

비공개 서브폼_클릭()

x = Val(Right(Text1.Text, 2)) '학번 마지막 2자리를 구하세요

'다음은 암호화입니다

s = Text2.Text

s1 = s

For i = 1 To Len

c = 중간(s1, i, 1)

Mid(s1, i, 1) = Chr(Asc(c) Xor x)

다음엔 나

Text3.Text = s1

'복호화 내용은 다음과 같습니다

s = s1

For i = 1 To Len

c = 중간(s, i, 1)

Mid(s, i, 1) = Chr(Asc(c) Xor x)

다음엔 나

Text4.Text = s

끝 서브

위 내용은 VB 2008에서 문자열 암호화 프로그램을 작성하여 입력 줄의 문자를 암호화합니다.의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!