TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Libraries

Version: 0.1

Information

Uploaded: 17th Feb 2004 18:21

Modified: 1st Jan 1970 01:00

Author: Cryptoman

Summary

Quick crc32 check system to help prevent hacking or modified files

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`CRC32 builder

`by TRS80Model1

`2-17-2004 (6hrs)

`OpenSource-Just remember who contributed

`Use to check to see if any of your media or Readme files

`have been changed.  If files have been modified then do not allow your

`program to run.  This will help to prevent non-coding jerks from taking your credit

`Sorry I could not get the program to compile under funtions so these are gosubs instead

dim malngCRC32(256)

Global CRC32 = 0xFFFFFFFF

`Build Lookup Table

gosub ConstructCRCTable

`InputFileName$=the file you wish to check.

InputFileName$="upgrade5_1.txt"

`Load file into memblock

gosub loadfile

`Calculate CRC32

gosub GetCRCFromMemblock

`Print Calculated CRC32

print GetCrc

sync

loop

end

loadfile:

open to read 1,InputFileName$

make memblock from file 1,1

close file 1

InputLength =  get memblock size (1)

return

GetCRCFromMemblock:

` Comments  : This procedure generates a CRC for the memblock specified

` Returns   : The calculated CRC value

`' Construct the CRC table

For Counter = 0 To InputLength-1

` Update the CRC

gosub UpdateCRC32

Next Counter

`' The memblock is done being processed

`' Delete memblock and Return the CRC

delete memblock 1

GetCRC = --CRC32

Return

UpdateCRC32:

` Comments  : This procedure calculates the new CRC based on the current CRC

`             and the byte value

` Returns   : The calculated cumulative CRC value

` Calculate the lookup value

Lookup = (CRC32 ~~ memblock byte(1,Counter)) And 255

` Calculate and return the new CRC value

CRC32 = (Int(CRC32 / 256) And 0xFFFFFF) ~~ malngCRC32(Lookup)

return

ConstructCRCTable:

` Comments  : This procedure fills the CRC table with precalculated Values.

`             This is more efficient than calculating CRC's on the fly

` Returns   : Nothing

` Fill the table with the precalculate CRC Values.

malngCRC32(0) = 0x0

malngCRC32(1) = 0x77073096

malngCRC32(2) = 0xEE0E612C

malngCRC32(3) = 0x990951BA

malngCRC32(4) = 0x76DC419

malngCRC32(5) = 0x706AF48F

malngCRC32(6) = 0xE963A535

malngCRC32(7) = 0x9E6495A3

malngCRC32(8) = 0xEDB8832

malngCRC32(9) = 0x79DCB8A4

malngCRC32(10) = 0xE0D5E91E

malngCRC32(11) = 0x97D2D988

malngCRC32(12) = 0x9B64C2B

malngCRC32(13) = 0x7EB17CBD

malngCRC32(14) = 0xE7B82D07

malngCRC32(15) = 0x90BF1D91

malngCRC32(16) = 0x1DB71064

malngCRC32(17) = 0x6AB020F2

malngCRC32(18) = 0xF3B97148

malngCRC32(19) = 0x84BE41DE

malngCRC32(20) = 0x1ADAD47D

malngCRC32(21) = 0x6DDDE4EB

malngCRC32(22) = 0xF4D4B551

malngCRC32(23) = 0x83D385C7

malngCRC32(24) = 0x136C9856

malngCRC32(25) = 0x646BA8C0

malngCRC32(26) = 0xFD62F97A

malngCRC32(27) = 0x8A65C9EC

malngCRC32(28) = 0x14015C4F

malngCRC32(29) = 0x63066CD9

malngCRC32(30) = 0xFA0F3D63

malngCRC32(31) = 0x8D080DF5

malngCRC32(32) = 0x3B6E20C8

malngCRC32(33) = 0x4C69105E

malngCRC32(34) = 0xD56041E4

malngCRC32(35) = 0xA2677172

malngCRC32(36) = 0x3C03E4D1

malngCRC32(37) = 0x4B04D447

malngCRC32(38) = 0xD20D85FD

malngCRC32(39) = 0xA50AB56B

malngCRC32(40) = 0x35B5A8FA

malngCRC32(41) = 0x42B2986C

malngCRC32(42) = 0xDBBBC9D6

malngCRC32(43) = 0xACBCF940

malngCRC32(44) = 0x32D86CE3

malngCRC32(45) = 0x45DF5C75

malngCRC32(46) = 0xDCD60DCF

malngCRC32(47) = 0xABD13D59

malngCRC32(48) = 0x26D930AC

malngCRC32(49) = 0x51DE003A

malngCRC32(50) = 0xC8D75180

malngCRC32(51) = 0xBFD06116

malngCRC32(52) = 0x21B4F4B5

malngCRC32(53) = 0x56B3C423

malngCRC32(54) = 0xCFBA9599

malngCRC32(55) = 0xB8BDA50F

malngCRC32(56) = 0x2802B89E

malngCRC32(57) = 0x5F058808

