PureBasic Forums - English

Code: Select all

;This function converts a given Hex string (.s) to a byte sequence stored in a given base address of sequential memory:
Procedure.b HexByteStringToValByteSequence(HexString.s,*mem.Byte)
  Define Nibbles, t, c.w, HexString.s 
  Nibbles = Len(HexString)
  If Nibbles & 1 : HexString = "0" + HexString : Nibbles + 1 : EndIf
  For t = 1 To Nibbles
    c = Asc(Mid(HexString, t, 1))
    If c < '0' Or (c > '9' And c < 'A') Or (c > 'F' And c < 'a') Or c > 'f'
      ProcedureReturn 0
    EndIf
    If c > '9' : c = (c & $5F) - $07 : EndIf
    c - '0'
    If t & 1
      *mem\b = c << 4
    Else
      *mem\b | c
      *mem + 1
    EndIf
  Next
  ProcedureReturn 1
EndProcedure

;Test it: 
*r = AllocateMemory(40) 
d.s = "e567abd7fabad8762348eeeedabbaccc5c6c7300a77844488a99c00c98f88f77e77a4" 
If HexByteStringToValByteSequence(d, *r) 
  For t = 0 To 39 
    Debug Hex(PeekB(*r + t)&$FF) 
  Next 
EndIf

Code: Select all

Procedure x_hextomem(m.l,s.s)
  Protected a.l, b.l, p.l, c.l, l.l
  ;
  p = @s
  c = 0
  l = Len(s)
  ;
  If Left(s,1) = "$"
    p = p+1
  EndIf
  ;
  While c+1 < l
    a = PeekB(p)-48
    If a>10
      a = a-7
    EndIf
    b = PeekB(p+1)-48
    If b > 10
      b = b-7
    EndIf
    PokeB(m+q,a*16+b)
    p = p+2
    q = q+1
    c = c+2
  Wend
EndProcedure

m = AllocateMemory(1024)
s.s = "A0AAFF"
x_hextomem(m,s)
Debug Hex(PeekB(m) & $FF)
Debug Hex(PeekB(m+1) & $FF)
Debug Hex(PeekB(m+2) & $FF)

Code: Select all

Procedure.l x_val(string.s)
  Global x_val_type.l
  Protected p.l, l.l, b.l, t.l, c.l, s.l, m.l, p0.l
  ;
  ; *** as normal val() except it accepts also &H &O &0 &B % \ $ 0X
  ;
  string = UCase(Trim(string))
  l = Len(string)
  p = @string
  p0 = p
  s = PeekB(p) & $FF
  t = 0
  ;
  If s = '-'
    m = -1
    p = p+1
    s = PeekB(p) & $FF
  Else
    m = 1
    If s = '+'
      p = p+1
      s = PeekB(p) & $FF
    EndIf
  EndIf
  ;
  If s = '$'
    p = p+1
    b = 16
  ElseIf s = '%'
    p = p+1
    b = 2
  ElseIf s = '\'
    p = p+1
    b = 8
  ElseIf Left(string,2) = "&B"
    p = p+2
    b = 2
  ElseIf Left(string,2) = "&O"
    p = p+2
    b = 8
  ElseIf Left(string,2) = "&0"
    p = p+2
    b = 8
  ElseIf Left(string,2) = "&H"
    p = p+2
    b = 16
  ElseIf Left(string,2) = "0X"
    p = p+2
    b = 16
    ;
    ; ElseIf Left(string,1) = "0"           ; i don't like this one, as i often use
    ;    p = p+1                            ; preceding zeroes in front of decimals while
    ;    b = 8                              ; c(++) would turn those into octals... brrr...
    ;                                       ; well, it's up to you to uncomment these lines 
  Else
    b = 10
  EndIf
  ;
  While p < p0+l
    c = (PeekB(p) & $FF) - 48
    p = p+1
    If c > 9
      c = c - 7
    EndIf
    If c >= 0 And c < b
      t = t*b+c
    Else
      p = p+l
    EndIf
  Wend
  t = t * m
  x_val_type = b
  ;
  ProcedureReturn t
EndProcedure

Code: Select all

Procedure.s x_peekhex(addr.l,Length.l)                              ; read a sequence of bytes from mem and store them in hex format in a string
  Protected s.s, b.l, n.l
  ;
  ; *** read a sequence of bytes from memory and store them in hex format in a string
  ;
  n = 0
  While n < Length
    b = x_peekb(addr+n)
    s = s+Hex(b)
    n = n+1
  Wend
  ProcedureReturn s
EndProcedure

Code: Select all

;This function converts a given Hex string (.s) to a byte sequence stored in a given base address of sequential memory:
Procedure.b HexByteStringToDecByteSequence(HexString.s,*mem.Byte)
  Nibbles.l=Len(HexString.s)
  If Nibbles.l&1:HexString.s="0"+HexString.s:Nibbles.l+1:EndIf
  For t.l=1 To Nibbles.l
    c.w=Asc(Mid(HexString.s,t.l,1))
    If c.w<'0' Or (c.w>'9' And c.w<'A') Or (c.w>'F' And c.w<'a') Or c.w>'f'
      ProcedureReturn 0
    EndIf
    If c.w>'9':c.w=(c.w&$5F)-$07:EndIf
    c.w-'0'
    If t.l&1
      *mem\b=c.w<<4
    Else
      *mem\b|c.w
      *mem+1
    EndIf
  Next
  ProcedureReturn 1
EndProcedure
;Test it:
*d.b=AllocateMemory(22)
HexByteStringToDecByteSequence("7e5d772777c7884ab7ebebcd8fabada",*d.b)
For t=1 To 22
  Debug Hex(PeekB(*d.b+t-1)&$FF)
Next

;********************************************************************************************
;This function converts a byte sequence stored in a given base address of sequential memory to a Hex string (.s):
Procedure DecByteSequenceToHexByteString(*seq.Byte,length.l,*HexString.Byte)
  For t.l=1 To length.l
    *HexString\b=Asc(Hex((*seq\b>>4)&$0F)); <-HighNibble
    *HexString+1
    *HexString\b=Asc(Hex(*seq\b&$0F)); <-LowNibble
    *HexString+1
    *seq+1
  Next
  *HexString\b=0
EndProcedure
;Test it:
st.s=Space(22*2)
DecByteSequenceToHexByteString(*d.b,22,@st.s)
Debug st.s