Page Date
2004-05-18
DD-Software
Kapitel zurück / previous Chapter
Main Index
 
Seite zurück / previous page
Backward
Seite vor / next page
Forward
 
Seitenanfang/TopOfPage
Top
Seitenende/EndOfPage
Bottom
MyWbtHelp current version

WinBatch Scripting - Checksumming CRC MD5



Seitenanfang/TopOfPage Seitenende/EndOfPage Seitenende/EndOfPage Seitenanfang/TopOfPage

udfCrc32CreateTable ()
udfCrc32SaveTable (hBBcrctable, filename)
udfCrc32LoadTable (filename)
udfCrc32LoadFile (filename)
udfCrc32LoadStr (str)
udfCrc32Calculate (hBBcrctable, hBBdata)

;------------------------------------------------------------------------------------------------------------------------------------------
; CRC32 calculation for WinBatch, returns CRC32 hexstr identical to PKZIP or WINZIP calculations.
; Based on some free C source code, translated by Marty Williams.
; WindowWare Tech Database article 'CRC32 Computations', File Created: 2001:12:11:13:05:14
; Modified by Detlev Dalitz.20011212.20020626
;------------------------------------------------------------------------------------------------------------------------------------------

;------------------------------------------------------------------------------------------------------------------------------------------
; udfCrc32CreateTable ()
; udfCrc32SaveTable (hbbcrctable, filename)
; udfCrc32LoadTable (filename)
; udfCrc32LoadFile (filename)
; udfCrc32LoadStr (str)
; udfCrc32Calculate (hbbcrctable, hbbdata)
; udfDecToHex (dec, padlength, uppercaseflag)
;------------------------------------------------------------------------------------------------------------------------------------------


;------------------------------------------------------------------------------------------------------------------------------------------
If ItemLocate("udfcrc32createtable",IntControl(77,103,0,0,0),@TAB) Then Goto skip_udfcrc32createtable

