VB常用算法(十)字符处理(统计与加密)
文章作者 100test 发表时间 2007:03:10 18:30:25
来源 100Test.Com百考试题网
1、算法说明
1) 加密解密
最简单的加密方法是:将每个字母加一序数,例如5,这时:
“A”→”F”,”a” →”f”,”B” →”G”,”b” →”g”……”Y” →”D”, ”y” →”d”,”Z” →”E”, ”z” →”e”
解密是加密的逆操作。
界面如下:
代码如下:
Option Explicit
Private Sub Command1_Click()
Dim strInput$, Code$, Record$, c As String * 1
Dim i%, length%, iAsc%
strInput = Text1.Text
length = Len(Trim(strInput))
Code = ""
For i = 1 To length
c = mid(strInput, i, 1)
Select Case c
Case "A" To "Z"
iAsc = Asc(c) 5
If iAsc > Asc("Z") Then iAsc = iAsc - 26
Code = Code &. Chr(iAsc)
Case "a" To "z"
iAsc = Asc(c) 5
If iAsc > Asc("z") Then iAsc = iAsc - 26
Code = Code &. Chr(iAsc)