【文件属性】:
文件名称:vb设计的加密解密程序
文件大小:6KB
文件格式:ZIP
更新时间:2014-06-04 14:41:44
vb
For i = 1 To n
s = Mid(Text1.Text, i, 1)
If s >= "a" And s <= "z" Then
s = Chr(Asc(s) + 5)
If s > "z" Then s = Chr(Asc(s) - 26)
ElseIf s >= "A" And s <= "Z" Then
【文件预览】:
加密解密
----加密解密.exe(20KB)
----vblt4-16.frm(3KB)
----工程1.vbp(639B)
----MSSCCPRJ.SCC(190B)
----工程1.vbw(50B)