malngCRC32(58) = 0xC60CD9B2

malngCRC32(59) = 0xB10BE924

malngCRC32(60) = 0x2F6F7C87

malngCRC32(61) = 0x58684C11

malngCRC32(62) = 0xC1611DAB

malngCRC32(63) = 0xB6662D3D

malngCRC32(64) = 0x76DC4190

malngCRC32(65) = 0x1DB7106

malngCRC32(66) = 0x98D220BC

malngCRC32(67) = 0xEFD5102A

malngCRC32(68) = 0x71B18589

malngCRC32(69) = 0x6B6B51F

malngCRC32(70) = 0x9FBFE4A5

malngCRC32(71) = 0xE8B8D433

malngCRC32(72) = 0x7807C9A2

malngCRC32(73) = 0xF00F934

malngCRC32(74) = 0x9609A88E

malngCRC32(75) = 0xE10E9818

malngCRC32(76) = 0x7F6A0DBB

malngCRC32(77) = 0x86D3D2D

malngCRC32(78) = 0x91646C97

malngCRC32(79) = 0xE6635C01

malngCRC32(80) = 0x6B6B51F4

malngCRC32(81) = 0x1C6C6162

malngCRC32(82) = 0x856530D8

malngCRC32(83) = 0xF262004E

malngCRC32(84) = 0x6C0695ED

malngCRC32(85) = 0x1B01A57B

malngCRC32(86) = 0x8208F4C1

malngCRC32(87) = 0xF50FC457

malngCRC32(88) = 0x65B0D9C6

malngCRC32(89) = 0x12B7E950

malngCRC32(90) = 0x8BBEB8EA

malngCRC32(91) = 0xFCB9887C

malngCRC32(92) = 0x62DD1DDF

malngCRC32(93) = 0x15DA2D49

malngCRC32(94) = 0x8CD37CF3

malngCRC32(95) = 0xFBD44C65

malngCRC32(96) = 0x4DB26158

malngCRC32(97) = 0x3AB551CE

malngCRC32(98) = 0xA3BC0074

malngCRC32(99) = 0xD4BB30E2

malngCRC32(100) = 0x4ADFA541

malngCRC32(101) = 0x3DD895D7

malngCRC32(102) = 0xA4D1C46D

malngCRC32(103) = 0xD3D6F4FB

malngCRC32(104) = 0x4369E96A

malngCRC32(105) = 0x346ED9FC

malngCRC32(106) = 0xAD678846

malngCRC32(107) = 0xDA60B8D0

malngCRC32(108) = 0x44042D73

malngCRC32(109) = 0x33031DE5

malngCRC32(110) = 0xAA0A4C5F

malngCRC32(111) = 0xDD0D7CC9

malngCRC32(112) = 0x5005713C

malngCRC32(113) = 0x270241AA

malngCRC32(114) = 0xBE0B1010

malngCRC32(115) = 0xC90C2086

malngCRC32(116) = 0x5768B525

malngCRC32(117) = 0x206F85B3

malngCRC32(118) = 0xB966D409

malngCRC32(119) = 0xCE61E49F

malngCRC32(120) = 0x5EDEF90E

malngCRC32(121) = 0x29D9C998

malngCRC32(122) = 0xB0D09822

malngCRC32(123) = 0xC7D7A8B4

malngCRC32(124) = 0x59B33D17

malngCRC32(125) = 0x2EB40D81

malngCRC32(126) = 0xB7BD5C3B

malngCRC32(127) = 0xC0BA6CAD

malngCRC32(128) = 0xEDB88320

malngCRC32(129) = 0x9ABFB3B6

malngCRC32(130) = 0x3B6E20C

malngCRC32(131) = 0x74B1D29A

malngCRC32(132) = 0xEAD54739

malngCRC32(133) = 0x9DD277AF

malngCRC32(134) = 0x4DB2615

malngCRC32(135) = 0x73DC1683

malngCRC32(136) = 0xE3630B12

malngCRC32(137) = 0x94643B84

malngCRC32(138) = 0xD6D6A3E

malngCRC32(139) = 0x7A6A5AA8

malngCRC32(140) = 0xE40ECF0B

malngCRC32(141) = 0x9309FF9D

malngCRC32(142) = 0xA00AE27

malngCRC32(143) = 0x7D079EB1

malngCRC32(144) = 0xF00F9344

malngCRC32(145) = 0x8708A3D2

malngCRC32(146) = 0x1E01F268

malngCRC32(147) = 0x6906C2FE

malngCRC32(148) = 0xF762575D

malngCRC32(149) = 0x806567CB

malngCRC32(150) = 0x196C3671

malngCRC32(151) = 0x6E6B06E7

malngCRC32(152) = 0xFED41B76

malngCRC32(153) = 0x89D32BE0

malngCRC32(154) = 0x10DA7A5A

malngCRC32(155) = 0x67DD4ACC

malngCRC32(156) = 0xF9B9DF6F

malngCRC32(157) = 0x8EBEEFF9

malngCRC32(158) = 0x17B7BE43

