没有合适的资源?快使用搜索试试~ 我知道了~
Delphi_CDT规约CRC8校验计算源码
5星 · 超过95%的资源 需积分: 11 29 下载量 24 浏览量
2013-11-25
15:30:41
上传
评论
收藏 30KB DOC 举报
温馨提示
试读
2页
Delphi_CDT规约CRC8校验计算源码,对于CDT的校验码计算有兴趣的筒子可以看看
资源推荐
资源详情
资源评论
Delphi CDT 规约 CRC8 校验计算
源码:确实 100%正确
var
CRC8_TABLE: array[0..255] of Byte =(
$00,$07,$0E,$09,$1C,$1B,$12,$15,
$38,$3F,$36,$31,$24,$23,$2A,$2D,
$70,$77,$7E,$79,$6C,$6B,$62,$65,
$48,$4F,$46,$41,$54,$53,$5A,$5D,
$E0,$E7,$EE,$E9,$FC,$FB,$F2,$F5,
$D8,$DF,$D6,$D1,$C4,$C3,$CA,$CD,
$90,$97,$9E,$99,$8C,$8B,$82,$85,
$A8,$AF,$A6,$A1,$B4,$B3,$BA,$BD,
$C7,$C0,$C9,$CE,$DB,$DC,$D5,$D2,
$FF,$F8,$F1,$F6,$E3,$E4,$ED,$EA,
$B7,$B0,$B9,$BE,$AB,$AC,$A5,$A2,
$8F,$88,$81,$86,$93,$94,$9D,$9A,
$27,$20,$29,$2E,$3B,$3C,$35,$32,
$1F,$18,$11,$16,$03,$04,$0D,$0A,
$57,$50,$59,$5E,$4B,$4C,$45,$42,
$6F,$68,$61,$66,$73,$74,$7D,$7A,
$89,$8E,$87,$80,$95,$92,$9B,$9C,
$B1,$B6,$BF,$B8,$AD,$AA,$A3,$A4,
$F9,$FE,$F7,$F0,$E5,$E2,$EB,$EC,
$C1,$C6,$CF,$C8,$DD,$DA,$D3,$D4,
$69,$6E,$67,$60,$75,$72,$7B,$7C,
$51,$56,$5F,$58,$4D,$4A,$43,$44,
$19,$1E,$17,$10,$05,$02,$0B,$0C,
$21,$26,$2F,$28,$3D,$3A,$33,$34,
$4E,$49,$40,$47,$52,$55,$5C,$5B,
$76,$71,$78,$7F,$6A,$6D,$64,$63,
$3E,$39,$30,$37,$22,$25,$2C,$2B,
$06,$01,$08,$0F,$1A,$1D,$14,$13,
$AE,$A9,$A0,$A7,$B2,$B5,$BC,$BB,
$96,$91,$98,$9F,$8A,$8D,$84,$83,
$DE,$D9,$D0,$D7,$C2,$C5,$CC,$CB,
$E6,$E1,$E8,$EF,$FA,$FD,$F4,$F3);
function CRC8(Value: String): char;
var
uchCRC: Byte;
iDataLen,i: Integer;
资源评论
- weixin_391823802018-09-19很好用 谢谢分享
- hwgh1232013-12-02不错、、、及时的解决了困恼
as504615572as
- 粉丝: 0
- 资源: 6
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功