|
redqqqq
級(jí)別: 探索解密
|
要做串口通訊,用TXD,RXD指令,哪位大佬幫一下,拜托!!! |
|---|---|
|
附件:
CRC效驗(yàn).zip (6 K) 下載次數(shù):39
|
|
yha_4611
QQ: 2490453455私信聊天
級(jí)別: 家園常客
|
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效驗(yàn).rar (6 K) 下載次數(shù):55
|
|
redqqqq
級(jí)別: 探索解密
|
二樓,那個(gè)程序功能塊里有CRC效驗(yàn),但加了密碼,所以需要解一下 |
|---|---|
|
|
|
yha_4611
QQ: 2490453455私信聊天
級(jí)別: 家園常客
|
你沒(méi)看看,附件里面的文件是沒(méi)有加密的嗎?
|
|
|---|---|---|
|
|
redqqqq
級(jí)別: 探索解密
|
二樓,感謝!!! 大佬已經(jīng)解開(kāi)了,我開(kāi)始以為你那段代碼,是用高級(jí)語(yǔ)言寫(xiě)的CRC效驗(yàn),原來(lái)就是功能塊里的代碼! 謝謝大佬, ![]() |
|---|---|
|
|
|
xiaomayitan
AutoControl007 加V,交朋友NX NJ PLC
級(jí)別: 探索解密
|
加 V: AutoControl007 我?guī)湍愀愣ǎ瑲W姆龍NX、NJ系列PLC 管理員密碼,用戶身份驗(yàn)證,功能塊,程序,庫(kù)文件密碼,都可以幫你搞定。 |
|---|---|
|
|