Schreiben Sie in VB 2008 ein Programm zur Zeichenfolgenverschlüsselung, um die Buchstaben einer Eingabezeile zu verschlüsseln

Verwenden Sie vb 2008, um ein einfaches Verschlüsselungsprogramm zu schreiben, das alle Buchstaben in eine Zeichenfolge eingibt

S1 als String dimmen

S2 als String dimmen

S1 = „ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJ“

S2 = „abcdefghijklmnopqrstuvwxyzabcdefghij“

LStr als String dimmen

LStr = "AXDCF1245CDxhsavs" # Behalten Sie den Originaltext bei

TStr als String dimmen

Dim i As Integer

S als String dimmen

TStr = ＂＂

Für i = 1 To Len(LStr)

S = Mid(LStr, i, 1)

Wenn InStr(S1, S) 0 Dann

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

ElseIf InStr(S2, S) 0 Then

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

Ende wenn

TStr = TStr & S

Als nächstes

TStr drucken

VB-Verschlüsselungsalgorithmus

Zuerst definiert das Programm zwei Strings k1 und k2;

Hier stellt er eine Variable namens Text1 bereit, die eine globale Variable sein sollte und vor dem Programm definiert wurde.

Zuerst müssen wir einen String-Variablencode definieren, um den Text in Text1 zu speichern. Verwenden Sie dann die Funktion LCase(), um die Großbuchstaben in Text1 in Kleinbuchstaben umzuwandeln.

Der Verschlüsselungsprozess beginnt, ein zyklischer Prozess.

Stellen Sie in dieser Schleife den Bereich von i von 1 bis zur Länge des Codes ein

Nehmen Sie am Anfang jeder Schleife jeden Buchstaben im Code heraus und weisen Sie ihn der Variablen s zu.

Stellen Sie dann fest, ob s keine leere Zeichenfolge ist, und weisen Sie n als „Abstand“ zwischen dem Buchstaben in s und dem Buchstaben a zu (es wird davon ausgegangen, dass Sie dieses Konzept bereits verstehen. Wenn nicht, denken Sie bitte sorgfältig darüber nach).

Angenommen, die Position des Buchstabens „i“ in der Zeichenfolge s im Zeichenfolgencode ist die n-te Position. Wenn n kein Vielfaches von 2 ist, fügen wir den n-ten Buchstaben zur Zeichenfolge hinzu Zeichenfolge. k1. Wenn n ein Vielfaches von 2 ist, fügen wir den n-ten Buchstaben aus der Zeichenfolge k2 zur Zeichenfolgendekodierung hinzu.

Wenn bei der Beurteilung, ob s gerade ein Nullzeichen ist, das erhaltene s tatsächlich ein Nullzeichen ist, springen wir zum folgenden Verarbeitungsprozess.

Angenommen, der eingegebene Buchstabe ist kein Vielfaches von 2, dann ändern Sie den Buchstaben des Leerzeichens in den 27. Buchstaben von k1, also p, und fügen Sie ihn zum 27. Buchstaben von k2, also z, hinzu.

Zuletzt dekodieren Sie Text2.

Eigentlich ist dieses Verfahren sehr einfach. Definieren Sie zunächst zwei Zeichenfolgen mit jeweils 27 Buchstaben, darunter 26 Buchstaben und einem Leerzeichen. Mischen Sie dann die Reihenfolge einer der Zeichenfolgen. Nehmen Sie als Nächstes entsprechend der zu verschlüsselnden Zeichenfolge jeden Buchstaben einzeln heraus und bestimmen Sie den Maskenbuchstaben, der k1 oder k2 entspricht, entsprechend der Position des Buchstabens in der Zeichenfolge. Auf diese Weise können Verschlüsselungsvorgänge erreicht werden.

Das VB-Programm muss die eingegebene Originalzeichenfolge in eine Großbuchstabenzeichenfolge umwandeln, verschlüsseln und plus ausgeben

Dim’s As String

Private Sub Command1_Click()

's = InputBox（＂Bitte geben Sie eine englische Zeichenfolge ein:＂）

s = „Ich habe ein englisches Buch. Es hat 1234 Seiten.“

Für i = 1 To Len(s)

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

Wenn C >= ＂A＂ und C

C = Chr(Asc(C) - 3)

Wenn C kleiner als „A“ ist, wird C auf das entsprechende Zeichen des ASCII-Codes plus 26 gesetzt.

Ende wenn

Mid(s, i, 1) = C

Als nächstes

MsgBox („Die verschlüsselte Zeichenfolge lautet: „ & vbCrLf & s)

End Sub

Private Sub Command2_Click()

Für i = 1 To Len(s)

C = Mid(s, i, 1)

Wenn C >= ＂A＂ und C

C = Chr(Asc(C) + 3)

Wenn C größer als „Z“ ist, ist C gleich Chr(Asc(C) – 26).

Ende wenn

Mid(s, i, 1) = C

Als nächstes

MsgBox („Die entschlüsselte Zeichenfolge lautet: „ & vbCrLf & s)

End Sub

Vb-Programmierung zum Schreiben eines kleinen Programms, das eine eingegebene englische Zeichenfolge verschlüsseln und entschlüsseln kann

Das Folgende ist das VB-Programm zur Ver- und Entschlüsselung basierend auf den letzten 2 Ziffern der Studentennummer:

Privates Unterformular_Click()

x = Val(Right(Text1.Text, 2)) 'Erhalte die letzten 2 Ziffern der Studentennummer

'Das Folgende ist Verschlüsselung

s = Text2.Text

s1 = s

Für i = 1 To Len(s)

c = Mid(s1, i, 1)

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

Als nächstes

Text3.Text = s1

'Das Folgende ist die Entschlüsselung

s = s1

Für i = 1 To Len(s)

c = Mid(s, i, 1)

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

Als nächstes

Text4.Text = s

End Sub

Das obige ist der detaillierte Inhalt vonSchreiben Sie in VB 2008 ein Programm zur Zeichenfolgenverschlüsselung, um die Buchstaben einer Eingabezeile zu verschlüsseln. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!