通过VB实现简单凯撒密码加密解密

俺还能再抢救一下

已于 2022-08-19 00:26:14 修改

阅读量1.3k

点赞数

文章标签： .net 网络安全算法

于 2022-08-19 00:21:17 首次发布

本文链接：https://blog.csdn.net/weixin_46413513/article/details/126416166

版权

通过VB实现简单凯撒密码加密解密

加密流程

在这里插入图片描述

解密流程

在这里插入图片描述

实现代码

窗体有两个，一个加密一个解密，用到的控件只有按钮、文本框和标签框，可以根据下面的代码和截图画

加密代码


Dim k As Integer
Private Sub Command1_Click()
Randomize
Label3.Caption = Int((25 * Rnd + 1)) 
k = Label3.Caption

End Sub

Private Sub Command2_Click()
Text2.Text = "" 
Dim i As Integer, str As String
Dim ascstr() As String
str = LCase(Text1.Text) 
ReDim ascstr(