17．【加試題】某數(shù)據(jù)加密方法描述如下：
（1）以字節(jié)為單位進行加密處理；
（2）將1個字節(jié)的8位二進制數(shù)分割成前4位與后4位兩個二進制數(shù)；
（3）分別將上述兩個4位二進制數(shù)轉(zhuǎn)換為十進制數(shù)；
（4）將每個十進制數(shù)轉(zhuǎn)換為1個加密字符，對應(yīng)的“密碼表”如下：
| 值（十進制） |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 |
15 |
| 加密字符 |
I |
l |
i |
k |
e |
C |
H |
N |
P |
0 |
s |
t |
c |
a |
r |
d |
小明按照上述方法，設(shè)計了一個字符串（僅包含ASCII字符）加密的VB程序，功能如下：單擊“加密”按鈕Commandl,程序依次將文本框Textl中每個字符的ASCII碼值作為1個字節(jié)轉(zhuǎn)換為兩個加密字符，連接這些加密字符，最后在文本框Text2中輸出加密結(jié)果．如圖1顯示了字符串中一個字符的加密過程：
程序運行效果如圖2所示．
實現(xiàn)上述功能的VB程序如下：
（1）請?zhí)钊牒线m代碼．
Private Sub Command1_Click （ ）
Dim n As Integer,s As String,i As Integer,ss As String
Dim a As Integer'存儲加密前字符的ASCII碼
Dim b1As Integer,b2As Integer'分別存儲分割、轉(zhuǎn)換后的兩個十進制數(shù)
s=Text1．Text
①
For i=1To n
a=Asc（Mid（s,i,1））
b1=a\16
b2=a Mod 16
ss=ss+Code2Char（b1）+Code2Char（b2）
Text2．Text=ss
Next i
End Sub
'十進制值轉(zhuǎn)換為加密字符的函數(shù)
Function Code2Char（c As Integer） As String
Dim s As String
s=“IlikeCHNpostcard”
Code2Char=②
End Function
（2）若將“密碼表”中值為“0”對應(yīng)的加密字符“I”改成“i”，加密后的密文可能無法解密，原因是
．
