|
redqqqq
級別: 探索解密
|
要做串口通訊,用TXD,RXD指令,哪位大佬幫一下,拜托!!! |
|---|---|
|
附件:
CRC效驗.zip (6 K) 下載次數:41
|
|
yha_4611
QQ: 2490453455私信聊天
級別: 家園常客
|
IF RUN THEN CRCPloy:= 16#A001; LSBNoZero:= FALSE; RCRC:= 16#FFFF; IF((DataLength MOD 2)<>0) THEN flag:= TRUE; DataLengthWord:= DataLength/2+1; ELSE flag:= FALSE; DataLengthWord:= DataLength/2; END_IF; FOR loop_I:= 0 TO DataLengthWord-1 DO HiByte:= SHR((CRCData[loop_I] AND 16#FF00),8); LoByte:= CRCData[loop_I] AND 16#FF; RCRC:= RCRC XOR HiByte; FOR shiftCount:= 0 TO 7 DO Temp:= RCRC AND 16#0001; IF WORD_TO_INT(Temp)<>0 THEN LSBNoZero:= TRUE; ELSE LSBNoZero:= FALSE; END_IF; RCRC:= SHR(RCRC,1); IF LSBNoZero THEN RCRC:= RCRC XOR CRCPloy; END_IF; END_FOR; IF(loop_I=(DataLengthWord-1)) AND (flag=TRUE) THEN CRCLo:= SHR((RCRC AND 16#FF00),8); CRCHi:= RCRC AND 16#FF; RETURN; END_IF; RCRC:= RCRC XOR LoByte; FOR shiftCount:= 0 TO 7 DO Temp:= RCRC AND 16#0001; IF WORD_TO_INT(Temp)<>0 THEN LSBNoZero:= TRUE; ELSE LSBNoZero:=FALSE; END_IF; RCRC:= SHR(RCRC,1); IF LSBNoZero THEN RCRC:= RCRC XOR CRCPloy; END_IF; END_FOR; END_FOR; CRCLo:= SHR((RCRC AND 16#FF00),8); CRCHi:= RCRC AND 16#FF; END_IF; |
|
|---|---|---|
|
附件:
CRC效驗.rar (6 K) 下載次數:61
|
|
yha_4611
QQ: 2490453455私信聊天
級別: 家園常客
|
你沒看看,附件里面的文件是沒有加密的嗎?
|
|
|---|---|---|
|
|
redqqqq
級別: 探索解密
|
二樓,感謝!!! 大佬已經解開了,我開始以為你那段代碼,是用高級語言寫的CRC效驗,原來就是功能塊里的代碼! 謝謝大佬, ![]() |
|---|---|
|
|
|
xiaomayitan
AutoControl007 加V,交朋友NX NJ PLC
級別: 探索解密
|
加 V: AutoControl007 我幫你搞定,歐姆龍NX、NJ系列PLC 管理員密碼,用戶身份驗證,功能塊,程序,庫文件密碼,都可以幫你搞定。 |
|---|---|
|
|