vb 2008編寫一個字串加密程序，對輸入的一行字元進行字母的加密處理

用vb 2008寫一個簡單加密程式將輸入的一行字串中的所有字母

Dim S1 As String

Dim S2 As String

S1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJ"

S2 = "abcdefghijklmnopqrstuvwxyzabcdefghij"

Dim LStr As String

LStr = "AXDCF1245CDxhsavs" # 保留原來的文字

Dim TStr As String

Dim i As Integer

Dim S As String

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)

End If

TStr = TStr & S

Next i

Print TStr

VB加密演算法

首先程式定義兩個字串k1和k2;

這裡他提供了一個名為Text1的變量，這應該是一個全域變量，在程式之前已經定義過。

首先，我們要定義一個字串變數code，用來儲存Text1中的文字。然後，使用LCase()函數將Text1中的大寫字母轉換為小寫字母。

加密的過程開始，為那一個循環過程。

在這個循環裡 設定i的區間是1到code的長度

每個循環開始時候，將code中每一個字母取出來，並賦值到s變數裡面。

然後判斷如果s不是空字串時，將n賦值為s中的字母與字母a的一個"距離"（這裡假設你對這個概念已經理解了，如果不明白，請再仔細思考一下） 。

假設在字串s中的字母'i'在字串code中的位置是第n位，如果n不是2的倍數，那麼我們將在字串decode中加入第n個字母，這個字母來自字串k1。如果n是2的倍數，那麼我們將在字串decode中加入第n個字母，這個字母來自字串k2。

在剛才判斷s是否為空字符的過程中，如果得到的s確實為空字符，那麼我們將跳到以下的處理過程。

假設輸入的字母不是2的倍數，那麼將空格這個字母變成k1的第27個字母，即p，並將其加入k2的第27個字母，即z。

最後將decode賦值給text2。

其實這個程式很簡單。首先定義兩個字串，分別包含27個字母，其中包括26個字母和一個空格。然後將其中一個字串的順序打亂。接下來，根據需要加密的字串，逐一取出每個字母，並根據字母在字串中的位置，確定使用k1或k2對應的遮罩字母。這樣就可以實現加密操作了。

vb程式要將輸入的原始字串轉換成大寫字串後進行加密並輸出加

Dim s As String

Private Sub Command1_Click()

's = InputBox（＂請輸入一個英文字串：＂）

s = "我有一本英文書。它有1234頁。"

For i = 1 To Len(s)

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

If C >= ＂A＂ And C

C = Chr(Asc(C) - 3)

如果C小於"A"，那麼C將被設定為ASCII碼加上26的對應字元。

End If

Mid(s, i, 1) = C

Next i

MsgBox （＂加密後的字串是：＂ & vbCrLf & s）

End Sub

Private Sub Command2_Click()

For i = 1 To Len(s)

C = Mid(s, i, 1)

If C >= ＂A＂ And C

C = Chr(Asc(C) 3)

如果C大於“Z”，那麼C將等於Chr(Asc(C) - 26)。

End If

Mid(s, i, 1) = C

Next i

MsgBox （＂解密後的字串為：＂ & vbCrLf & s）

End Sub

Vb程式編寫一個小程式可以對輸入的一段英文字串進行加密和解

以下是根據學號結束2位元加密、解密的VB程式：

Private Sub Form_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)

Next i

Text3.Text = s1

'以下是解密

s = s1

For i = 1 To Len(s)

c = Mid(s, i, 1)

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

Next i

Text4.Text = s

End Sub

#

以上是vb 2008編寫一個字串加密程序，對輸入的一行字元進行字母的加密處理的詳細內容。更多資訊請關注PHP中文網其他相關文章！