checksum

17/07/2003 - 17:48 por CR | Informe spam
Hola:

Necesito tener un control sobre los registros de una tabla y saber si ha
sido modificado desde access o bien desde cualquier otro programa. Para ello
había pensado de crear un númeró, único para cada registro, y que sea un
número que, por ejemplo, tenga en cuenta el número de carácteres y longitud.

En Java existe GetBytes y en VB LENB, pero no me sirve puesto que, por
ejemplo, la letra 'A' y 'a' tiene el mismo valor. El truco claro está, en no
realizar una búsqueda caracter a carácter en cada string.

Alguien sabe cómo hacer esta especie de checksum???


Gracias
 

Leer las respuestas

#1 Victor Koch
17/07/2003 - 18:08 | Informe spam
A ver si te sirve esta:

Function PFCRC(Entrada as string) as string

Dim a As Integer, su As Integer
Dim crcout As String

For a = 1 To Len(Entrada)
su = su + Asc(Mid$(Entrada, a, 1))
Next a

crcout = LTrim(Hex$(su))

crcout = Right$(("000000" + crcout), 4)

PFCRC = crcout

End Function


Un saludo, Víctor Koch.


"CR" escribió en el mensaje
news:7DzRa.244$
Hola:

Necesito tener un control sobre los registros de una tabla y saber si ha
sido modificado desde access o bien desde cualquier otro programa. Para


ello
había pensado de crear un númeró, único para cada registro, y que sea un
número que, por ejemplo, tenga en cuenta el número de carácteres y


longitud.

En Java existe GetBytes y en VB LENB, pero no me sirve puesto que, por
ejemplo, la letra 'A' y 'a' tiene el mismo valor. El truco claro está, en


no
realizar una búsqueda caracter a carácter en cada string.

Alguien sabe cómo hacer esta especie de checksum???


Gracias


Preguntas similares