, viser en simpel hashing algorythm., funktion hashelf (denne buf; bufsize: hele tal): heltal, var, bytes: tbytearray absolut buf; - x: heltal, begynder, resultat: = 0, for jeg: = 0 til bufsize - 1, begynder, resultat: = (resultat sømhaj shb 4) + bytes [i];, x = resultat og $f0000000; hvis (x < > 0), resultat: = resultat xor (x shr 24), resultat: = resultat og (x);,;,;,,,