用Visual Basic 2008编写一个简单的字符串加密程序
用vb2008编写一个简单加密程序将输入的一行字符串中的所有字母DimS1AsStringDimS2AsStringS1="ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJ"S2="abcdefghijklmnopqrstuvwxyzabcdefghij"DimLStrAsStringLStr="AXDCF1245CDxhsavs"#保留原来的文本DimTStrAsStringDimiAsIntegerDimSAsStringTStr=＂＂Fori=1ToLen(LStr)S=Mi
用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 <= ＂Z＂ Then
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 <= ＂Z＂ Then
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
正软商城本月促销专区，汇集办公、设计、安全、影音、系统工具及AI软件等正版软件优惠活动，提供限时折扣、特价授权和优惠购买信息，活动库存及价格以页面实时展示为准。
正软商城装机必备专区，精选办公、浏览器、安全防护、影音播放、压缩解压、设计创作和系统工具等电脑常用正版软件，帮助用户快速完成新电脑软件配置。
正软商城Windows软件专区，汇集适用于Windows电脑的办公、设计、安全防护、影音播放、开发工具和系统优化软件，提供软件介绍、系统要求、正版授权及购买下载服务。
正软商城macOS软件专区，精选适用于Mac电脑的办公、设计、影音、效率、开发和系统工具，提供软件功能介绍、macOS兼容版本、正版授权及购买下载服务。
正软商城iOS软件专区，精选适用于iPhone和iPad的办公、学习、影音、设计、效率及AI应用，提供功能介绍、适用设备、系统要求和正版获取方式等信息。
正软商城AI软件专区，汇集AI写作、AI绘画、AI视频、AI办公、AI编程、AI翻译、智能客服和数据分析等人工智能工具，提供功能介绍、适用平台、收费方式及正版购买信息。
正软商城PDF教程频道提供PDF编辑、转换、合并、拆分、压缩及格式处理方法，同时介绍常用PDF软件和工具的使用技巧。
赤友清理大师是一款为 Mac 设计的智能清理优化工具，可精准扫描垃圾、大文件、重复文件等，释放磁盘空间。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
Wise Folder Hider Pro 是一款专业级文件和文件夹隐藏加密软件，为私密数据添加多重保护。高频操作更强调就近处理，浏览、整理和跨目录移动文件时，来回切换和重复点击都会少很多。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
