PureBoard

Code: Alles auswählen

;
; ------------------------------------------------------------
;
;   PureBasic - Cipher example file
;
;    (c) 2002 - Fantaisie Software
;
; ------------------------------------------------------------
;
;

MessageRequester("CRC32 Test", "Should be 352441C2 : "+Hex(CRC32Fingerprint("abc", 3)), 0)

MessageRequester("MD5 Test"  , "Should be ed50deb5bb795508b8a5c8e50dafa954 : "+MD5Fingerprint("PureBasic", Len("PureBasic")), 0)

MessageRequester("DES Test"  , "Should be FrfWXJ4yTjycc : "+DESFingerprint("1Fr", "Fr"), 0)

*OutputBuffer = AllocateMemory(100)
Base64Encoder("PureBasic", Len("PureBasic"), *OutputBuffer, 100)
MessageRequester("Base64 Test", "Should be UHVyZUJhc2lj : "+PeekS(*OutputBuffer), 0)

Code: Alles auswählen

A$ = "Das ist der Text."
len = Len(A$)
Debug A$
Debug len
len2 = len*0.4+64
*Buffer = AllocateMemory(len2)
If *Buffer
  Base64Encoder(A$, len, *Buffer, len2)
  If OpenFile(0,"Datei.txt")
    WriteData(*Buffer,MemoryStringLength(*Buffer))
    CloseFile(0)
  EndIf
EndIf

Debug "--------------------"

If OpenFile(1,"Datei.txt")
  B$ = ReadString()
  *NewBuffer = AllocateMemory(Len(B$))
  If *NewBuffer
    Base64Decoder(B$,Len(B$),*NewBuffer,Len(B$))
    String$ = PeekS(*NewBuffer)
    Debug String$
    Debug Len(String$)
  EndIf
  CloseFile(1)
EndIf