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码进行异或运算