vb字母表加密

A. vb對字元串加密（偏移3位）

Private Sub Command1_Click()
Dim a() As String, b() As Integer, n As Integer
n = Len(txtinputbox)
Print n
ReDim a(n)
ReDim b(n + 3)
For i = 1 To n
a(i) = Mid(txtinputbox, i, 1)
b(i) = Asc(a(i)) + 3

If b(i) > Asc("Z") And b(i) < Asc("a") Then b(i) = Asc("A") + b(i) - Asc("Z") - 1
If b(i) > Asc("z") Then b(i) = Asc("a") + b(i) - Asc("z") - 1
a(i) = Chr(b(i))
codelabel.Caption = codelabel.Caption & a(i)
Next
End Sub

B. VB文本加密解密

剛好以前寫過一篇文章，提取了一部分
對敏感的數據進行加密是必要的，如用戶的密碼的加密。在要對數據進行加密前得確定要用何種加密方式，加密分類有很多種，從可逆角度可分為可逆和不可逆，從加密演算法可分為秘密密鑰演算法、公開密鑰演算法（用於加密、數據簽名和密鑰管理）以及單向散列函數等。md5加密是不可逆的，md5加密的具體實現又分為許多種。

加密為什麼要採用不可逆？舉個例子，當你輸入的密碼進行加密的密文被截取，那他也要把密文解密成原文，這時由於不可逆，那他要破解密碼的難度就提高，除非他可以越過加密那一步直接提供密文，這樣就達到安全的目的。每當我們忘記密碼進行找回密碼，大多數網站要求我們輸入新的密碼而不是直接告訴我們原來的密碼，這是由於不可逆造成的，但這又不是壞處，為什麼這么說？如果在找回密碼時能夠知道原來的密碼，那麼卧底就不用修改密碼來監控所有人，而所有人又不知情。但並不是所有網站都採用不可逆的演算法，筆者在某網站注冊過用戶，有一段沒登錄過，那網站就會給筆者一份提醒郵件，而這提醒郵件又顯示著筆者的密碼，這很可能是這個網站採用的不是不可逆的演算法。

今天為一個網友實現了一個簡易的自定義加密方式，使用的是Visual Basic 6.0。關鍵代碼如下：

Dim decode As String, encode As String, oldString As String, newString As String

Dim i As Integer

decode = "1234567890" '加密原文對照字元，不應該出錯相同的字元

encode = "eoSDriKjsd" '加密成密文的對照字元，字元個數不能少於decode，否則極易造成出錯

oldString = "87232" '待加密的字元串，所有字元都必需能夠在decode里找到對應位置

newString = "" '存放加密後的字元串

For i = 1 To Len(oldString)

newString = newString + Mid$(encode, Instr(decode, Mid$(oldString, i, 1)), 1)

Next i

Print "原文："; oldString

Print "密文："; newString

decode和encode的值可以根據需要設置，oldString可以由文框輸入，如果encode里的字元倆倆不相同，那麼只需調換decode和encode的值，就可以實現解密，否則加密後的密文為不可逆。

當然，在實際的應用種應增加加密的演算法復雜度，讓密文不至於被人輕而易舉破解。更多的加密知識請參考相關文檔。

希望回答對你有幫助

C. vb 字母 加密字元串

PrivateSubCommand1_Click()'加密
DimpAsString,sAsString,tAsString
DimiAsInteger,kAsInteger
p=""
s=Text1.Text
Fori=1ToLen(s)
k=InStr(p,Mid(s,i,1))
Ifk=0Then
MsgBox"數據有誤"
ExitSub
Else
t=t&Mid(p,((k+4)Mod52)+1,1)
EndIf
Next
Text2.Text=t
Text1.Text=""
EndSub

PrivateSubCommand2_Click()'解密
DimpAsString,sAsString,tAsString
DimiAsInteger,kAsInteger
p=""
s=Text2.Text
Fori=1ToLen(s)
k=InStr(p,Mid(s,i,1))
Ifk=0Then
MsgBox"數據有誤"
ExitSub
Else
t=t&Mid(p,((k+46)Mod52)+1,1)
EndIf
Next
Text1.Text=t
Text2.Text=""
EndSub

以上代碼用到四個控制項：Text1放加密前的數據，Text2放加密後的數據，Command1點擊加密，Command2點擊解密

D. VB 實現字元串加密 解密

What???

不懂你說什麼..

加密比較常用的是異或運算,即把每個字元的ASCII碼進行異或運算