Dim tep As String

Dim temp As String

Dim i As Integer

Dim B As Integer

Dim rems As String

tep = rmsg

i = Len(tep)

If i < 1 Then Exit Function



B = i / 2



If i = B * 2 Then

tep = Left(tep, B * 2)

Else

B = B - 1

tep = Left(tep, B * 2)

End If



chg7 = ""

rems = ""

Dim trint As Integer

Dim strtmp As String



trint = 1

strtmp = ""



For i = 1 To B

temp = "&H" & Mid(tep, (i - 1) * 2 + 1, 2)

temp = D_To_B(Val(temp)) 转二进制



If Len(temp) < 8 Then

temp = strpla(8 - Len(temp)) + temp

End If



strtmp = Mid(temp, trint + 1, 8 - trint) + rems



rems = Mid(temp, 1, trint)





chg7 = chg7 & ChrW(CInt(Val(B_To_D(strtmp))))



trint = trint + 1

If trint = 8 Then

trint = 1

chg7 = chg7 & ChrW(CInt(Val(B_To_D(rems))))

rems = ""

End If





Next i-　　Dim tep As String

　　Dim temp As String

　　Dim i As Integer

　　Dim B As Integer

　　Dim rems As String

　　tep = rmsg

　　i = Len(tep)

　　If i < 1 Then Exit Function

　　

　　B = i/2

　　

　　If i = B* 2 Then

　　 tep = Left(tep, B* 2)

　　Else

　　　B = B- 1

　　 tep = Left(tep, B* 2)

　　End If

　　

　　chg7 = ""

　　rems = ""

　　Dim trint As Integer

　　Dim strtmp As String

　　

　　trint = 1

　　strtmp = ""



　　For i = 1 To B

　　 temp = "&H" & Mid(tep, (i- 1)* 2+ 1, 2)

　　 temp = D_To_B(Val(temp))　 转二进制

　　

　　 If Len(temp) < 8 Then

　　　　temp = strpla(8- Len(temp))+ temp

　　 End If

　　

　　 strtmp = Mid(temp, trint+ 1, 8- trint)+ rems

　　

　　 rems = Mid(temp, 1, trint)

　　

　　

　　 chg7 = chg7 & ChrW(CInt(Val(B_To_D(strtmp))))

　　

　　 trint = trint+ 1

　　 If trint = 8 Then

　　　　trint = 1

　　　　chg7 = chg7 & ChrW(CInt(Val(B_To_D(rems))))

　　　　rems = ""

　　 End If