#DefineFunction udfCrc32CreateTable ()
hbb = BinaryAlloc(1024)
BinaryPoke4(hbb,0,0)               ; 00000000
BinaryPoke4(hbb,4,1996959894)      ; 77073096
BinaryPoke4(hbb,8,-301047508)      ; ee0e612c
BinaryPoke4(hbb,12,-1727442502)    ; 990951ba
BinaryPoke4(hbb,16,124634137)      ; 076dc419
BinaryPoke4(hbb,20,1886057615)     ; 706af48f
BinaryPoke4(hbb,24,-379345611)     ; e963a535
BinaryPoke4(hbb,28,-1637575261)    ; 9e6495a3
BinaryPoke4(hbb,32,249268274)      ; 0edb8832
BinaryPoke4(hbb,36,2044508324)     ; 79dcb8a4
BinaryPoke4(hbb,40,-522852066)     ; e0d5e91e
BinaryPoke4(hbb,44,-1747789432)    ; 97d2d988
BinaryPoke4(hbb,48,162941995)      ; 09b64c2b
BinaryPoke4(hbb,52,2125561021)     ; 7eb17cbd
BinaryPoke4(hbb,56,-407360249)     ; e7b82d07
BinaryPoke4(hbb,60,-1866523247)    ; 90bf1d91
BinaryPoke4(hbb,64,498536548)      ; 1db71064
BinaryPoke4(hbb,68,1789927666)     ; 6ab020f2
BinaryPoke4(hbb,72,-205950648)     ; f3b97148
BinaryPoke4(hbb,76,-2067906082)    ; 84be41de
BinaryPoke4(hbb,80,450548861)      ; 1adad47d
BinaryPoke4(hbb,84,1843258603)     ; 6ddde4eb
BinaryPoke4(hbb,88,-187386543)     ; f4d4b551
BinaryPoke4(hbb,92,-2083289657)    ; 83d385c7
BinaryPoke4(hbb,96,325883990)      ; 136c9856
BinaryPoke4(hbb,100,1684777152)    ; 646ba8c0
BinaryPoke4(hbb,104,-43845254)     ; fd62f97a
BinaryPoke4(hbb,108,-1973040660)   ; 8a65c9ec
BinaryPoke4(hbb,112,335633487)     ; 14015c4f
BinaryPoke4(hbb,116,1661365465)    ; 63066cd9
BinaryPoke4(hbb,120,-99664541)     ; fa0f3d63
BinaryPoke4(hbb,124,-1928851979)   ; 8d080df5
BinaryPoke4(hbb,128,997073096)     ; 3b6e20c8
BinaryPoke4(hbb,132,1281953886)    ; 4c69105e
BinaryPoke4(hbb,136,-715111964)    ; d56041e4
BinaryPoke4(hbb,140,-1570279054)   ; a2677172
BinaryPoke4(hbb,144,1006888145)    ; 3c03e4d1
BinaryPoke4(hbb,148,1258607687)    ; 4b04d447
BinaryPoke4(hbb,152,-770865667)    ; d20d85fd
BinaryPoke4(hbb,156,-1526024853)   ; a50ab56b
BinaryPoke4(hbb,160,901097722)     ; 35b5a8fa
BinaryPoke4(hbb,164,1119000684)    ; 42b2986c
BinaryPoke4(hbb,168,-608450090)    ; dbbbc9d6
BinaryPoke4(hbb,172,-1396901568)   ; acbcf940
BinaryPoke4(hbb,176,853044451)     ; 32d86ce3
BinaryPoke4(hbb,180,1172266101)    ; 45df5c75
BinaryPoke4(hbb,184,-589951537)    ; dcd60dcf
BinaryPoke4(hbb,188,-1412350631)   ; abd13d59
BinaryPoke4(hbb,192,651767980)     ; 26d930ac
BinaryPoke4(hbb,196,1373503546)    ; 51de003a
BinaryPoke4(hbb,200,-925412992)    ; c8d75180
BinaryPoke4(hbb,204,-1076862698)   ; bfd06116
BinaryPoke4(hbb,208,565507253)     ; 21b4f4b5
BinaryPoke4(hbb,212,1454621731)    ; 56b3c423
BinaryPoke4(hbb,216,-809855591)    ; cfba9599
BinaryPoke4(hbb,220,-1195530993)   ; b8bda50f
BinaryPoke4(hbb,224,671266974)     ; 2802b89e
BinaryPoke4(hbb,228,1594198024)    ; 5f058808
BinaryPoke4(hbb,232,-972236366)    ; c60cd9b2
BinaryPoke4(hbb,236,-1324619484)   ; b10be924
BinaryPoke4(hbb,240,795835527)     ; 2f6f7c87
BinaryPoke4(hbb,244,1483230225)    ; 58684c11
BinaryPoke4(hbb,248,-1050600021)   ; c1611dab
BinaryPoke4(hbb,252,-1234817731)   ; b6662d3d
BinaryPoke4(hbb,256,1994146192)    ; 76dc4190
BinaryPoke4(hbb,260,31158534)      ; 01db7106
BinaryPoke4(hbb,264,-1731059524)   ; 98d220bc
BinaryPoke4(hbb,268,-271249366)    ; efd5102a
BinaryPoke4(hbb,272,1907459465)    ; 71b18589
BinaryPoke4(hbb,276,112637215)     ; 06b6b51f
BinaryPoke4(hbb,280,-1614814043)   ; 9fbfe4a5
BinaryPoke4(hbb,284,-390540237)    ; e8b8d433
BinaryPoke4(hbb,288,2013776290)    ; 7807c9a2
BinaryPoke4(hbb,292,251722036)     ; 0f00f934
BinaryPoke4(hbb,296,-1777751922)   ; 9609a88e
BinaryPoke4(hbb,300,-519137256)    ; e10e9818
BinaryPoke4(hbb,304,2137656763)    ; 7f6a0dbb
BinaryPoke4(hbb,308,141376813)     ; 086d3d2d
BinaryPoke4(hbb,312,-1855689577)   ; 91646c97
BinaryPoke4(hbb,316,-429695999)    ; e6635c01
BinaryPoke4(hbb,320,1802195444)    ; 6b6b51f4
BinaryPoke4(hbb,324,476864866)     ; 1c6c6162
BinaryPoke4(hbb,328,-2056965928)   ; 856530d8
BinaryPoke4(hbb,332,-228458418)    ; f262004e
BinaryPoke4(hbb,336,1812370925)    ; 6c0695ed
BinaryPoke4(hbb,340,453092731)     ; 1b01a57b
BinaryPoke4(hbb,344,-2113342271)   ; 8208f4c1
BinaryPoke4(hbb,348,-183516073)    ; f50fc457
BinaryPoke4(hbb,352,1706088902)    ; 65b0d9c6
BinaryPoke4(hbb,356,314042704)     ; 12b7e950
BinaryPoke4(hbb,360,-1950435094)   ; 8bbeb8ea
BinaryPoke4(hbb,364,-54949764)     ; fcb9887c
BinaryPoke4(hbb,368,1658658271)    ; 62dd1ddf
BinaryPoke4(hbb,372,366619977)     ; 15da2d49
BinaryPoke4(hbb,376,-1932296973)   ; 8cd37cf3
BinaryPoke4(hbb,380,-69972891)     ; fbd44c65
BinaryPoke4(hbb,384,1303535960)    ; 4db26158
BinaryPoke4(hbb,388,984961486)     ; 3ab551ce
BinaryPoke4(hbb,392,-1547960204)   ; a3bc0074
BinaryPoke4(hbb,396,-725929758)    ; d4bb30e2
BinaryPoke4(hbb,400,1256170817)    ; 4adfa541
BinaryPoke4(hbb,404,1037604311)    ; 3dd895d7
BinaryPoke4(hbb,408,-1529756563)   ; a4d1c46d
BinaryPoke4(hbb,412,-740887301)    ; d3d6f4fb
BinaryPoke4(hbb,416,1131014506)    ; 4369e96a
BinaryPoke4(hbb,420,879679996)     ; 346ed9fc
BinaryPoke4(hbb,424,-1385723834)   ; ad678846
BinaryPoke4(hbb,428,-631195440)    ; da60b8d0
BinaryPoke4(hbb,432,1141124467)    ; 44042d73
BinaryPoke4(hbb,436,855842277)     ; 33031de5
BinaryPoke4(hbb,440,-1442165665)   ; aa0a4c5f
BinaryPoke4(hbb,444,-586318647)    ; dd0d7cc9
BinaryPoke4(hbb,448,1342533948)    ; 5005713c
BinaryPoke4(hbb,452,654459306)     ; 270241aa
BinaryPoke4(hbb,456,-1106571248)   ; be0b1010
BinaryPoke4(hbb,460,-921952122)    ; c90c2086
BinaryPoke4(hbb,464,1466479909)    ; 5768b525
BinaryPoke4(hbb,468,544179635)     ; 206f85b3
BinaryPoke4(hbb,472,-1184443383)   ; b966d409
BinaryPoke4(hbb,476,-832445281)    ; ce61e49f
BinaryPoke4(hbb,480,1591671054)    ; 5edef90e
BinaryPoke4(hbb,484,702138776)     ; 29d9c998
BinaryPoke4(hbb,488,-1328506846)   ; b0d09822
BinaryPoke4(hbb,492,-942167884)    ; c7d7a8b4
BinaryPoke4(hbb,496,1504918807)    ; 59b33d17
BinaryPoke4(hbb,500,783551873)     ; 2eb40d81
BinaryPoke4(hbb,504,-1212326853)   ; b7bd5c3b
BinaryPoke4(hbb,508,-1061524307)   ; c0ba6cad
BinaryPoke4(hbb,512,-306674912)    ; edb88320
BinaryPoke4(hbb,516,-1698712650)   ; 9abfb3b6
BinaryPoke4(hbb,520,62317068)      ; 03b6e20c
BinaryPoke4(hbb,524,1957810842)    ; 74b1d29a
BinaryPoke4(hbb,528,-355121351)    ; ead54739
BinaryPoke4(hbb,532,-1647151185)   ; 9dd277af
BinaryPoke4(hbb,536,81470997)      ; 04db2615
BinaryPoke4(hbb,540,1943803523)    ; 73dc1683
BinaryPoke4(hbb,544,-480048366)    ; e3630b12
BinaryPoke4(hbb,548,-1805370492)   ; 94643b84
BinaryPoke4(hbb,552,225274430)     ; 0d6d6a3e
BinaryPoke4(hbb,556,2053790376)    ; 7a6a5aa8
BinaryPoke4(hbb,560,-468791541)    ; e40ecf0b
BinaryPoke4(hbb,564,-1828061283)   ; 9309ff9d
BinaryPoke4(hbb,568,167816743)     ; 0a00ae27
BinaryPoke4(hbb,572,2097651377)    ; 7d079eb1
BinaryPoke4(hbb,576,-267414716)    ; f00f9344
BinaryPoke4(hbb,580,-2029476910)   ; 8708a3d2
BinaryPoke4(hbb,584,503444072)     ; 1e01f268
BinaryPoke4(hbb,588,1762050814)    ; 6906c2fe
BinaryPoke4(hbb,592,-144550051)    ; f762575d
BinaryPoke4(hbb,596,-2140837941)   ; 806567cb
BinaryPoke4(hbb,600,426522225)     ; 196c3671
BinaryPoke4(hbb,604,1852507879)    ; 6e6b06e7
BinaryPoke4(hbb,608,-19653770)     ; fed41b76
BinaryPoke4(hbb,612,-1982649376)   ; 89d32be0
BinaryPoke4(hbb,616,282753626)     ; 10da7a5a
BinaryPoke4(hbb,620,1742555852)    ; 67dd4acc
BinaryPoke4(hbb,624,-105259153)    ; f9b9df6f
BinaryPoke4(hbb,628,-1900089351)   ; 8ebeeff9
BinaryPoke4(hbb,632,397917763)     ; 17b7be43
BinaryPoke4(hbb,636,1622183637)    ; 60b08ed5
BinaryPoke4(hbb,640,-690576408)    ; d6d6a3e8
BinaryPoke4(hbb,644,-1580100738)   ; a1d1937e
BinaryPoke4(hbb,648,953729732)     ; 38d8c2c4
BinaryPoke4(hbb,652,1340076626)    ; 4fdff252
BinaryPoke4(hbb,656,-776247311)    ; d1bb67f1
BinaryPoke4(hbb,660,-1497606297)   ; a6bc5767
BinaryPoke4(hbb,664,1068828381)    ; 3fb506dd
BinaryPoke4(hbb,668,1219638859)    ; 48b2364b
BinaryPoke4(hbb,672,-670225446)    ; d80d2bda
BinaryPoke4(hbb,676,-1358292148)   ; af0a1b4c
BinaryPoke4(hbb,680,906185462)     ; 36034af6
BinaryPoke4(hbb,684,1090812512)    ; 41047a60
BinaryPoke4(hbb,688,-547295293)    ; df60efc3
BinaryPoke4(hbb,692,-1469587627)   ; a867df55
BinaryPoke4(hbb,696,829329135)     ; 316e8eef
BinaryPoke4(hbb,700,1181335161)    ; 4669be79
BinaryPoke4(hbb,704,-882789492)    ; cb61b38c
BinaryPoke4(hbb,708,-1134132454)   ; bc66831a
BinaryPoke4(hbb,712,628085408)     ; 256fd2a0
BinaryPoke4(hbb,716,1382605366)    ; 5268e236
BinaryPoke4(hbb,720,-871598187)    ; cc0c7795
BinaryPoke4(hbb,724,-1156888829)   ; bb0b4703
BinaryPoke4(hbb,728,570562233)     ; 220216b9
BinaryPoke4(hbb,732,1426400815)    ; 5505262f
BinaryPoke4(hbb,736,-977650754)    ; c5ba3bbe
BinaryPoke4(hbb,740,-1296233688)   ; b2bd0b28
BinaryPoke4(hbb,744,733239954)     ; 2bb45a92
BinaryPoke4(hbb,748,1555261956)    ; 5cb36a04
BinaryPoke4(hbb,752,-1026031705)   ; c2d7ffa7
BinaryPoke4(hbb,756,-1244606671)   ; b5d0cf31
BinaryPoke4(hbb,760,752459403)     ; 2cd99e8b
BinaryPoke4(hbb,764,1541320221)    ; 5bdeae1d
BinaryPoke4(hbb,768,-1687895376)   ; 9b64c2b0
BinaryPoke4(hbb,772,-328994266)    ; ec63f226
BinaryPoke4(hbb,776,1969922972)    ; 756aa39c
BinaryPoke4(hbb,780,40735498)      ; 026d930a
BinaryPoke4(hbb,784,-1677130071)   ; 9c0906a9
BinaryPoke4(hbb,788,-351390145)    ; eb0e363f
BinaryPoke4(hbb,792,1913087877)    ; 72076785
BinaryPoke4(hbb,796,83908371)      ; 05005713
BinaryPoke4(hbb,800,-1782625662)   ; 95bf4a82
BinaryPoke4(hbb,804,-491226604)    ; e2b87a14
BinaryPoke4(hbb,808,2075208622)    ; 7bb12bae
BinaryPoke4(hbb,812,213261112)     ; 0cb61b38
BinaryPoke4(hbb,816,-1831694693)   ; 92d28e9b
BinaryPoke4(hbb,820,-438977011)    ; e5d5be0d
BinaryPoke4(hbb,824,2094854071)    ; 7cdcefb7
BinaryPoke4(hbb,828,198958881)     ; 0bdbdf21
BinaryPoke4(hbb,832,-2032938284)   ; 86d3d2d4
BinaryPoke4(hbb,836,-237706686)    ; f1d4e242
BinaryPoke4(hbb,840,1759359992)    ; 68ddb3f8
BinaryPoke4(hbb,844,534414190)     ; 1fda836e
BinaryPoke4(hbb,848,-2118248755)   ; 81be16cd
BinaryPoke4(hbb,852,-155638181)    ; f6b9265b
BinaryPoke4(hbb,856,1873836001)    ; 6fb077e1
BinaryPoke4(hbb,860,414664567)     ; 18b74777
BinaryPoke4(hbb,864,-2012718362)   ; 88085ae6
BinaryPoke4(hbb,868,-15766928)     ; ff0f6a70
BinaryPoke4(hbb,872,1711684554)    ; 66063bca
BinaryPoke4(hbb,876,285281116)     ; 11010b5c
BinaryPoke4(hbb,880,-1889165569)   ; 8f659eff
BinaryPoke4(hbb,884,-127750551)    ; f862ae69
BinaryPoke4(hbb,888,1634467795)    ; 616bffd3
BinaryPoke4(hbb,892,376229701)     ; 166ccf45
BinaryPoke4(hbb,896,-1609899400)   ; a00ae278
BinaryPoke4(hbb,900,-686959890)    ; d70dd2ee
BinaryPoke4(hbb,904,1308918612)    ; 4e048354
BinaryPoke4(hbb,908,956543938)     ; 3903b3c2
BinaryPoke4(hbb,912,-1486412191)   ; a7672661
BinaryPoke4(hbb,916,-799009033)    ; d06016f7
BinaryPoke4(hbb,920,1231636301)    ; 4969474d
BinaryPoke4(hbb,924,1047427035)    ; 3e6e77db
BinaryPoke4(hbb,928,-1362007478)   ; aed16a4a
BinaryPoke4(hbb,932,-640263460)    ; d9d65adc
BinaryPoke4(hbb,936,1088359270)    ; 40df0b66
BinaryPoke4(hbb,940,936918000)     ; 37d83bf0
BinaryPoke4(hbb,944,-1447252397)   ; a9bcae53
BinaryPoke4(hbb,948,-558129467)    ; debb9ec5
BinaryPoke4(hbb,952,1202900863)    ; 47b2cf7f
BinaryPoke4(hbb,956,817233897)     ; 30b5ffe9
BinaryPoke4(hbb,960,-1111625188)   ; bdbdf21c
BinaryPoke4(hbb,964,-893730166)    ; cabac28a
BinaryPoke4(hbb,968,1404277552)    ; 53b39330
BinaryPoke4(hbb,972,615818150)     ; 24b4a3a6
BinaryPoke4(hbb,976,-1160759803)   ; bad03605
BinaryPoke4(hbb,980,-841546093)    ; cdd70693
BinaryPoke4(hbb,984,1423857449)    ; 54de5729
BinaryPoke4(hbb,988,601450431)     ; 23d967bf
BinaryPoke4(hbb,992,-1285129682)   ; b3667a2e
BinaryPoke4(hbb,996,-1000256840)   ; c4614ab8
BinaryPoke4(hbb,1000,1567103746)   ; 5d681b02
BinaryPoke4(hbb,1004,711928724)    ; 2a6f2b94
BinaryPoke4(hbb,1008,-1274298825)  ; b40bbe37
BinaryPoke4(hbb,1012,-1022587231)  ; c30c8ea1
BinaryPoke4(hbb,1016,1510334235)   ; 5a05df1b
BinaryPoke4(hbb,1020,755167117)    ; 2d02ef8d
Return (hbb)
; Returns a handle to a binary buffer which contains 256 crc32 data numbers.
#EndFunction

