Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

CRC [D7]

Страницы: < 1 2 3
defen © (2012-01-03 11:58:00)
Всем доброго времени суток. Подскажите пожалуйста, как быстро реализовать подсчет CRC для передаваемого пакета? Длинна пакета 136 байт Заголовок 2 байта, Счетчик 2байта, Длинна пакета 2байта, Данные 128байт. В конце CRC тоже 2 байта. по гуглу нашел только проверку CRC для готового файла, но применить к своей проге не смог, увы... :(

DVM (2012-01-03 23:49:00) [41]
и в UDP есть, еще одна.

про TCP я уж молчу.

DVM (2012-01-03 23:47:00) [42]

> defen ©

в IP пакете есть уже CRC:

{ Internet Datagram Header (RFC 791) 0 1 2 3 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ |Version| IHL |Type of Service| Total Length | +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ | Identification |Flags| Fragment Offset | +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ | Time to Live | Protocol | Header Checksum | +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ | Source Address | +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ | Destination Address | +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ | Options | Padding | +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ }

DVM (2012-01-03 23:31:00) [43]

> antonn © (03.01.12 23:03) [13]

> навернутое над upd бывает оптимальнее tcp, я про это

Только там, где можно смириться с потерей части данных (игры, видео, звук) и где порция данных целиком помещается в пакет. Иначе будет тот же TCP только в профиль.

antonn (2012-01-03 23:03:00) [44]
игроделы таким занимаются

> "навернутое" сверху не может быть быстрее стандартного,

навернутое над upd бывает оптимальнее tcp, я про это

sniknik (2012-01-03 20:13:00) [45]
> наворачивая сверху свою проверку на доставку и очередность, быстрее чем tcp
???
"навернутое" сверху не может быть быстрее стандартного, т.к. его включает. может быть "вместо", но тут уровень программиста должен быть другой, кто-то досконально знающий стандартный и поэтому знающий за счет чего можно ускорить (скорость за счет надежности, если она где то не нужна. и т.д.).

Андреевич (2012-01-03 18:00:00) [46]

> за целостность пакета вообще то отвечает протокол... т.е.
> если взять UDP то он без гарантированной доставки, но раз
> пришел то с верными/проверенными данными.
> т.е. ты изобретаешь велосипед там где он не нужен, поверх
> существующего,

не редко делают в играх, наворачивая сверху свою проверку на доставку и очередность, быстрее чем tcp

defen (2012-01-03 15:11:00) [47]
спасибо, буду пробовать....

Sha (2012-01-03 15:03:00) [48]
crc32 http://guildalfa.ru/alsha/node/2
crc64 http://guildalfa.ru/alsha/node/4

скорость на разных компах см. в комментариях

defen (2012-01-03 13:50:00) [49]
а что это за функция?

sniknik (2012-01-03 13:36:00) [50]
> но сейчас важно именно принятие правильного пакета...
функция проверки
function isProperPackage(const ValuePackage: string): boolean; begin result:= true; end;
пользуйся.

defen (2012-01-03 13:22:00) [51]

> а вот собственную сборку целого из пакетов не проверяешь.
> ..

я так понял имеется ввиду уже конечный продукт.
Естественно, что буду его проверять и очередность пакетов тоже, но сейчас важно именно принятие правильного пакета...

defen (2012-01-03 13:13:00) [52]
просто с потоками не работал, а времени в обрез...

defen (2012-01-03 13:12:00) [53]
канал узкий, я не могу использовать стандартные протоколы передачи данных. Единственное, что подошло - это Hiper Terminal с проверкой ошибочных пакетов или что-то в этом духе. Но он работает весьма глючно...

sniknik (2012-01-03 12:48:00) [54]
за целостность пакета вообще то отвечает протокол... т.е. если взять UDP то он без гарантированной доставки, но раз пришел то с верными/проверенными данными.
т.е. ты изобретаешь велосипед там где он не нужен, поверх существующего, а вот собственную сборку целого из пакетов не проверяешь... хотя при "выпадении", или изменении очередности пакетов (и то и то вполне вероятно), получишь "криво" собранное целое.

> а не переделывать все заново.
лучше переделай. ошибки в основе это очень серьезно, и гораздо больше времени тратится потом на выискивание странных глюков в уже готовой программе, чем более готовой, тем больше времени потратишь.

defen (2012-01-03 12:25:00) [55]
дело в том, что я не стал использовать потоки... Файл считывается побайтно и передается в массив типа byte, затем из этого массива считываются данные и отправляются в массив для передаваемого пакета. когда пакет готов к отправке он записывается в переменную типа AnsiString и пуляется в канал. Поэтому очень хотелось бы работать уже с готовыми данными, а не переделывать все заново. извиняюсь, что не уточнил сразу...

Андреевич (2012-01-03 12:14:00) [56]
снимает crc32 с потока
function MemoryStream_CRC32(mou:Tstream): Cardinal; const BufLen = 32768; const CRC32_Table: array[0..255] of LongWord = ($00000000,$77073096,$EE0E612C,$990951BA,$076DC419,$706AF48F,$E963A535,$9E6495A3 , $0EDB8832,$79DCB8A4,$E0D5E91E,$97D2D988,$09B64C2B,$7EB17CBD,$E7B82D07,$90BF1D91, $1DB71064,$6AB020F2,$F3B97148,$84BE41DE,$1ADAD47D,$6DDDE4EB,$F4D4B551,$83D385C7, $136C9856,$646BA8C0,$FD62F97A,$8A65C9EC,$14015C4F,$63066CD9,$FA0F3D63,$8D080DF5, $3B6E20C8,$4C69105E,$D56041E4,$A2677172,$3C03E4D1,$4B04D447,$D20D85FD,$A50AB56B, $35B5A8FA,$42B2986C,$DBBBC9D6,$ACBCF940,$32D86CE3,$45DF5C75,$DCD60DCF,$ABD13D59, $26D930AC,$51DE003A,$C8D75180,$BFD06116,$21B4F4B5,$56B3C423,$CFBA9599,$B8BDA50F, $2802B89E,$5F058808,$C60CD9B2,$B10BE924,$2F6F7C87,$58684C11,$C1611DAB,$B6662D3D, $76DC4190,$01DB7106,$98D220BC,$EFD5102A,$71B18589,$06B6B51F,$9FBFE4A5,$E8B8D433, $7807C9A2,$0F00F934,$9609A88E,$E10E9818,$7F6A0DBB,$086D3D2D,$91646C97,$E6635C01, $6B6B51F4,$1C6C6162,$856530D8,$F262004E,$6C0695ED,$1B01A57B,$8208F4C1,$F50FC457, $65B0D9C6,$12B7E950,$8BBEB8EA,$FCB9887C,$62DD1DDF,$15DA2D49,$8CD37CF3,$FBD44C65, $4DB26158,$3AB551CE,$A3BC0074,$D4BB30E2,$4ADFA541,$3DD895D7,$A4D1C46D,$D3D6F4FB, $4369E96A,$346ED9FC,$AD678846,$DA60B8D0,$44042D73,$33031DE5,$AA0A4C5F,$DD0D7CC9, $5005713C,$270241AA,$BE0B1010,$C90C2086,$5768B525,$206F85B3,$B966D409,$CE61E49F, $5EDEF90E,$29D9C998,$B0D09822,$C7D7A8B4,$59B33D17,$2EB40D81,$B7BD5C3B,$C0BA6CAD, $EDB88320,$9ABFB3B6,$03B6E20C,$74B1D29A,$EAD54739,$9DD277AF,$04DB2615,$73DC1683, $E3630B12,$94643B84,$0D6D6A3E,$7A6A5AA8,$E40ECF0B,$9309FF9D,$0A00AE27,$7D079EB1, $F00F9344,$8708A3D2,$1E01F268,$6906C2FE,$F762575D,$806567CB,$196C3671,$6E6B06E7, $FED41B76,$89D32BE0,$10DA7A5A,$67DD4ACC,$F9B9DF6F,$8EBEEFF9,$17B7BE43,$60B08ED5, $D6D6A3E8,$A1D1937E,$38D8C2C4,$4FDFF252,$D1BB67F1,$A6BC5767,$3FB506DD,$48B2364B, $D80D2BDA,$AF0A1B4C,$36034AF6,$41047A60,$DF60EFC3,$A867DF55,$316E8EEF,$4669BE79, $CB61B38C,$BC66831A,$256FD2A0,$5268E236,$CC0C7795,$BB0B4703,$220216B9,$5505262F, $C5BA3BBE,$B2BD0B28,$2BB45A92,$5CB36A04,$C2D7FFA7,$B5D0CF31,$2CD99E8B,$5BDEAE1D, $9B64C2B0,$EC63F226,$756AA39C,$026D930A,$9C0906A9,$EB0E363F,$72076785,$05005713, $95BF4A82,$E2B87A14,$7BB12BAE,$0CB61B38,$92D28E9B,$E5D5BE0D,$7CDCEFB7,$0BDBDF21, $86D3D2D4,$F1D4E242,$68DDB3F8,$1FDA836E,$81BE16CD,$F6B9265B,$6FB077E1,$18B74777, $88085AE6,$FF0F6A70,$66063BCA,$11010B5C,$8F659EFF,$F862AE69,$616BFFD3,$166CCF45, $A00AE278,$D70DD2EE,$4E048354,$3903B3C2,$A7672661,$D06016F7,$4969474D,$3E6E77DB, $AED16A4A,$D9D65ADC,$40DF0B66,$37D83BF0,$A9BCAE53,$DEBB9EC5,$47B2CF7F,$30B5FFE9, $BDBDF21C,$CABAC28A,$53B39330,$24B4A3A6,$BAD03605,$CDD70693,$54DE5729,$23D967BF, $B3667A2E,$C4614AB8,$5D681B02,$2A6F2B94,$B40BBE37,$C30C8EA1,$5A05DF1B,$2D02EF8D) ; var Res:Integer; BufPtr:Pointer; crcnew:longword; Buf: array[0..BufLen-1] of Byte; function G_NextCRC32(var CRC32: LongWord; P: Pointer; L: Cardinal): LongWord; asm TEST ECX,ECX JE @@qt PUSH EBX PUSH EAX MOV EAX,[EAX] NOT EAX PUSH ESI @@lp: MOVZX ESI,BYTE PTR [EDX] MOVZX EBX,AL SHR EAX,8 XOR EBX,ESI XOR EAX,DWORD PTR [EBX*4+CRC32_Table] INC EDX DEC ECX JNE @@lp POP ESI POP EDX NOT EAX MOV [EDX],EAX POP EBX RET @@qt: MOV EAX,[EAX] end; begin BufPtr := @Buf; crcnew:=0; mou.Position:=0; Res:=mou.Read(Buf,sizeof(Buf)); while (Res<>0) do begin G_NextCRC32(crcnew,BufPtr,res); Res:=mou.Read(Buf,sizeof(Buf)); end; Result:=crcnew; end;

Страницы: < 1 2 3

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »