wie ktoś może jak można to wykonać szukałem jakiś funkcji w necie ale za chiny nie mogę zapleść.
jedynie jakie znalazłem to tylko w VB
jedynie jakie znalazłem to tylko w VB
Kod:
Public Function HexToString(sMessage As String) As String
Dim i As Integer
For i = 1 To Len(sMessage) Step 2
HexToString = HexToString & Chr(Int("&h" & Mid(sMessage, i, 2)))
Next
End Function
Public Function longToHex(l As Long) As String
longToHex = Hex(l)
If Len(longToHex) < 4 Then longToHex = String(4 - Len(longToHex), "0") & longToHex
longToHex = Right(longToHex, 2) & Left(longToHex, 2)
End Function