:skip_udfcrc32createtable
;------------------------------------------------------------------------------------------------------------------------------------------


;------------------------------------------------------------------------------------------------------------------------------------------
If ItemLocate("udfcrc32savetable",IntControl(77,103,0,0,0),@TAB) Then Goto skip_udfcrc32savetable

#DefineFunction udfCrc32SaveTable (hbbcrctable, filename)
Return (1024 == BinaryWrite(hbbcrctable,filename))
; Returns @true if 1024 byte are written otherwise @false.
#EndFunction

:skip_udfcrc32savetable
;------------------------------------------------------------------------------------------------------------------------------------------


;------------------------------------------------------------------------------------------------------------------------------------------
If ItemLocate("udfcrc32loadtable",IntControl(77,103,0,0,0),@TAB) Then Goto skip_udfcrc32loadtable

#DefineFunction udfCrc32LoadTable (filename)
fsize = FileSize(filename)
hbbcrcdata = 0
If (fsize == 1024)
   hbbcrcdata = BinaryAlloc(fsize)
   num = BinaryRead(hbbcrcdata,filename)
   If (num <> 1024)
      BinaryFree(hbbcrcdata)
      hbbcrcdata=0
   EndIf
EndIf
Return (hbbcrcdata)
;..........................................................................................................................................
; If fileread was successful, this udf returns a handle to a binary buffer,
; which contains the crc32 data lookup table, otherwise it returns 0.
; Make sure to read the proper data file.
;..........................................................................................................................................
#EndFunction

