Simone请帮助解密这串16进制的字符e5be21bfd8cce2534664b378e696b28bd027506d75e51800b1ae04f37718dda0
的有关信息介绍如下：
建两个文本框 Text1.text中输入2进制字符串Text2.text中输出相应的16进制字符串Private Sub Form_Load()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Text1_Change()s = Text1.TextIf Len(s) Mod 4 <> 0 ThenSelect Case Len(s) Mod 4Case 1s = "000" & sCase 2s = "00" & sCase 3s = "0" & sEnd Select End If For i = 1 To Len(s) Step 4w = w & z(Mid(s, i, 4))NextText2.Text = wEnd SubPrivate Function z(t As String) As StringSelect Case tCase "0000"z = "0"Case "0001"z = "1"Case "0010"z = "2"Case "0011"z = "3"Case "0100"z = "4"Case "0101"z = "5"Case "0110"z = "6"Case "0111"z = "7"Case "1000"z = "8"Case "1001"z = "9"Case "1010"z = "A"Case "1011"z = "B"Case "1100"z = "C"Case "1101"z = "D"Case "1110"z = "E"Case "1111"z = "F"End SelectEnd FunctionPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii <> 48 And KeyAscii <> 49 And KeyAscii <> 8 ThenKeyAscii = 0End IfEnd Sub
