学进去

随着信息技术的发展，公众号：技术那玩意安全性越来越受到人们的重视，为了提升信息的安全性，发送信息时需要对信息进行加密处理，某信息的加密算法如下所示：
①将发送信息中的每一个字符的八位二进制取反
②第 1、2、4、8 位上插入 4 个二进制数，若取反后的八位二进制数中 1 的个数是偶数，插入的 4 个二进制是 1、0、1、0，否则是 0、1、0、1
③将 12 位二进制分为 3 段（4 位一段），每一段的最后一个数字移动到最前面，并将移动后的 4 位二进制数转换为十六进制数，转换后的 3 位十六进制数即是加密后的字符字符"A"的加密过程如下表所示：

原文“A”转换成 8 位二进制数取反	1 0 1 1 1 1 1 0
插入 4 位二进制数 1、0、1、0	1 0 1 1 0 1 1 0 1 1 1 0
4 位 1 段，最后一个数字移动到最前面	1101 0011 0111
转换为十六进制数，即密文	D37

 
按照上述规则，小明设计了一个加密的 VB 程序，程序功能如下：在 Text1 中输入待加密的字符，单击“加密”按钮，将加密后的字符显示在 Text2 中，程序运行界面如下图所示，请回答如下问题：

(1)在 Text1 中输入“b”，则 Text2 中显示的内容是_______________（已知 ASC（"a"）=97）
(2)请在横线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer Dim m As Integer, n As Integer, t As Integer Dim count As Integer
Dim a(1 To 12) As Integer
Dim mingw As String, miw As String mingw = Text1.Text
For i = 1 To Len(mingw)
n = Asc(Mid(mingw, i, 1))
j = 8
Do While ______________________
a(j) = (n + 1) Mod 2
count = count + a(j)
n = n \ 2
j = j - 1
Loop
For k = 1 To 4
m = 8 + k - 1
Do While m >= 2 ^ (k - 1)
a(m + 1) = a(m)
m = m - 1
Loop
__________________________
Next k
For t = 1 To 3
miw = _____________________ 
Next t
Text2.Text = miw
Next i
End Sub
Function rev_btoh(b() As Integer, start As Integer, ending As Integer) As String Dim i, sum As Integer
Const code = "0123456789ABCDEF"
sum = b(ending)
For i = start To ending - 1
sum = sum * 2 + b(i)
Next i
rev_btoh = Mid(code, sum + 1, 1)
End Function