:skip_udfcrc32loadtable
;------------------------------------------------------------------------------------------------------------------------------------------


;------------------------------------------------------------------------------------------------------------------------------------------
If ItemLocate("udfcrc32loadfile",IntControl(77,103,0,0,0),@TAB) Then Goto skip_udfcrc32loadfile

#DefineFunction udfCrc32LoadFile (filename)
If !FileExist(filename) Then Return (0)
fsize = FileSize(filename)
hbb = BinaryAlloc(fsize)
BinaryRead(hbb,filename)
Return (hbb)
;..........................................................................................................................................
; Filename is the file to checksum.
; Returns a handle to a binary buffer which covers the input data.
; Binary buffer is used as input parameter for udfCrc32Calculate (hbbcrctable, hbbdata).
;..........................................................................................................................................
#EndFunction

:skip_udfcrc32loadfile
;------------------------------------------------------------------------------------------------------------------------------------------


;------------------------------------------------------------------------------------------------------------------------------------------
If ItemLocate("udfcrc32loadstr",IntControl(77,103,0,0,0),@TAB) Then Goto skip_udfcrc32loadstr

#DefineFunction udfCrc32LoadStr (str)
If (str == "") Then Return (0)
strsize = StrLen(str)
hbb = BinaryAlloc(strsize)
BinaryPokeStr(hbb,0,str)
Return (hbb)
;..........................................................................................................................................
; Str is the stream of characters to checksum.
; Returns a handle to a binary buffer which covers the input data.
; Binary buffer is used as input parameter for udfCrc32Calculate (hbbcrctable, hbbdata).
;..........................................................................................................................................
#EndFunction

