Hallo zusammen,

ich muß für die Ansteuerung eines EC-Cash Gerätes einen CRC16 Prüfsumme berechnnen. Im Netz habe ich einen VBA Code gefunden der dieses macht. Da ich aber VBA Laie bin bekomme ich den Code nicht korrekt übersetzt.
Der VBA Code lautet

CRC = CRCT(LB Xor Asc(Mid$(daten, i, 1))) Xor HB

CRCT ist eine Tabelle mit 225 Einträge. LB=143, HB=114, daten=99:
Ergebnis:15513



Meine RPG Code
CRC=CRC16TABLE(%bitxor(%bitxor(LB :Num):HB))

B=143, HB=114, daten=99
Ergebnis:20332


Hat da vielleicht einer eine Idee oder ein RPG Programm mit dem man CRC16 berechnen kann?

Gruß Olaf