VB6'dan hic anlamıyorum o yuzden bişi yapamadmKod:
Public Function SearchHexArray(HexArray As String, StartOffset As Long, Length As Long) As Long ReDim tmpBase(1 To Len(HexArray) / 2) As Byte ReDim keyword(1 To Len(HexArray) / 2) As Byte Dim tmpSearchHeap(&H1000) As Byte Dim i As Long Dim j As Long Dim k As Long Hex2Byte HexArray, keyword For k = StartOffset To StartOffset + Length Step &H1000 ReadProcessMem KOHND, k, tmpSearchHeap(0), &H1000, 0& For i = 0 To &HFFF If tmpSearchHeap(i) = keyword(1) Then For j = 1 To UBound(keyword) If tmpSearchHeap(i + j - 1) keyword(j) Then GoTo fail Next SearchHexArray = k + i GoTo Fin fail: End If Next Next SearchHexArray = 0 Fin: End Function Public Function Byte2Hex(pInput() As Byte) As String Byte2Hex = "" For i = 1 To UBound(pInput) tmp = Trim(Hex(pInput(i))) If Len(tmp) = 1 Then tmp = "0" & tmp Byte2Hex = Byte2Hex & tmp Next End Function Public Sub Hex2Byte(sInput As String, bOutput() As Byte) m_len = Len(sInput) If m_len > UBound(bOutput) Then m_len = UBound(bOutput) End If For i = 1 To Len(sInput) Step 2 tmp = Mid(sInput, i, 2) bOutput((i + 1) / 2) = Val("&H" & tmp) Next End Sub Function FormatHex(strHex As String, inLength As Integer) On Error Resume Next Dim newHex As String, byte1 As String, byte2 As String, byte3 As String, byte4 As String Dim ZeroSpaces As Integer ZeroSpaces = inLength - Len(strHex) newHex = String(ZeroSpaces, "0") + strHex byte1 = Left(newHex, 2) byte2 = Mid(newHex, 3, 2) byte3 = Mid(newHex, 5, 2) byte4 = Right(newHex, 2) Select Case Len(newHex) Case 2 newHex = byte1 Case 4 newHex = byte4 & byte1 Case 6 newHex = byte4 & byte2 & byte1 Case 8 newHex = byte4 & byte3 & byte2 & byte1 Case Else End Select FormatHex = newHex End Function
__________________