FUNCTION VBCRC32 ALIAS "VBCRC32" (sQuelle AS STRING) EXPORT AS LONG
    DIM a AS LONG, b AS BYTE,e AS BYTE
    DIM d AS STRING
    DIM nCRC AS LONG, c AS LONG, n AS LONG
 
    d = sQuelle
    n = LEN(sQuelle)
 
Loop0:
    ! Mov  a,&Hff           ;Setze acht Bits in a
    ! Mov  Ecx,8            ;Zähler initialisieren
Loop1:
    ! Mov  b,0              ;Initialisiere b mit 0
    ! Mov  e,0              ;Initialisiere e mit 0
    ! Mov  Eax, nCRC        ;nCRC in Register laden
    ! And  Eax,32768        ;32768 And
    ! Cmp  Eax,32768        ;Vergleiche Eax
    ! Jne  Weiter0          ;Überspringe nächste Zeile wenn ungleich
    ! Mov  b,1              ;Setze b auf logisch 1
Weiter0:
    ! Mov  Edx,d            ;StringPtr nach Edx
    ! Mov  Ebx,c            ;Counter nach Ebx
    ! Mov  Eax,[Edx+Ebx]    ;Wert aus Speicher nach Eax
    ! Mov  Ebx,0            ;Initialisiere Ebx
    ! Shr  a,1              ;Division um binär ^2
    ! Mov  Ebx,a            ;Wert a auf bl
    ! Inc  Ebx              ;Addiere 1
    ! And  Eax,Ebx          ;And mit Wert aus Ebx
    ! Cmp  Eax,Ebx          ;Vergleiche Eax,Ebx
    ! Jne  Weiter1          ;Überspringe nächste Zeile wenn ungleich
    ! Mov  e,1              ;Setze e auf logisch 1
Weiter1:
    ! Mov  Eax,nCRC         ;setze nCRC nach Eax
    ! AND  Eax,32767        ;32767 And
    ! Shl  Eax,1            ;Multipliziere Eax mit 2
    ! Mov  nCRC,Eax         ;speichere Ergebnis in nCRC
    ! Mov  Eax,0            ;Initialisiere Eax
    ! Mov  Al,b             ;Wert aus b nach Al
    ! Mov  Ah,e             ;Wert von e nach Ah
    ! Cmp  al,ah            ;Vergleiche b mit e
    ! Je   Weiter2          ;Springe wenn gleich XOR = true
    ! Mov  Eax,nCRC         ;setze nCRC nach Eax
    ! Xor  Eax,&H8005       ;&H8005 XOR
    ! Mov  nCRC,Eax         ;Speichere Ergebnis in nCRC
Weiter2:
    ! Dec  Ecx              ;Vermindere counter um 1
    ! cmp  Ecx,0            ;ist Counter 0?
    ! Jne  Loop1            ;nein, dann Springe zu Loop1
    ! Inc  c                ;Addiere in c c=c+1
    ! Mov  Eax,c
    ! Mov  Ebx,n
    ! Cmp  Eax,Ebx
    ! Jne  Loop0
 
    IF nCrC < 0 THEN nCrC = nCrC+&H10000
    FUNCTION = nCrC
END FUNCTION