Função para teste de CRC de campos DBF

[rochinha]

Amiguinhos,

Encontrei no meu arquivo de funções. Não lembro de ter usado, mas vai que alguém precise.

function dbSaveCRC() 
   if dbFieldCRC() 
      FieldPut(FCount(),dbCalcCRC()) 
   end 
   return nil 
	function dbFieldCRC() 
   return Right(RTrim(FieldName(FCount())),3) == "CRC" 
	function dbCalcCRC() 
   local cSum := "" 
   local f 
   local i 
   * 
   for i := 1 to FCount()-1 
       f := FieldGet(i) 
       cSum += if(ValType(f) = "C",      f         ,; 
               if(ValType(f) = "N",  Str(f,18,6)   ,; 
               if(ValType(f) = "D", DtoS(f)        ,; 
               if(ValType(f) = "L",   if(f,"1","0"), "")))) 
   next 
   return .t. // CRC32Calc(cSum)

[Ariston Santos]

Muito boa.

Obrigado.

[kapiaba]

CRC de campos DBF, que significa Rochinha? CRC no meu conhecimento, é Conselho Regional de Contabilidade. kkkkk

[rochinha]

Amiguinhos,

Temos de fazer alguma coisa, o kapiaba tá começando a beber muito cedo, kkkkkkkkkkkkkkkkkkk.

Vou fazer quenem ele:

https://www.google.com.br/search?ei=CtjpWo_NGYHEwATwvKmgDA&q=o+que+é+calculo+crc&oq=o+que+é+calculo+crc&gs_l=psy-ab.3...25133.28341.0.28640.8.8.0.0.0.0.276.1010.0j4j1.5.0..2..0...1.1.64.psy-ab..3.2.371...33i10k1.0.iy_FYbiCgGE

[kapiaba]

kkkkkkkkk, boa. continuei boiando. Péray, vou ali tomar + uma. kkkkkkkkkkkkkkkkkkkkkkkk

[Ariston Santos]

Conceito de CRC (Cyclical Redundancy Check)
A sigla CRC (sigla da expressão inglesa Cyclical Redundancy Check e que em português é traduzida por Verificação de Redundância Cíclica) consiste num número criado por um cálculo matemático no computador fonte de um pacote de dados. Quando o pacote chega a seu destino, o cálculo é refeito. Se os resultados forem os mesmos, isso indica que os dados no pacote permaneceram estáveis. No caso do cálculo no destino diferir do cálculo na fonte, tal significa que os dados foram alterados durante a transmissão. Neste caso, a rotina CRC sinaliza o computador fonte para retransmitir os dados.

Fonte: http://knoow.net/ciencinformtelec/informatica/crc-cyclical-redundancy-check/