- Home
·
- Math/Dates
·
- Converts hexadecimal pdu format to ascii text open as a standard exe VB application we should add a
Converts hexadecimal pdu format to ascii text open as a standard exe VB application we should add a
Converts hexadecimal pdu format to ascii text open as a standard exe VB application we should add a command button on the form
API Declarations
Dim str1 As String
Dim length As Integer
Dim strarr(20) As String
Dim j As Integer
Dim c As Integer
Dim strnum As Integer
Dim alpha As String
Dim strhexbin As String
Dim strhextobin As String
Dim strlast As String
Rate Converts hexadecimal pdu format to ascii text open as a standard exe VB application we should add a
(2(2 Vote))
str = "E8329BFD06CDE56977DA1E9E83D0EF3B480EAA03"
str1 = "E8329BFD06CDE56977DA1E9E83D0EF3B480EAA03"
length = Len(str)
j = 1
length1 = Len(str) \ 2
For i = 0 To length1
strarr(i) = Mid(str, j, 2)
j = j + 2
Next i
For i = 0 To length1 - 1
str = strarr(i)
strnum = 0
For j = 1 To 2
alpha = Mid(str, j, 1)
c = GetDecimal(alpha)
If j = 1 Then
c = c * 16
Else
c = c * 1
End If
strnum = strnum + c
Next j
strhextobin = hextobin(strnum)
strhexbin = strhexbin + strhextobin
Next i
If length Mod 2 <> 0 Then
strlast = Mid(str1, length, 1)
strlast = hextobin(CInt(strlast))
strhexbin = strhexbin + strlast
End If
Call bintodec(strhexbin)
End Sub
Public Function GetDecimal(alpha As String) As Integer
Select Case UCase(alpha)
Case "A"
alpha = 10
Case "B"
alpha = 11
Case "C"
alpha = 12
Case "D"
alpha = 13
Case "E"
alpha = 14
Case "F"
alpha = 15
Case Else
alpha = alpha
End Select
GetDecimal = alpha
End Function
Public Function hextobin(strnum As Integer) As String
Dim number As String
Dim strnumber As String
strnumber = ""
Do Until strnum = 0 Or strnum = 1
number = CStr(strnum Mod 2)
strnumber = strnumber + number
strnum = strnum \ 2
Loop
strnumber = strnumber + CStr(strnum)
If Len(strnumber) < 8 Then
k = 8 - Len(strnumber)
For j = 1 To k
strnumber = strnumber + "0"
Next j
End If
hextobin = strnumber
End Function
Public Function bintodec(strhexbin As String)
Dim lnt As Integer
Dim strd As String
Dim strsum As String
lnt = Len(strhexbin)
For i = 1 To lnt - (lnt Mod 7)
strd = Mid(strhexbin, i, 7)
istr = ascstr(StrReverse(strd))
i = i + 6
strsum = strsum + CStr(Chr(istr))
Next i
MsgBox strsum
End Function
Public Function ascstr(strd As String) As Integer
Dim dec As Integer
Dim spl As Integer
Dim strsum As Integer
i = 7
j = 0
Do Until i < 1
spl = CInt(Mid(strd, i, 1))
strsum = strsum + spl * 2 ^ j
i = i - 1
j = j + 1
Loop
ascstr = strsum
End Function
Converts hexadecimal pdu format to ascii text open as a standard exe VB application we should add a Comments
No comments yet — be the first to post one!
Post a Comment