:skip_udfcrc32loadstr
;------------------------------------------------------------------------------------------------------------------------------------------


;------------------------------------------------------------------------------------------------------------------------------------------
If ItemLocate("udfcrc32calculate",IntControl(77,103,0,0,0),@TAB) Then Goto skip_udfcrc32calculate

#DefineFunction udfCrc32Calculate (hbbcrctable, hbbdata)
datasize = BinaryEodGet(hbbdata)
crc = -1
i=0
While (i<datasize)
   crc = ((crc >> 8) & 16777215) ^ BinaryPeek4(hbbcrctable,4*((crc ^ BinaryPeek(hbbdata,i)) & 255))
   i=i+1
EndWhile
crc = crc ^ -1

BinaryFree(hbbdata)

Return (crc)
;..........................................................................................................................................
; (FFFFFFFF = -1; 00FFFFFF = 16777215; FF = 255)
;
; hbbcrctable is a handle to a binary buffer which contains the crc32 data lookup table.
; hbbdata is a handle to a binary buffer which contains the data to checksum.
; Returns CRC32 checksum as decimal number.
; Note: This udf destroys resp. frees the hbbdata binary buffer as default.
;..........................................................................................................................................
#EndFunction

:skip_udfcrc32calculate
;------------------------------------------------------------------------------------------------------------------------------------------


