J1 communication에서 사용하는 CRC16 Polynomial 0x8005

최익태	2012-10-12 17:36:34, 조회 : 20,233, 추천 : 5100

- SiteLink #1 : http://www.excelforum.com/excel-programming-vba-macros/750048-crc-16-ccitt-calculator-2-print.html

안녕하세요

저는 program 언어는 아무것도 모르는 사람입니다.

J1 communication에서 사용하는 CRC16 을 엑셀VBA 모듈에 집어넣을려고 합니다.
-google에서 검색하여 엑셀에 적용 해보았지만... 실패 하였습니다. (아래의 코드 입니다. 원본출쳐 link합니다.)
   혹시 Visual basic으로 CRC16 Souce code 전달 받을수 있을까요?
   아래의 코드 수정 Point라도 가르쳐 주셨으면 합니다.

감사합니다.

-----google에서 검색한 Souce code -------------------------------------------------------------
Function CITT_CRC_HEX(myString As String) As String

Dim temp() As Byte
ReDim temp(Len(myString) / 2 - 1)
For J = 1 To Len(myString) Step 2
     temp((J - 1) / 2) = Val("&h" & Mid(myString, J, 2))
Next J
CITT_CRC_HEX = CRC16_4(temp())

End Function
Function CITT_CRC_String(myString As String) As String

Dim temp() As Byte

ReDim temp(Len(myString) - 1)

For J = 1 To Len(myString)
     temp(J - 1) = Asc(Mid(myString, J, 1))
Next J
CITT_CRC_HEX = CRC16_4(temp())

End Function

Private Function CRC16_4(Buffer() As Byte) As String
     Const CRC_POLYNOM As Long = &H8005&
     Const CRC_PRESET As Long = &HFFFF&
     Dim CRC As Long, I As Long, J As Long

    CRC = CRC_PRESET                              'unsigned internal CRC = CRC_PRESET
     For I = 0 To UBound(Buffer)                  'for(i=0; i < cnt; i++)
         CRC = CRC Xor Buffer(I)                  'crc ^= Buffer[i]
         For J = 0 To 7                            'for(j=0; j<8;j++)
             If (CRC And 1) Then                  'if(crc & 0x0001)
                 CRC = (CRC \ 2) Xor CRC_POLYNOM  'crc=(crc>>1)^CRC_POLYNOM;
             Else
                 CRC = (CRC \ 2)                  'crc=(crc>>1)
             End If
         Next J
     Next I
     CRC16_4 = Right("0000" & Hex$((Not CRC) And &HFFFF&), 4)
End Function
-------------------------------------------------------------------------------------------

Tidodegtn46

<a href=http://robaxin.racing/>robaxin otc</a>

2016-02-13
09:52:54

asCofepgqx8

<a href=http://prednisone20mg.ru/>prednisone 20 mg</a>

2016-02-14
03:21:45

asCofonc04h

<a href=http://provera.party/>provera</a>

2016-02-29
16:45:19

asCofhtip30

<a href=http://lasix.us.com/>buy lasix without presciption</a>

2016-03-12
22:54:42

asCofr2cby8

<a href=http://tretinoin.review/>tretinoin</a>

2016-03-26
15:49:46

Erickcania

wh0cd710390 <a href=http://viagraprofessional100mg.gdn/>resource</a> <a href=http://chlomid.gdn/>clomid</a> <a href=http://chloramphenicol.party/>chloramphenicol</a> <a href=http://tadacip2014.top/>tadacip</a> <a href=http://buy-clindamycin.gdn/>clindamycin hcl 300 mg buy</a> <a href=http://finpecia.party/>finpecia</a> <a href=http://buyadvair.club/>buy advair</a>

2017-01-20
10:22:02

BrettBiott

wh0cd529922 <a href=http://buy-albuterol.us/>continue</a> <a href=http://viagraprice.link/>viagra price</a> <a href=http://tadalafil-online.gdn/>cipla tadalafil</a> <a href=http://buycefixime.party/>buy cefixime</a> <a href=http://buyaygestin.gdn/>aygestin</a> <a href=http://cialis-pills.us/>cialis pills</a>

2017-01-20
22:54:35

Stewartbuiva

wh0cd11170 <a href=http://ventolinonline.eu/>ventolin</a> <a href=http://buychloromycetinonline.bid/>chloromycetin without prescription</a> <a href=http://buy-levaquin.click/>buy levaquin</a> <a href=http://buyhydrochlorothiazide.us.com/>hydrochlorothiazide online</a> <a href=http://proscaronline.gdn/>proscar</a> <a href=http://cephalexin.gb.net/>cephalexin</a> <a href=http://buytretinoin2013.top/>tretinoin cream sale</a> <a href=http://prednisone-steroid.science/>no prescription prenisone</a>

2017-01-22
22:30:56

BillySlect

wh0cd830702 <a href=http://sildenafil17.top/>sildenafil</a> <a href=http://trazodone8.top/>buy trazodone online</a> <a href=http://buyrobaxin2013.top/>robaxin 500mg</a> <a href=http://ciproantibiotic.link/>cipro</a> <a href=http://cleocin-gel-online.science/>cleocin gel without prescription</a> <a href=http://buymetformin15.top/>buy metformin er</a> <a href=http://acticin.us/>acticin online</a> <a href=http://azithromycin250mg.site/>azithromycin 500mg treatment</a> <a href=http://buy-acyclovir.click/>acyclovir</a>