malngCRC32(159) = 0x60B08ED5

malngCRC32(160) = 0xD6D6A3E8

malngCRC32(161) = 0xA1D1937E

malngCRC32(162) = 0x38D8C2C4

malngCRC32(163) = 0x4FDFF252

malngCRC32(164) = 0xD1BB67F1

malngCRC32(165) = 0xA6BC5767

malngCRC32(166) = 0x3FB506DD

malngCRC32(167) = 0x48B2364B

malngCRC32(168) = 0xD80D2BDA

malngCRC32(169) = 0xAF0A1B4C

malngCRC32(170) = 0x36034AF6

malngCRC32(171) = 0x41047A60

malngCRC32(172) = 0xDF60EFC3

malngCRC32(173) = 0xA867DF55

malngCRC32(174) = 0x316E8EEF

malngCRC32(175) = 0x4669BE79

malngCRC32(176) = 0xCB61B38C

malngCRC32(177) = 0xBC66831A

malngCRC32(178) = 0x256FD2A0

malngCRC32(179) = 0x5268E236

malngCRC32(180) = 0xCC0C7795

malngCRC32(181) = 0xBB0B4703

malngCRC32(182) = 0x220216B9

malngCRC32(183) = 0x5505262F

malngCRC32(184) = 0xC5BA3BBE

malngCRC32(185) = 0xB2BD0B28

malngCRC32(186) = 0x2BB45A92

malngCRC32(187) = 0x5CB36A04

malngCRC32(188) = 0xC2D7FFA7

malngCRC32(189) = 0xB5D0CF31

malngCRC32(190) = 0x2CD99E8B

malngCRC32(191) = 0x5BDEAE1D

malngCRC32(192) = 0x9B64C2B0

malngCRC32(193) = 0xEC63F226

malngCRC32(194) = 0x756AA39C

malngCRC32(195) = 0x26D930A

malngCRC32(196) = 0x9C0906A9

malngCRC32(197) = 0xEB0E363F

malngCRC32(198) = 0x72076785

malngCRC32(199) = 0x5005713

malngCRC32(200) = 0x95BF4A82

malngCRC32(201) = 0xE2B87A14

malngCRC32(202) = 0x7BB12BAE

malngCRC32(203) = 0xCB61B38

malngCRC32(204) = 0x92D28E9B

malngCRC32(205) = 0xE5D5BE0D

malngCRC32(206) = 0x7CDCEFB7

malngCRC32(207) = 0xBDBDF21

malngCRC32(208) = 0x86D3D2D4

malngCRC32(209) = 0xF1D4E242

malngCRC32(210) = 0x68DDB3F8

malngCRC32(211) = 0x1FDA836E

malngCRC32(212) = 0x81BE16CD

malngCRC32(213) = 0xF6B9265B

malngCRC32(214) = 0x6FB077E1

malngCRC32(215) = 0x18B74777

malngCRC32(216) = 0x88085AE6

malngCRC32(217) = 0xFF0F6A70

malngCRC32(218) = 0x66063BCA

malngCRC32(219) = 0x11010B5C

malngCRC32(220) = 0x8F659EFF

malngCRC32(221) = 0xF862AE69

malngCRC32(222) = 0x616BFFD3

malngCRC32(223) = 0x166CCF45

malngCRC32(224) = 0xA00AE278

malngCRC32(225) = 0xD70DD2EE

malngCRC32(226) = 0x4E048354

malngCRC32(227) = 0x3903B3C2

malngCRC32(228) = 0xA7672661

malngCRC32(229) = 0xD06016F7

malngCRC32(230) = 0x4969474D

malngCRC32(231) = 0x3E6E77DB

malngCRC32(232) = 0xAED16A4A

malngCRC32(233) = 0xD9D65ADC

malngCRC32(234) = 0x40DF0B66

malngCRC32(235) = 0x37D83BF0

malngCRC32(236) = 0xA9BCAE53

malngCRC32(237) = 0xDEBB9EC5

malngCRC32(238) = 0x47B2CF7F

malngCRC32(239) = 0x30B5FFE9

malngCRC32(240) = 0xBDBDF21C

malngCRC32(241) = 0xCABAC28A

malngCRC32(242) = 0x53B39330

malngCRC32(243) = 0x24B4A3A6

malngCRC32(244) = 0xBAD03605

malngCRC32(245) = 0xCDD70693

malngCRC32(246) = 0x54DE5729

malngCRC32(247) = 0x23D967BF

malngCRC32(248) = 0xB3667A2E

malngCRC32(249) = 0xC4614AB8

malngCRC32(250) = 0x5D681B02

malngCRC32(251) = 0x2A6F2B94

malngCRC32(252) = 0xB40BBE37

malngCRC32(253) = 0xC30C8EA1

malngCRC32(254) = 0x5A05DF1B

malngCRC32(255) = 0x2D02EF8D

return

Download

Please login to download

Comments

No comments yet.

CodeBase - CRC32 Builder

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Cryptoman
CodeBase Entries:	1