How does showmemoryviewer work

[juror]

from the help

Code: Select all

 UseSHA2Fingerprint()
  *Key = AllocateMemory(32)

  ; Create a 256bit key using SHA-512 hash function and 500000 iterations
  DeriveCipherKey("SecretPassword", "NonSecretSalt", 500000, *Key, 256, #PB_Cipher_SHA2, 512)

  ; Show the key
  ShowMemoryViewer(*Key, 32)

How do I obtain the memory contents *key points to? I always get the memory address of *key.

Too much turkey, dessert and wine has fried my brain.

got it.

Code: Select all

Procedure.s MemToHex(*Mem, Size)
  Protected s.s = ""
  For i = 0 To Size-1
    s + RSet(Hex(PeekB(*Mem + i)), 2, "0") + " "
    If i % 16 = 15 : s + #CRLF$ : EndIf
  Next
  ProcedureReturn s
EndProcedure

If this is too elementary, let me know and I'll delete the post.

cheerts

[mk-soft]

Just a small mistake ...

Take unsigned byte (#PB_Ascii) and specify at Hex(..., Type).

Code: Select all

Structure ArrayOfByte
  StructureUnion
    a.a[0] ; Unsigned Byte, 0 == Undefined size
    b.b[0] ; Signed Byte, 0 == Undefined size
  EndStructureUnion
EndStructure

Procedure.s MemToHex(*Mem, Size)
  Protected s.s = ""
  For i = 0 To Size-1
    s + RSet(Hex(PeekA(*Mem + i), #PB_Ascii), 2, "0") + " "
    If i % 16 = 15 : s + #CRLF$ : EndIf
  Next
  ProcedureReturn s
EndProcedure

Procedure.s MemToHex2(*Mem.ArrayOfByte, Size)
  Protected r1.s
  Size - 1
  For i = 0 To Size
    r1 + RSet(Hex(*Mem\a[i], #PB_Ascii), 2, "0") + " "
    If i % 16 = 15 : r1 + #LF$ : EndIf
  Next
  ProcedureReturn r1
EndProcedure

*key = AllocateMemory(48)
RandomData(*key, 48)

s.s = MemToHex(*key, 48)
Debug s
s.s = MemToHex2(*key, 48)
Debug s

ShowMemoryViewer(*key, 48)

[juror]

Guess I didn't "got it" after all. Not exactly a "small" mistake. And a simple "ShowMemoryViewer" would have shown me the error

Masterful solution.

Many thanks - again.