que hace esto?
Publicado por yari (1 intervención) el 27/12/2007 12:50:39
Hola a todos...hace años que no programo en Basic y tengo un dilema. Tengo un algoritmo que me han enviado que calcula un checksum. Necesito "traducir" esto a algo que yo entienda, ya sea simplemente español o si alguien tiene el tiempo pues en algo similar a pascal o C...gracias!
FOR i = 0 TO 7
Power(i) = 2 ^ i
NEXT i
CRC = 0
Open fil$ FOR Input AS #2 'Open file
Input #2, pre$ 'Input of "prepared by"
k = 0
DO WHILE NOT EOF(2)
k = k + 1
LINE Input #2, b$
bp$(k) = b$
FOR i = 1 TO LEN(b$)
ByteVal = Asc(MID$(b$, i, 1))
FOR j = 7 TO 0 STEP -1
TestBit = ((CRC AND 32768) = 32768) XOR ((ByteVal AND Power(j)) = Power(j))
CRC = ((CRC AND 32767&) * 2&)
IF TestBit THEN CRC = CRC XOR &H8005&
NEXT j
NEXT i
CRC32& = CRC
LOOP
kf = k
FOR i = 0 TO 7
Power(i) = 2 ^ i
NEXT i
CRC = 0
Open fil$ FOR Input AS #2 'Open file
Input #2, pre$ 'Input of "prepared by"
k = 0
DO WHILE NOT EOF(2)
k = k + 1
LINE Input #2, b$
bp$(k) = b$
FOR i = 1 TO LEN(b$)
ByteVal = Asc(MID$(b$, i, 1))
FOR j = 7 TO 0 STEP -1
TestBit = ((CRC AND 32768) = 32768) XOR ((ByteVal AND Power(j)) = Power(j))
CRC = ((CRC AND 32767&) * 2&)
IF TestBit THEN CRC = CRC XOR &H8005&
NEXT j
NEXT i
CRC32& = CRC
LOOP
kf = k
Valora esta pregunta
0