Function FastCRC32(Byval pBuffer As any Ptr, Byval BufferSize As uInteger) As ulong
Функция позволяет подсчитывать контрольную сумму буфера памяти по технологии CRC
pBuffer - указатель на буфер памяти
BufferSize - размер буфера в байтах
Windows , Linux
#Include "window9.bi"
Dim As String st="Hello"
? st, "CRC=";Hex(FastCRC32(StrPtr(st),Len(st)))
st=Encode64(st)
? st
st=Decode64(st)
? st,"CRC=";Hex(FastCRC32(StrPtr(st),Len(st)))
Sleep
Hello CRC=F7D18982
SGVsbG8=
Hello CRC=F7D18982
Created with the Personal Edition of HelpNDoc: Easily create PDF Help documents