UC知道求解一段VB编程字符串加密
来源：百度知道 编辑：UC知道 时间：2024/07/02 23:04:08
在文本框输入字符，按钮后在标签中显示加密字符
要求在程序中用注释的方式描写清楚你的加密办法，并用程序来实现这个加密方法。（1）考虑第1、3、5、7等位置上的字母进行一种变换，而2、4、6等位置上的字母进行另一种变换 （2）每两个字母一组进行变换 （3）将字符串从后到前进行处理
另外要用中文注释清楚加密方法
以上三种最好每个都来一种，但如果不行也可任选其一
十万火急，谢谢啦！！！
要求在程序中用注释的方式描写清楚你的加密办法，并用程序来实现这个加密方法。（1）考虑第1、3、5、7等位置上的字母进行一种变换，而2、4、6等位置上的字母进行另一种变换 （2）每两个字母一组进行变换 （3）将字符串从后到前进行处理
另外要用中文注释清楚加密方法
以上三种最好每个都来一种，但如果不行也可任选其一
十万火急，谢谢啦！！！
没时间 弄一下 1和 3
Private Sub Command1_Click()
Dim aa() As Byte
ReDim aa(Len(Text1.Text))
aa = Text1.Text
'aa = StrReverse(Text1.Text) '逆序 第三个把注释去掉
For i = 0 To UBound(aa)
If i Mod 2 = 0 Then
aa(i) = (aa(i) - 2) '简单的改变ASCII
Else
aa(i) = (aa(i) + 1) '简单的改变ASCII
End If
Next i
Text2.Text = aa
End Sub
貌似是基础的运用asc函数进行运算罢了 简单的加密算法