VB 2008 で文字列暗号化プログラムを作成し、入力された文字行の文字を暗号化します。

vb 2008 を使用して、文字列の行にすべての文字を入力する単純な暗号化プログラムを作成します。 S1 を文字列として暗くする

Dim S2 を文字列として使用する

S1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJ"

S2 = "abcdefghijklmnopqrstuvwxyzabcdefghij"

Dim LStr を文字列として使用する

LStr = "AXDCF1245CDxhsavs" # 元のテキストを保持します

Dim TStr を文字列として使用する

Dim i を整数として使用する

Dim S を文字列として使用する

TStr = "＂"

For i = 1 To Len(LStr)

S = Mid(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)

終了の場合

TSt = TStr & S

次のi

TStr を印刷

VB暗号化アルゴリズム

最初に、プログラムは 2 つの文字列 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が空文字かどうかの判定処理において、取得したsが空文字であった場合には、次の処理にジャンプします。

入力された文字が 2 の倍数ではないと仮定して、スペースの文字を k1 の 27 番目の文字 (p) に変更し、それを k2 の 27 番目の文字 (z) に追加します。

最後にデコードをtext2に割り当てます。

実は、この手順は非常に簡単です。まず、26 文字とスペースを含む 27 文字を含む 2 つの文字列を定義します。次に、いずれかの文字列の順序をシャッフルします。次に、暗号化する必要がある文字列に応じて、各文字を 1 つずつ取り出し、文字列内の文字の位置に応じて、k1 または k2 に対応するマスク文字を決定します。このようにして、暗号化操作を実現できます。

vb プログラムは入力された元の文字列を大文字の文字列に変換し、暗号化して出力する必要があります

Dim を文字列として使用する

プライベートサブコマンド1_Click()

's = InputBox (「英語の文字列を入力してください:」)

s = 「私は英語の本を持っています。1234 ページあります。」

For i = 1 To Len(s)

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

C >= 'A' かつ C C = Chr(Asc(C) - 3)

C が「A」より小さい場合、C は ASCII コードの対応する文字に 26 を加えた値に設定されます。

終了の場合

Mid(s, i, 1) = C

次のi

MsgBox ("暗号化された文字列は次のとおりです: " & vbCrLf & s)

エンドサブ

プライベートサブコマンド2_Click()

For i = 1 To Len(s)

C = ミッド(s, i, 1)

C >= 'A' かつ C C = Chr(Asc(C) 3)

C が "Z" より大きい場合、C は Chr(Asc(C) - 26) と等しくなります。

終了の場合

Mid(s, i, 1) = C

次のi

MsgBox ("復号化された文字列は次のとおりです: " & vbCrLf & s)

エンドサブ

入力英語文字列を暗号化および復号化できる小さなプログラムを作成するための Vb プログラミング

次は、学籍番号の下 2 桁に基づいて暗号化および復号化するための VB プログラムです。

プライベートサブフォーム_Click()

x = Val(Right(Text1.Text, 2)) '学籍番号の下2桁を取得します

'以下は暗号化です

s = Text2.Text

s1 = s

For i = 1 To Len(s)

c = Mid(s1, i, 1)

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

次のi

Text3.Text = s1

'以下は復号化です

s = s1

For i = 1 To Len(s)

c = ミッド(s, i, 1)

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

次のi

Text4.Text = s

エンドサブ

以上がVB 2008 で文字列暗号化プログラムを作成し、入力された文字行の文字を暗号化します。の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。