PureBoard

Code: Alles auswählen

DataSection
  Vector:
    Data.b $3d, $af, $ba, $42, $9d, $9e, $b4, $30, $b4, $22, $da, $80, $2c, $9f, $ac, $41
EndDataSection
Global Character.c

Procedure.s Encode(S1$,PW$)
  *Buffer = AllocateMemory(StringByteLength(S1$) + SizeOf(Character))

  AESEncoder(@S1$,*Buffer,MemorySize(*Buffer),@PW$,128,?vector)
  
  ret$ = PeekS(*Buffer)
  FreeMemory(*Buffer)
  ProcedureReturn ret$
EndProcedure

Procedure.s Decode(S1$,PW$)
  *Buffer = AllocateMemory(StringByteLength(S1$) + SizeOf(Character))
  
  AESDecoder(@S1$,*Buffer,MemorySize(*Buffer),@PW$,128,?vector)
  
  ret$ = PeekS(*Buffer)
  FreeMemory(*Buffer)
  ProcedureReturn ret$
EndProcedure

Code: Alles auswählen

EnableExplicit

Procedure.i Encode(Text.s, PW.s) ; Es darf kein String zurückgegeben werden, da dieser Null-Bytes Enthalten könnte!
  Static *mem ; Speicher muß nach verlassen der Procedure Erhalten bleiben!
  Protected *key = AllocateMemory(16)
  
  If *mem : FreeMemory(*mem) : EndIf
  
  If *key
    PokeS(*key, PW, 16, #PB_Ascii) ; es werden nur 16 Zeichen unterstützt
    *mem = AllocateMemory(StringByteLength(Text) + SizeOf(Character))
    If *mem
      If AESEncoder(@Text, *mem, MemorySize(*mem), *key, 128, 0, #PB_Cipher_ECB)
        FreeMemory(*key)
        ProcedureReturn *mem
      EndIf
    EndIf
  EndIf
EndProcedure

Procedure.s Decode(*mem, PW.s)
  Protected *dmem, *key = AllocateMemory(16)
  Protected result.s
  
  If *key
    PokeS(*key, PW, 16, #PB_Ascii) ; es werden nur 16 Zeichen unterstützt
    *dmem = AllocateMemory(MemorySize(*mem))
    If *dmem
      If AESDecoder(*mem, *dmem, MemorySize(*dmem), *key, 128, 0, #PB_Cipher_ECB)
        result = PeekS(*dmem)
        FreeMemory(*dmem)
        ProcedureReturn result
      EndIf
    EndIf
  EndIf
EndProcedure

Define.s Text, DecodeText, PW
Define *mem

Text = "Feel the ..Pure.. Power"
PW = "testpasswort"

*mem = Encode(Text, PW)
If *mem
  DecodeText = Decode(*mem, PW)
  Debug DecodeText
EndIf