;------------------------------------------------------------------------------------------------------------------------------------------
If ItemLocate("udfdectohex",IntControl(77,103,0,0,0),@TAB) Then Goto skip_udfdectohex

#DefineFunction udfDecToHex (iDecimal, iPadLength, iCaseMode)
iPadLength = Min(8,Max(1,iPadLength))
If Max(0,Min(1,iCaseMode)) Then sHexChars = "0123456789ABCDEF"
   Else sHexChars = "0123456789abcdef"
sHex = ""
iZ = 1
For i=7 To 0 By -1
   iN = (iDecimal>>(i*4))&15
   If !iN Then If iZ Then Continue
   iZ = 0
   sHex = StrCat(sHex,StrSub(sHexChars,iN+1,1))
Next
sHex = StrFixLeft(sHex,"0",iPadLength)
Return (sHex)
#EndFunction

:skip_udfdectohex
;------------------------------------------------------------------------------------------------------------------------------------------



;--- test ---


:test1
; Calculate crc32 checksum on string data.
str = "DD"
crc32 = udfCrc32Calculate(udfCrc32CreateTable(),udfCrc32LoadStr(str))
; Should be crc32 = "-1535304329".
crc32hex = udfDecToHex(crc32,8,1)
; Should be crc32hex = "A47D1D77".


:test2
; Create crc32 table and save it to diskfile.
; Create proper tempfilename.
TempFolder = Environment("TEMP")

