DEFINT A-Z
DIM CRCTable&&(256)

FOR I=0 TO 255
  CRC32&&=I
  FOR J=1 TO 8
    IF (CRC32&& AND 1) THEN
      CRC32&& = (CRC32&& \ 2) XOR 3988292384
    ELSE
      CRC32&& = CRC32&& \ 2
    END IF
  NEXT J
  CRCTABLE&&(I)=CRC32&&
NEXT I

INPUT"Welche Datei:",Datei$
OPEN "B",#1, Datei$
CRC32&&=4294967295
DO
  GET$ #1,1024,Buffer$
    IF Buffer$="" THEN EXIT LOOP
    FOR A%=1 to LEN(Buffer$)
     TEMP1&& = CRC32&& \ 256
     TEMP2&& = CRCTable&&((CRC32&& XOR ASC(MID$(Buffer$,a%,1))) AND 255)
     CRC32&& = TEMP1&& XOR TEMP2&&
  next
LOOP
CRC32&&=CRC32&& XOR 4294967295
CLOSE #1

PRINT HEX$(CRC32&&\65536)+HEX$(CRC32&& MOD 65536)