2017-01-24
05:30:44

Erickcania

wh0cd650234 <a href=http://citalopram20mg.review/>citalopram 20mg</a> <a href=http://diclofenac16.top/>diclofenac sodium 75mg</a> <a href=http://buyprozac.tech/>prozac</a> <a href=http://celebrexonline.link/>celebrex</a> <a href=http://celebrex200mg.review/>celebrex no prescription</a> <a href=http://synthroid.fashion/>synthroid</a> <a href=http://viagraforsale.review/>viagra</a> <a href=http://prednisonepack.link/>prednisone pack</a> <a href=http://advairgeneric.club/>advair</a>

2017-01-25
07:25:51

BrettBiott

wh0cd469766 <a href=http://alesse247.club/>alesse</a> <a href=http://neurontin365.us.com/>order neurontin</a> <a href=http://viagrasoft.us.com/>Viagra Soft</a> <a href=http://yasmin247.us.com/>cheap yasmin</a> <a href=http://rimonabant247.us.com/>rimonabant</a> <a href=http://kamagra365.us.com/>Kamagra</a> <a href=http://meloxicam.trade/>Meloxicam</a> <a href=http://buyadalat.us.com/>buy adalat</a> <a href=http://atenolol.us.org/>atenolol</a>

2017-01-26
00:09:33

Stewartbuiva

wh0cd951014 <a href=http://buyproscar2017.top/>buy proscar</a> <a href=http://lasix16.top/>lasix</a> <a href=http://yasmin-online.gdn/>buy yasmin</a> <a href=http://propecia.us/>propecia</a> <a href=http://metforminonline.site/>metformin</a>

2017-01-27
16:11:10

BillySlect

wh0cd770546 <a href=http://baclofen2016.us.com/>baclofen</a> <a href=http://requip.us.com/>buy requip</a> <a href=http://vytorin247.club/>vytorin</a> <a href=http://hyzaar.us.com/>Hyzaar By Mail Order</a> <a href=http://trazodone2017.us.com/>trazodone</a>

2017-01-28
21:22:16

Erickcania

wh0cd590078 <a href=http://buy-methotrexate.info/>methotrexate</a> <a href=http://antabuse.christmas/>antabuse</a> <a href=http://tretinoincream01.us/>tretinoin cream</a> <a href=http://augmentin875.click/>augmentin 875</a> <a href=http://zestoretic.click/>zestoretic</a> <a href=http://buybentyl.website/>bentyl</a>

2017-01-30
02:34:36

BrettBiott

wh0cd409610 <a href=http://buytoradol.club/>toradol</a> <a href=http://buynexium.website/>nexium</a> <a href=http://diflucanoverthecounter.review/>diflucan</a> <a href=http://lisinoprilgeneric.review/>order lisinopril online</a> <a href=http://buyvaltrex8.top/>valtrex generic online</a> <a href=http://clindamycinhcl.pro/>clindamycin</a> <a href=http://buy-antabuse.tech/>buy antabuse online no prescription</a> <a href=http://acyclovironline.click/>acivir</a> <a href=http://ventolin75.us/>proventil hfa 90 mcg inhaler</a>

2017-01-30
17:49:21

Stewartbuiva

wh0cd890858 <a href=http://advairgeneric.site/>advair</a> <a href=http://atenololonline.us/>buy atenolol online</a> <a href=http://fluoxetinehcl.gdn/>fluoxetine hcl</a> <a href=http://azithromycin-500-mg.bid/>azithromycin</a> <a href=http://buy-zithromax.site/>zithromax without prescription</a> <a href=http://buyviagrasoft.club/>buy viagra soft</a> <a href=http://bupropion-hcl.trade/>bupropion</a> <a href=http://buyadvair.club/>visit your url</a>

2017-02-01
10:29:41

Erickcania

wh0cd710390 <a href=http://wellbutrin2012.top/>wellbutrin</a> <a href=http://medrol.us/>medrol</a> <a href=http://buysynthroid.us/>synthroid</a> <a href=http://prednisolone5mg.review/>prednisolone 5mg</a>

2017-02-07
03:09:52

BrettBiott

wh0cd529922 <a href=http://hydrochlorothiazide365.us.com/>hydrochlorothiazide hctz</a> <a href=http://buycymbalta.us.com/>duloxetine</a> <a href=http://bentyl365.us.com/>bentyl</a> <a href=http://lisinopril.us.org/>lisinopril prescription</a>

2017-02-23
13:26:49

Erickcania

wh0cd650234 <a href=http://buycialis2017.com/>Buy Cialis</a>

2017-04-15
16:40:18

답글달기 수정하기 추천하기

목록보기

	J1 communication에서 사용하는 CRC16 Polynomial 0x8005 [19]	최익태	2012-10-12 17:36:34
	[re] J1 communication에서 사용하는 CRC16 Polynomial 0x8005 [1]	최준원	2012-10-15 08:05:02