TempFolder = StrCat(TempFolder,StrSub("\",(StrSub(TempFolder,StrLen(TempFolder),1)<>"\"),1)) ; add backslash
crctablefile = StrCat(TempFolder,"CRC32.BIN")

; Create crc32 data lookup table.
hbbcrctable = udfCrc32CreateTable()

; Write crc table binary buffer to diskfile.
bool = udfCrc32SaveTable(hbbcrctable,crctablefile)
BinaryFree(hbbcrctable)

; Note:
; For checksumming many files in a loop
; the binary buffer which contains the crc data lookup table
; has to be created only once.


:test3
; Read crc table from diskfile and return binary buffer handle.
If FileExist(crctablefile) Then hbbcrctable = udfCrc32LoadTable(crctablefile)
If !IsDefined(hbbcrctable) Then Goto CANCEL
If !hbbcrctable Then Goto CANCEL


:test4
; Simple test, build checksum on existing tempfile.
; Use table from diskfile, loaded above in test3.
testfile = crctablefile
crc32    = udfCrc32Calculate(hbbcrctable,udfCrc32LoadFile(testfile))
; Should be crc32 = "1875877395".
crc32hex = udfDecToHex(crc32,8,1)
; Should be crc32hex = "6FCF9E13".
Pause("Demo Calculate CRC32",StrCat(testfile,@CRLF,crc32,@CRLF,crc32hex))


:test5
; ... time for a cup of tea.
testfile = StrCat(DirHome(),"BROWSER.EXE")
crc32    = udfCrc32Calculate(hbbcrctable,udfCrc32LoadFile(testfile))
crc32hex = udfDecToHex(crc32,8,1)
; Should be crc32hex = "956962E4" on browser.exe version 5.0b [Mar 15 2001, 11:55:40].
; Should be crc32hex = "1A811A7A" on browser.exe version 5.2  [Nov 27 2001, 13:35:00].
Pause("Demo Calculate CRC32",StrCat(testfile,@CRLF,crc32,@CRLF,crc32hex))
BinaryFree(hbbcrctable)


:test6
testfile = StrCat(DirHome(),"BROWSER.EXE")
hBB = udfCrc32LoadFile(testfile)
sMD5   = BinaryChecksum(hBB,0)
sCRC16 = BinaryChecksum(hBB,1)
sCRC32 = BinaryChecksum(hBB,2)
BinaryFree(hBB)

:CANCEL
Exit
;------------------------------------------------------------------------------------------------------------------------------------------
;*EOF*




Seitenanfang/TopOfPage Seitenende/EndOfPage Seitenende/EndOfPage Seitenanfang/TopOfPage

udfFileChecksum (sFilename, iRequest)

;------------------------------------------------------------------------------------------------------------------------------------------
If ItemLocate("udffilechecksum",IntControl(77,103,0,0,0),@TAB) Then Goto skip_udffilechecksum

#DefineFunction udfFileChecksum (sFilename, iRequest)
If (VersionDLL()<"3.8hch") Then Return ("")
iBBSize = FileSizeEx(sFilename)
If !iBBSize Then Return ("")
iRequest = Min(2,Max(0,iRequest))
hBB = BinaryAlloc(iBBSize)
BinaryRead(hBB,sFilename)
sChecksum = BinaryChecksum(hBB,iRequest)
BinaryFree(hBB)
Return (sChecksum)
;..........................................................................................................................................
;   "iRequest" specifies the type of digest or CRC to generate,
;   and can be one of the following values:
;
;    Request   Meaning      Return string format (x = hex character)
;    -------   ----------   ----------------------------------------
;       0      MD5 digest   "xxxxxxxx-xxxxxxxx-xxxxxxxx-xxxxxxxx"
;       1      16-bit CRC   "xxxx"
;       2      32-bit CRC   "xxxxxxxx"
;
; Requires WinBatch version 2002h, 3.8hch.
; Returns empty string if input file is not readable or if current WinBatch version is too old.
;..........................................................................................................................................
; Detlev Dalitz.20020825
;..........................................................................................................................................
#EndFunction

:skip_udffilechecksum
;------------------------------------------------------------------------------------------------------------------------------------------



; --- test ---

sFilename = IntControl(1004,0,0,0,0) ; We use this script as input file.

sChecksum1 = udfFileChecksum (sFilename, 0)
sChecksum2 = udfFileChecksum (sFilename, 1)
sChecksum3 = udfFileChecksum (sFilename, 2)

sMsgTitle = "Demo  udfFileChecksum (sFilename, iRequest)"
sMsgText = StrCat("Filename",@TAB,sFilename,@LF,@LF)
sMsgText = StrCat(sMsgText,"MD5"  ,@TAB,sChecksum1,@LF)
sMsgText = StrCat(sMsgText,"CRC16",@TAB,sChecksum2,@LF)
sMsgText = StrCat(sMsgText,"CRC32",@TAB,sChecksum3,@LF)
Pause(sMsgTitle,sMsgText)

:CANCEL
Exit
;------------------------------------------------------------------------------------------------------------------------------------------
;*EOF*




Seitenanfang/TopOfPage Seitenende/EndOfPage Seitenende/EndOfPage Seitenanfang/TopOfPage

udfFileCrc (sFilename, iType)

;------------------------------------------------------------------------------------------------------------------------------------------
If ItemLocate("udffilecrc",IntControl(77,103,0,0,0),@TAB) Then Goto skip_udffilecrc

#DefineFunction udfFileCrc (sFilename, iType)
If (iType!=32) Then If (iType!=16) Then Return (0)
iBBSize = FileSize(sFilename)
If !iBBSize Then Return (0)
AddExtender("WWSER34I.DLL") ; The Serial Extender.
hBB = BinaryAlloc(iBBSize)
BinaryRead(hBB,sFilename)
iChecksum = pCheckBinary(IntControl(42,hBB,0,0,0),BinaryEodGet(hBB)-1,iType)
BinaryFree(hBB)
Return (iChecksum)
;..........................................................................................................................................
; This function "udfFileCrc" calculates the cyclic redundance checksum for type=16 or type=32.
;..........................................................................................................................................
; Detlev Dalitz.20010731.20020825
;..........................................................................................................................................
#EndFunction

:skip_udffilecrc
;------------------------------------------------------------------------------------------------------------------------------------------


;------------------------------------------------------------------------------------------------------------------------------------------
If ItemLocate("udffilecrc16",IntControl(77,103,0,0,0),@TAB) Then Goto skip_udffilecrc16

#DefineFunction udfFileCrc16 (sFilename)
iBBSize = FileSize(sFilename)
If !iBBSize Then Return (0)
AddExtender("WWSER34I.DLL") ; The Serial Extender.
hBB = BinaryAlloc(iBBSize)
BinaryRead(hBB,sFilename)
iChecksum = pCheckBinary(IntControl(42,hBB,0,0,0),BinaryEodGet(hBB)-1,16)
BinaryFree(hBB)
Return (iChecksum)
;..........................................................................................................................................
; Detlev Dalitz.20010730.20020825
;..........................................................................................................................................
#EndFunction

:skip_udffilecrc16
;------------------------------------------------------------------------------------------------------------------------------------------


;------------------------------------------------------------------------------------------------------------------------------------------
If ItemLocate("udffilecrc32",IntControl(77,103,0,0,0),@TAB) Then Goto skip_udffilecrc32

#DefineFunction udfFileCrc32 (sFilename)
iBBSize = FileSize(sFilename)
If !iBBSize Then Return (0)
AddExtender("WWSER34I.DLL") ; The Serial Extender.
hBB = BinaryAlloc(iBBSize)
BinaryRead(hBB,sFilename)
iChecksum = pCheckBinary(IntControl(42,hBB,0,0,0),BinaryEodGet(hBB)-1,32)
BinaryFree(hBB)
Return (iChecksum)
;..........................................................................................................................................
; Detlev Dalitz.20010730.20020825
;..........................................................................................................................................
#EndFunction

:skip_udffilecrc32
;------------------------------------------------------------------------------------------------------------------------------------------



;--- test ---
filename = IntControl(1004,0,0,0,0) ; We use this script as input file.

:test1
iCheck16  = udfFileCrc16(filename)
iCheck32  = udfFileCrc32(filename)

sMsgTitle = "Demo  udfFileCrc16 (sFilename),  udfFileCrc32 (sFilename)"
sMsgText  = StrCat("udfFileCRC16(",filename,") = ",iCheck16,@LF,"udfFileCRC32(",filename,") = ",iCheck32)
Pause(sMsgTitle,sMsgText)


:test2
iCheck16  = udfFileCrc(filename,16)
iCheck32  = udfFileCrc(filename,32)

sMsgTitle = "Demo  udfFileCrc (sFilename, iType)"
sMsgText  = StrCat("udfFileCRC(",filename,",16) = ",iCheck16,@LF,"udfFileCRC(",filename,",32) = ",iCheck32)
Pause(sMsgTitle,sMsgText)

:CANCEL
Exit
;------------------------------------------------------------------------------------------------------------------------------------------
;*EOF*





Page Date
2004-05-18
DD-Software
Kapitel zurück / previous Chapter
Main Index
 
Seite zurück / previous page
Backward
Seite vor / next page
Forward
 
Seitenanfang/TopOfPage
Top
Seitenende/EndOfPage
Bottom
MyWbtHelp current version