Menü

Mail Listen Archiv | Code Startseite | Anzeige aller Code Fragmente 

4D Code Library

4D Support Center - 4D Code Beispiel zum Thema:

MD5-Prüfsumme

 

Erfaßt von: Maurice Perriard am 05.07.2005 ; -
Letzte Änderung: 16.02.2006

 

Kurzbeschriebung: XBlo_ChecksumMD5_mT: Berechnung der MD5-Prüfsumme eines BLOBs mit Rückgabe des Resultats als Hex-String oder Binär-String. ;;

---

Beschreibung XBlo_ChecksumMD5_mT Die Methode XBlo_ChecksumMD5_mT berechnet die MD5-Prüfsumme für ein BLOB, das per Referenz übergeben wird. Das Resultat wird entweder als hexadezimaler String oder binär zurückgegeben. Die Methoden sind auf Geschwindigkeit optimiert, deshalb kommen einzelne Code-Blöcke mehrmals vor. Dieser Code ist interpretiert 40x und compiliert 25x schneller als die MD5-Implementation der BASh-/CODEC-Komponente. Der Algorithmus ist in RFC 1321 beschrieben. Der vorliegende Code wurde aus einer JavaScript-Implementation übernommen und für 4D angepasst. Getestet wurden diese Methoden mit 4D 2004.1 auf Mac OS X mit mehr oder weniger zufälligen Daten. Zur Überprüfung der Resultate wurde per LAUNCH EXTERNAL PROCESS der MD5 vom System berechnet. Dieser Beitrag besteht aus 5 Methoden und den Compiler-Direktiven: XBlo_ChecksumMD5_mT xblo_ChecksumMD5FF_mL xblo_ChecksumMD5GG_mL xblo_ChecksumMD5HH_mL xblo_ChecksumMD5II_mL compiler Schlüsselwörter für die Volltextsuche: MD5, Prüfsumme, Hash, Checksum Beschreibung ändern (nur für Autor - Kennwort geschützt) Keine Beschreibung für MD5-Prüfsumme

---

4D Code Beispiel   `*----------------------------------------------------------------------   `*XBlo_ChecksumMD5_mT(dataPtr{;resultFormat}) -> checksumMD5   `*----------------------------------------------------------------------   `*Calculates the MD5-checksum of the specified data and returns it in the provided format.   `*Valid values for the resultFormat-parameter are <omitted>, hex, binary.   `*See RFC 1321 for details on the algorithm.   `*---------------------------------------------------------------------- XErr_RegisterMethod (Current method name) XErr_Modified ("Maurice Perriard: 22.04.05, version")   `*Created: Maurice Perriard: 22.04.05   `*---------------------------------------------------------------------- C_TEXT($0;$checksum_T)  `*$0 <-- MD5 checksum C_POINTER($1;$dataPtr_pX)  `*$1 --> Data pointer C_TEXT($2;$resultFormat_T)  `*$2 --> Result format (optional, default = hex)   `*---------------------------------------------------------------------- C_LONGINT($a;$olda;$b;$oldb;$c;$oldc;$d;$oldd;$dataSize_L;$i;$blockCount_L;$dataBitSize_L;$o;$srcOffset_L;$dstOffset_L;$copySize_L) C_LONGINT($word0_L;$word1_L;$word2_L;$word3_L;$word4_L;$word5_L;$word6_L;$word7_L) C_LONGINT($word8_L;$word9_L;$word10_L;$word11_L;$word12_L;$word13_L;$word14_L;$word15_L) C_STRING(15;$hexByte_S) C_BLOB($lastBlock_X)   `----------------------------------------------------------------------- $checksum_T:="" $dataPtr_pX:=$1 $resultFormat_T:="hex" If (Count parameters>1) $resultFormat_T:=$2 End if   `----------------------------------------------------------------------- If (Type($dataPtr_pX->)=Is BLOB ) $dataSize_L:=BLOB size($dataPtr_pX->) $a:=1732584193 $b:=-271733879 $c:=-1732584194 $d:=271733878 $blockCount_L:=$dataSize_L\64   `Create the last 64 or 128 bytes $srcOffset_L:=$dataSize_L-($dataSize_L%64) $dstOffset_L:=0 $copySize_L:=$dataSize_L%64 If ($copySize_L>0)   `Copy the last n bytes COPY BLOB($dataPtr_pX->;$lastBlock_X;$srcOffset_L;$dstOffset_L;$copySize_L)   `Append padding bytes to get 64 bytes total $dstOffset_L:=$copySize_L If ($copySize_L<56) INSERT IN BLOB($lastBlock_X;$dstOffset_L;(64-$copySize_L);0x0000) Else INSERT IN BLOB($lastBlock_X;$dstOffset_L;(128-$copySize_L);0x0000) End if Else SET BLOB SIZE($lastBlock_X;64;0x0000) End if   `Set the padding-end bit $lastBlock_X{$copySize_L}:=0x0080   `Set the data-size in bits $dataBitSize_L:=8*$dataSize_L If ($copySize_L<56) $lastBlock_X{56}:=($dataBitSize_L & 0x00FF) $lastBlock_X{57}:=($dataBitSize_L & 0xFF00) >> 8 $lastBlock_X{58}:=($dataBitSize_L & 0x00FF0000) >> 16 $lastBlock_X{59}:=($dataBitSize_L & 0xFF000000) >> 24 Else $lastBlock_X{120}:=($dataBitSize_L & 0x00FF) $lastBlock_X{121}:=($dataBitSize_L & 0xFF00) >> 8 $lastBlock_X{122}:=($dataBitSize_L & 0x00FF0000) >> 16 $lastBlock_X{123}:=($dataBitSize_L & 0xFF000000) >> 24 End if For ($i;0;$blockCount_L-1)  `Process everything but the last block of 64 or 128 bytes $olda:=$a $oldb:=$b $oldc:=$c $oldd:=$d $o:=64*$i $word0_L:=($dataPtr_pX->{$o+3} << 24) | ($dataPtr_pX->{$o+2} << 16) | ($dataPtr_pX->{$o+1} << 8) | ($dataPtr_pX->{$o}) $word1_L:=($dataPtr_pX->{$o+7} << 24) | ($dataPtr_pX->{$o+6} << 16) | ($dataPtr_pX->{$o+5} << 8) | ($dataPtr_pX->{$o+4}) $word2_L:=($dataPtr_pX->{$o+11} << 24) | ($dataPtr_pX->{$o+10} << 16) | ($dataPtr_pX->{$o+9} << 8) | ($dataPtr_pX->{$o+8}) $word3_L:=($dataPtr_pX->{$o+15} << 24) | ($dataPtr_pX->{$o+14} << 16) | ($dataPtr_pX->{$o+13} << 8) | ($dataPtr_pX->{$o+12}) $word4_L:=($dataPtr_pX->{$o+19} << 24) | ($dataPtr_pX->{$o+18} << 16) | ($dataPtr_pX->{$o+17} << 8) | ($dataPtr_pX->{$o+16}) $word5_L:=($dataPtr_pX->{$o+23} << 24) | ($dataPtr_pX->{$o+22} << 16) | ($dataPtr_pX->{$o+21} << 8) | ($dataPtr_pX->{$o+20}) $word6_L:=($dataPtr_pX->{$o+27} << 24) | ($dataPtr_pX->{$o+26} << 16) | ($dataPtr_pX->{$o+25} << 8) | ($dataPtr_pX->{$o+24}) $word7_L:=($dataPtr_pX->{$o+31} << 24) | ($dataPtr_pX->{$o+30} << 16) | ($dataPtr_pX->{$o+29} << 8) | ($dataPtr_pX->{$o+28}) $word8_L:=($dataPtr_pX->{$o+35} << 24) | ($dataPtr_pX->{$o+34} << 16) | ($dataPtr_pX->{$o+33} << 8) | ($dataPtr_pX->{$o+32}) $word9_L:=($dataPtr_pX->{$o+39} << 24) | ($dataPtr_pX->{$o+38} << 16) | ($dataPtr_pX->{$o+37} << 8) | ($dataPtr_pX->{$o+36}) $word10_L:=($dataPtr_pX->{$o+43} << 24) | ($dataPtr_pX->{$o+42} << 16) | ($dataPtr_pX->{$o+41} << 8) | ($dataPtr_pX->{$o+40}) $word11_L:=($dataPtr_pX->{$o+47} << 24) | ($dataPtr_pX->{$o+46} << 16) | ($dataPtr_pX->{$o+45} << 8) | ($dataPtr_pX->{$o+44}) $word12_L:=($dataPtr_pX->{$o+51} << 24) | ($dataPtr_pX->{$o+50} << 16) | ($dataPtr_pX->{$o+49} << 8) | ($dataPtr_pX->{$o+48}) $word13_L:=($dataPtr_pX->{$o+55} << 24) | ($dataPtr_pX->{$o+54} << 16) | ($dataPtr_pX->{$o+53} << 8) | ($dataPtr_pX->{$o+52}) $word14_L:=($dataPtr_pX->{$o+59} << 24) | ($dataPtr_pX->{$o+58} << 16) | ($dataPtr_pX->{$o+57} << 8) | ($dataPtr_pX->{$o+56}) $word15_L:=($dataPtr_pX->{$o+63} << 24) | ($dataPtr_pX->{$o+62} << 16) | ($dataPtr_pX->{$o+61} << 8) | ($dataPtr_pX->{$o+60}) $a:=xblo_ChecksumMD5FF_mL ($a;$b;$c;$d;$word0_L;7;-680876936) $d:=xblo_ChecksumMD5FF_mL ($d;$a;$b;$c;$word1_L;12;-389564586) $c:=xblo_ChecksumMD5FF_mL ($c;$d;$a;$b;$word2_L;17;606105819) $b:=xblo_ChecksumMD5FF_mL ($b;$c;$d;$a;$word3_L;22;-1044525330) $a:=xblo_ChecksumMD5FF_mL ($a;$b;$c;$d;$word4_L;7;-176418897) $d:=xblo_ChecksumMD5FF_mL ($d;$a;$b;$c;$word5_L;12;1200080426) $c:=xblo_ChecksumMD5FF_mL ($c;$d;$a;$b;$word6_L;17;-1473231341) $b:=xblo_ChecksumMD5FF_mL ($b;$c;$d;$a;$word7_L;22;-45705983) $a:=xblo_ChecksumMD5FF_mL ($a;$b;$c;$d;$word8_L;7;1770035416) $d:=xblo_ChecksumMD5FF_mL ($d;$a;$b;$c;$word9_L;12;-1958414417) $c:=xblo_ChecksumMD5FF_mL ($c;$d;$a;$b;$word10_L;17;-42063) $b:=xblo_ChecksumMD5FF_mL ($b;$c;$d;$a;$word11_L;22;-1990404162) $a:=xblo_ChecksumMD5FF_mL ($a;$b;$c;$d;$word12_L;7;1804603682) $d:=xblo_ChecksumMD5FF_mL ($d;$a;$b;$c;$word13_L;12;-40341101) $c:=xblo_ChecksumMD5FF_mL ($c;$d;$a;$b;$word14_L;17;-1502002290) $b:=xblo_ChecksumMD5FF_mL ($b;$c;$d;$a;$word15_L;22;1236535329) IDLE $a:=xblo_ChecksumMD5GG_mL ($a;$b;$c;$d;$word1_L;5;-165796510) $d:=xblo_ChecksumMD5GG_mL ($d;$a;$b;$c;$word6_L;9;-1069501632) $c:=xblo_ChecksumMD5GG_mL ($c;$d;$a;$b;$word11_L;14;643717713) $b:=xblo_ChecksumMD5GG_mL ($b;$c;$d;$a;$word0_L;20;-373897302) $a:=xblo_ChecksumMD5GG_mL ($a;$b;$c;$d;$word5_L;5;-701558691) $d:=xblo_ChecksumMD5GG_mL ($d;$a;$b;$c;$word10_L;9;38016083) $c:=xblo_ChecksumMD5GG_mL ($c;$d;$a;$b;$word15_L;14;-660478335) $b:=xblo_ChecksumMD5GG_mL ($b;$c;$d;$a;$word4_L;20;-405537848) $a:=xblo_ChecksumMD5GG_mL ($a;$b;$c;$d;$word9_L;5;568446438) $d:=xblo_ChecksumMD5GG_mL ($d;$a;$b;$c;$word14_L;9;-1019803690) $c:=xblo_ChecksumMD5GG_mL ($c;$d;$a;$b;$word3_L;14;-187363961) $b:=xblo_ChecksumMD5GG_mL ($b;$c;$d;$a;$word8_L;20;1163531501) $a:=xblo_ChecksumMD5GG_mL ($a;$b;$c;$d;$word13_L;5;-1444681467) $d:=xblo_ChecksumMD5GG_mL ($d;$a;$b;$c;$word2_L;9;-51403784) $c:=xblo_ChecksumMD5GG_mL ($c;$d;$a;$b;$word7_L;14;1735328473) $b:=xblo_ChecksumMD5GG_mL ($b;$c;$d;$a;$word12_L;20;-1926607734) IDLE $a:=xblo_ChecksumMD5HH_mL ($a;$b;$c;$d;$word5_L;4;-378558) $d:=xblo_ChecksumMD5HH_mL ($d;$a;$b;$c;$word8_L;11;-2022574463) $c:=xblo_ChecksumMD5HH_mL ($c;$d;$a;$b;$word11_L;16;1839030562) $b:=xblo_ChecksumMD5HH_mL ($b;$c;$d;$a;$word14_L;23;-35309556) $a:=xblo_ChecksumMD5HH_mL ($a;$b;$c;$d;$word1_L;4;-1530992060) $d:=xblo_ChecksumMD5HH_mL ($d;$a;$b;$c;$word4_L;11;1272893353) $c:=xblo_ChecksumMD5HH_mL ($c;$d;$a;$b;$word7_L;16;-155497632) $b:=xblo_ChecksumMD5HH_mL ($b;$c;$d;$a;$word10_L;23;-1094730640) $a:=xblo_ChecksumMD5HH_mL ($a;$b;$c;$d;$word13_L;4;681279174) $d:=xblo_ChecksumMD5HH_mL ($d;$a;$b;$c;$word0_L;11;-358537222) $c:=xblo_ChecksumMD5HH_mL ($c;$d;$a;$b;$word3_L;16;-722521979) $b:=xblo_ChecksumMD5HH_mL ($b;$c;$d;$a;$word6_L;23;76029189) $a:=xblo_ChecksumMD5HH_mL ($a;$b;$c;$d;$word9_L;4;-640364487) $d:=xblo_ChecksumMD5HH_mL ($d;$a;$b;$c;$word12_L;11;-421815835) $c:=xblo_ChecksumMD5HH_mL ($c;$d;$a;$b;$word15_L;16;530742520) $b:=xblo_ChecksumMD5HH_mL ($b;$c;$d;$a;$word2_L;23;-995338651) IDLE $a:=xblo_ChecksumMD5II_mL ($a;$b;$c;$d;$word0_L;6;-198630844) $d:=xblo_ChecksumMD5II_mL ($d;$a;$b;$c;$word7_L;10;1126891415) $c:=xblo_ChecksumMD5II_mL ($c;$d;$a;$b;$word14_L;15;-1416354905) $b:=xblo_ChecksumMD5II_mL ($b;$c;$d;$a;$word5_L;21;-57434055) $a:=xblo_ChecksumMD5II_mL ($a;$b;$c;$d;$word12_L;6;1700485571) $d:=xblo_ChecksumMD5II_mL ($d;$a;$b;$c;$word3_L;10;-1894986606) $c:=xblo_ChecksumMD5II_mL ($c;$d;$a;$b;$word10_L;15;-1051523) $b:=xblo_ChecksumMD5II_mL ($b;$c;$d;$a;$word1_L;21;-2054922799) $a:=xblo_ChecksumMD5II_mL ($a;$b;$c;$d;$word8_L;6;1873313359) $d:=xblo_ChecksumMD5II_mL ($d;$a;$b;$c;$word15_L;10;-30611744) $c:=xblo_ChecksumMD5II_mL ($c;$d;$a;$b;$word6_L;15;-1560198380) $b:=xblo_ChecksumMD5II_mL ($b;$c;$d;$a;$word13_L;21;1309151649) $a:=xblo_ChecksumMD5II_mL ($a;$b;$c;$d;$word4_L;6;-145523070) $d:=xblo_ChecksumMD5II_mL ($d;$a;$b;$c;$word11_L;10;-1120210379) $c:=xblo_ChecksumMD5II_mL ($c;$d;$a;$b;$word2_L;15;718787259) $b:=xblo_ChecksumMD5II_mL ($b;$c;$d;$a;$word9_L;21;-343485551) IDLE $a:=$a+$olda $b:=$b+$oldb $c:=$c+$oldc $d:=$d+$oldd End for   `Process the last block (or the first 64 bytes of it) $olda:=$a $oldb:=$b $oldc:=$c $oldd:=$d $word0_L:=($lastBlock_X{3} << 24) | ($lastBlock_X{2} << 16) | ($lastBlock_X{1} << 8) | ($lastBlock_X{0}) $word1_L:=($lastBlock_X{7} << 24) | ($lastBlock_X{6} << 16) | ($lastBlock_X{5} << 8) | ($lastBlock_X{4}) $word2_L:=($lastBlock_X{11} << 24) | ($lastBlock_X{10} << 16) | ($lastBlock_X{9} << 8) | ($lastBlock_X{8}) $word3_L:=($lastBlock_X{15} << 24) | ($lastBlock_X{14} << 16) | ($lastBlock_X{13} << 8) | ($lastBlock_X{12}) $word4_L:=($lastBlock_X{19} << 24) | ($lastBlock_X{18} << 16) | ($lastBlock_X{17} << 8) | ($lastBlock_X{16}) $word5_L:=($lastBlock_X{23} << 24) | ($lastBlock_X{22} << 16) | ($lastBlock_X{21} << 8) | ($lastBlock_X{20}) $word6_L:=($lastBlock_X{27} << 24) | ($lastBlock_X{26} << 16) | ($lastBlock_X{25} << 8) | ($lastBlock_X{24}) $word7_L:=($lastBlock_X{31} << 24) | ($lastBlock_X{30} << 16) | ($lastBlock_X{29} << 8) | ($lastBlock_X{28}) $word8_L:=($lastBlock_X{35} << 24) | ($lastBlock_X{34} << 16) | ($lastBlock_X{33} << 8) | ($lastBlock_X{32}) $word9_L:=($lastBlock_X{39} << 24) | ($lastBlock_X{38} << 16) | ($lastBlock_X{37} << 8) | ($lastBlock_X{36}) $word10_L:=($lastBlock_X{43} << 24) | ($lastBlock_X{42} << 16) | ($lastBlock_X{41} << 8) | ($lastBlock_X{40}) $word11_L:=($lastBlock_X{47} << 24) | ($lastBlock_X{46} << 16) | ($lastBlock_X{45} << 8) | ($lastBlock_X{44}) $word12_L:=($lastBlock_X{51} << 24) | ($lastBlock_X{50} << 16) | ($lastBlock_X{49} << 8) | ($lastBlock_X{48}) $word13_L:=($lastBlock_X{55} << 24) | ($lastBlock_X{54} << 16) | ($lastBlock_X{53} << 8) | ($lastBlock_X{52}) $word14_L:=($lastBlock_X{59} << 24) | ($lastBlock_X{58} << 16) | ($lastBlock_X{57} << 8) | ($lastBlock_X{56}) $word15_L:=($lastBlock_X{63} << 24) | ($lastBlock_X{62} << 16) | ($lastBlock_X{61} << 8) | ($lastBlock_X{60}) $a:=xblo_ChecksumMD5FF_mL ($a;$b;$c;$d;$word0_L;7;-680876936) $d:=xblo_ChecksumMD5FF_mL ($d;$a;$b;$c;$word1_L;12;-389564586) $c:=xblo_ChecksumMD5FF_mL ($c;$d;$a;$b;$word2_L;17;606105819) $b:=xblo_ChecksumMD5FF_mL ($b;$c;$d;$a;$word3_L;22;-1044525330) $a:=xblo_ChecksumMD5FF_mL ($a;$b;$c;$d;$word4_L;7;-176418897) $d:=xblo_ChecksumMD5FF_mL ($d;$a;$b;$c;$word5_L;12;1200080426) $c:=xblo_ChecksumMD5FF_mL ($c;$d;$a;$b;$word6_L;17;-1473231341) $b:=xblo_ChecksumMD5FF_mL ($b;$c;$d;$a;$word7_L;22;-45705983) $a:=xblo_ChecksumMD5FF_mL ($a;$b;$c;$d;$word8_L;7;1770035416) $d:=xblo_ChecksumMD5FF_mL ($d;$a;$b;$c;$word9_L;12;-1958414417) $c:=xblo_ChecksumMD5FF_mL ($c;$d;$a;$b;$word10_L;17;-42063) $b:=xblo_ChecksumMD5FF_mL ($b;$c;$d;$a;$word11_L;22;-1990404162) $a:=xblo_ChecksumMD5FF_mL ($a;$b;$c;$d;$word12_L;7;1804603682) $d:=xblo_ChecksumMD5FF_mL ($d;$a;$b;$c;$word13_L;12;-40341101) $c:=xblo_ChecksumMD5FF_mL ($c;$d;$a;$b;$word14_L;17;-1502002290) $b:=xblo_ChecksumMD5FF_mL ($b;$c;$d;$a;$word15_L;22;1236535329) IDLE $a:=xblo_ChecksumMD5GG_mL ($a;$b;$c;$d;$word1_L;5;-165796510) $d:=xblo_ChecksumMD5GG_mL ($d;$a;$b;$c;$word6_L;9;-1069501632) $c:=xblo_ChecksumMD5GG_mL ($c;$d;$a;$b;$word11_L;14;643717713) $b:=xblo_ChecksumMD5GG_mL ($b;$c;$d;$a;$word0_L;20;-373897302) $a:=xblo_ChecksumMD5GG_mL ($a;$b;$c;$d;$word5_L;5;-701558691) $d:=xblo_ChecksumMD5GG_mL ($d;$a;$b;$c;$word10_L;9;38016083) $c:=xblo_ChecksumMD5GG_mL ($c;$d;$a;$b;$word15_L;14;-660478335) $b:=xblo_ChecksumMD5GG_mL ($b;$c;$d;$a;$word4_L;20;-405537848) $a:=xblo_ChecksumMD5GG_mL ($a;$b;$c;$d;$word9_L;5;568446438) $d:=xblo_ChecksumMD5GG_mL ($d;$a;$b;$c;$word14_L;9;-1019803690) $c:=xblo_ChecksumMD5GG_mL ($c;$d;$a;$b;$word3_L;14;-187363961) $b:=xblo_ChecksumMD5GG_mL ($b;$c;$d;$a;$word8_L;20;1163531501) $a:=xblo_ChecksumMD5GG_mL ($a;$b;$c;$d;$word13_L;5;-1444681467) $d:=xblo_ChecksumMD5GG_mL ($d;$a;$b;$c;$word2_L;9;-51403784) $c:=xblo_ChecksumMD5GG_mL ($c;$d;$a;$b;$word7_L;14;1735328473) $b:=xblo_ChecksumMD5GG_mL ($b;$c;$d;$a;$word12_L;20;-1926607734) IDLE $a:=xblo_ChecksumMD5HH_mL ($a;$b;$c;$d;$word5_L;4;-378558) $d:=xblo_ChecksumMD5HH_mL ($d;$a;$b;$c;$word8_L;11;-2022574463) $c:=xblo_ChecksumMD5HH_mL ($c;$d;$a;$b;$word11_L;16;1839030562) $b:=xblo_ChecksumMD5HH_mL ($b;$c;$d;$a;$word14_L;23;-35309556) $a:=xblo_ChecksumMD5HH_mL ($a;$b;$c;$d;$word1_L;4;-1530992060) $d:=xblo_ChecksumMD5HH_mL ($d;$a;$b;$c;$word4_L;11;1272893353) $c:=xblo_ChecksumMD5HH_mL ($c;$d;$a;$b;$word7_L;16;-155497632) $b:=xblo_ChecksumMD5HH_mL ($b;$c;$d;$a;$word10_L;23;-1094730640) $a:=xblo_ChecksumMD5HH_mL ($a;$b;$c;$d;$word13_L;4;681279174) $d:=xblo_ChecksumMD5HH_mL ($d;$a;$b;$c;$word0_L;11;-358537222) $c:=xblo_ChecksumMD5HH_mL ($c;$d;$a;$b;$word3_L;16;-722521979) $b:=xblo_ChecksumMD5HH_mL ($b;$c;$d;$a;$word6_L;23;76029189) $a:=xblo_ChecksumMD5HH_mL ($a;$b;$c;$d;$word9_L;4;-640364487) $d:=xblo_ChecksumMD5HH_mL ($d;$a;$b;$c;$word12_L;11;-421815835) $c:=xblo_ChecksumMD5HH_mL ($c;$d;$a;$b;$word15_L;16;530742520) $b:=xblo_ChecksumMD5HH_mL ($b;$c;$d;$a;$word2_L;23;-995338651) IDLE $a:=xblo_ChecksumMD5II_mL ($a;$b;$c;$d;$word0_L;6;-198630844) $d:=xblo_ChecksumMD5II_mL ($d;$a;$b;$c;$word7_L;10;1126891415) $c:=xblo_ChecksumMD5II_mL ($c;$d;$a;$b;$word14_L;15;-1416354905) $b:=xblo_ChecksumMD5II_mL ($b;$c;$d;$a;$word5_L;21;-57434055) $a:=xblo_ChecksumMD5II_mL ($a;$b;$c;$d;$word12_L;6;1700485571) $d:=xblo_ChecksumMD5II_mL ($d;$a;$b;$c;$word3_L;10;-1894986606) $c:=xblo_ChecksumMD5II_mL ($c;$d;$a;$b;$word10_L;15;-1051523) $b:=xblo_ChecksumMD5II_mL ($b;$c;$d;$a;$word1_L;21;-2054922799) $a:=xblo_ChecksumMD5II_mL ($a;$b;$c;$d;$word8_L;6;1873313359) $d:=xblo_ChecksumMD5II_mL ($d;$a;$b;$c;$word15_L;10;-30611744) $c:=xblo_ChecksumMD5II_mL ($c;$d;$a;$b;$word6_L;15;-1560198380) $b:=xblo_ChecksumMD5II_mL ($b;$c;$d;$a;$word13_L;21;1309151649) $a:=xblo_ChecksumMD5II_mL ($a;$b;$c;$d;$word4_L;6;-145523070) $d:=xblo_ChecksumMD5II_mL ($d;$a;$b;$c;$word11_L;10;-1120210379) $c:=xblo_ChecksumMD5II_mL ($c;$d;$a;$b;$word2_L;15;718787259) $b:=xblo_ChecksumMD5II_mL ($b;$c;$d;$a;$word9_L;21;-343485551) IDLE $a:=$a+$olda $b:=$b+$oldb $c:=$c+$oldc $d:=$d+$oldd If ($copySize_L>=56)   `Process the second 64 bytes of the last block (if they exist) $olda:=$a $oldb:=$b $oldc:=$c $oldd:=$d $word0_L:=($lastBlock_X{67} << 24) | ($lastBlock_X{66} << 16) | ($lastBlock_X{65} << 8) | ($lastBlock_X{64}) $word1_L:=($lastBlock_X{71} << 24) | ($lastBlock_X{70} << 16) | ($lastBlock_X{69} << 8) | ($lastBlock_X{68}) $word2_L:=($lastBlock_X{75} << 24) | ($lastBlock_X{74} << 16) | ($lastBlock_X{73} << 8) | ($lastBlock_X{72}) $word3_L:=($lastBlock_X{79} << 24) | ($lastBlock_X{78} << 16) | ($lastBlock_X{77} << 8) | ($lastBlock_X{76}) $word4_L:=($lastBlock_X{83} << 24) | ($lastBlock_X{82} << 16) | ($lastBlock_X{81} << 8) | ($lastBlock_X{80}) $word5_L:=($lastBlock_X{87} << 24) | ($lastBlock_X{86} << 16) | ($lastBlock_X{85} << 8) | ($lastBlock_X{84}) $word6_L:=($lastBlock_X{91} << 24) | ($lastBlock_X{90} << 16) | ($lastBlock_X{89} << 8) | ($lastBlock_X{88}) $word7_L:=($lastBlock_X{95} << 24) | ($lastBlock_X{94} << 16) | ($lastBlock_X{93} << 8) | ($lastBlock_X{92}) $word8_L:=($lastBlock_X{99} << 24) | ($lastBlock_X{98} << 16) | ($lastBlock_X{97} << 8) | ($lastBlock_X{96}) $word9_L:=($lastBlock_X{103} << 24) | ($lastBlock_X{102} << 16) | ($lastBlock_X{101} << 8) | ($lastBlock_X{100}) $word10_L:=($lastBlock_X{107} << 24) | ($lastBlock_X{106} << 16) | ($lastBlock_X{105} << 8) | ($lastBlock_X{104}) $word11_L:=($lastBlock_X{111} << 24) | ($lastBlock_X{110} << 16) | ($lastBlock_X{109} << 8) | ($lastBlock_X{108}) $word12_L:=($lastBlock_X{115} << 24) | ($lastBlock_X{114} << 16) | ($lastBlock_X{113} << 8) | ($lastBlock_X{112}) $word13_L:=($lastBlock_X{119} << 24) | ($lastBlock_X{118} << 16) | ($lastBlock_X{117} << 8) | ($lastBlock_X{116}) $word14_L:=($lastBlock_X{123} << 24) | ($lastBlock_X{122} << 16) | ($lastBlock_X{121} << 8) | ($lastBlock_X{120}) $word15_L:=($lastBlock_X{127} << 24) | ($lastBlock_X{126} << 16) | ($lastBlock_X{125} << 8) | ($lastBlock_X{124}) $a:=xblo_ChecksumMD5FF_mL ($a;$b;$c;$d;$word0_L;7;-680876936) $d:=xblo_ChecksumMD5FF_mL ($d;$a;$b;$c;$word1_L;12;-389564586) $c:=xblo_ChecksumMD5FF_mL ($c;$d;$a;$b;$word2_L;17;606105819) $b:=xblo_ChecksumMD5FF_mL ($b;$c;$d;$a;$word3_L;22;-1044525330) $a:=xblo_ChecksumMD5FF_mL ($a;$b;$c;$d;$word4_L;7;-176418897) $d:=xblo_ChecksumMD5FF_mL ($d;$a;$b;$c;$word5_L;12;1200080426) $c:=xblo_ChecksumMD5FF_mL ($c;$d;$a;$b;$word6_L;17;-1473231341) $b:=xblo_ChecksumMD5FF_mL ($b;$c;$d;$a;$word7_L;22;-45705983) $a:=xblo_ChecksumMD5FF_mL ($a;$b;$c;$d;$word8_L;7;1770035416) $d:=xblo_ChecksumMD5FF_mL ($d;$a;$b;$c;$word9_L;12;-1958414417) $c:=xblo_ChecksumMD5FF_mL ($c;$d;$a;$b;$word10_L;17;-42063) $b:=xblo_ChecksumMD5FF_mL ($b;$c;$d;$a;$word11_L;22;-1990404162) $a:=xblo_ChecksumMD5FF_mL ($a;$b;$c;$d;$word12_L;7;1804603682) $d:=xblo_ChecksumMD5FF_mL ($d;$a;$b;$c;$word13_L;12;-40341101) $c:=xblo_ChecksumMD5FF_mL ($c;$d;$a;$b;$word14_L;17;-1502002290) $b:=xblo_ChecksumMD5FF_mL ($b;$c;$d;$a;$word15_L;22;1236535329) IDLE $a:=xblo_ChecksumMD5GG_mL ($a;$b;$c;$d;$word1_L;5;-165796510) $d:=xblo_ChecksumMD5GG_mL ($d;$a;$b;$c;$word6_L;9;-1069501632) $c:=xblo_ChecksumMD5GG_mL ($c;$d;$a;$b;$word11_L;14;643717713) $b:=xblo_ChecksumMD5GG_mL ($b;$c;$d;$a;$word0_L;20;-373897302) $a:=xblo_ChecksumMD5GG_mL ($a;$b;$c;$d;$word5_L;5;-701558691) $d:=xblo_ChecksumMD5GG_mL ($d;$a;$b;$c;$word10_L;9;38016083) $c:=xblo_ChecksumMD5GG_mL ($c;$d;$a;$b;$word15_L;14;-660478335) $b:=xblo_ChecksumMD5GG_mL ($b;$c;$d;$a;$word4_L;20;-405537848) $a:=xblo_ChecksumMD5GG_mL ($a;$b;$c;$d;$word9_L;5;568446438) $d:=xblo_ChecksumMD5GG_mL ($d;$a;$b;$c;$word14_L;9;-1019803690) $c:=xblo_ChecksumMD5GG_mL ($c;$d;$a;$b;$word3_L;14;-187363961) $b:=xblo_ChecksumMD5GG_mL ($b;$c;$d;$a;$word8_L;20;1163531501) $a:=xblo_ChecksumMD5GG_mL ($a;$b;$c;$d;$word13_L;5;-1444681467) $d:=xblo_ChecksumMD5GG_mL ($d;$a;$b;$c;$word2_L;9;-51403784) $c:=xblo_ChecksumMD5GG_mL ($c;$d;$a;$b;$word7_L;14;1735328473) $b:=xblo_ChecksumMD5GG_mL ($b;$c;$d;$a;$word12_L;20;-1926607734) IDLE $a:=xblo_ChecksumMD5HH_mL ($a;$b;$c;$d;$word5_L;4;-378558) $d:=xblo_ChecksumMD5HH_mL ($d;$a;$b;$c;$word8_L;11;-2022574463) $c:=xblo_ChecksumMD5HH_mL ($c;$d;$a;$b;$word11_L;16;1839030562) $b:=xblo_ChecksumMD5HH_mL ($b;$c;$d;$a;$word14_L;23;-35309556) $a:=xblo_ChecksumMD5HH_mL ($a;$b;$c;$d;$word1_L;4;-1530992060) $d:=xblo_ChecksumMD5HH_mL ($d;$a;$b;$c;$word4_L;11;1272893353) $c:=xblo_ChecksumMD5HH_mL ($c;$d;$a;$b;$word7_L;16;-155497632) $b:=xblo_ChecksumMD5HH_mL ($b;$c;$d;$a;$word10_L;23;-1094730640) $a:=xblo_ChecksumMD5HH_mL ($a;$b;$c;$d;$word13_L;4;681279174) $d:=xblo_ChecksumMD5HH_mL ($d;$a;$b;$c;$word0_L;11;-358537222) $c:=xblo_ChecksumMD5HH_mL ($c;$d;$a;$b;$word3_L;16;-722521979) $b:=xblo_ChecksumMD5HH_mL ($b;$c;$d;$a;$word6_L;23;76029189) $a:=xblo_ChecksumMD5HH_mL ($a;$b;$c;$d;$word9_L;4;-640364487) $d:=xblo_ChecksumMD5HH_mL ($d;$a;$b;$c;$word12_L;11;-421815835) $c:=xblo_ChecksumMD5HH_mL ($c;$d;$a;$b;$word15_L;16;530742520) $b:=xblo_ChecksumMD5HH_mL ($b;$c;$d;$a;$word2_L;23;-995338651) IDLE $a:=xblo_ChecksumMD5II_mL ($a;$b;$c;$d;$word0_L;6;-198630844) $d:=xblo_ChecksumMD5II_mL ($d;$a;$b;$c;$word7_L;10;1126891415) $c:=xblo_ChecksumMD5II_mL ($c;$d;$a;$b;$word14_L;15;-1416354905) $b:=xblo_ChecksumMD5II_mL ($b;$c;$d;$a;$word5_L;21;-57434055) $a:=xblo_ChecksumMD5II_mL ($a;$b;$c;$d;$word12_L;6;1700485571) $d:=xblo_ChecksumMD5II_mL ($d;$a;$b;$c;$word3_L;10;-1894986606) $c:=xblo_ChecksumMD5II_mL ($c;$d;$a;$b;$word10_L;15;-1051523) $b:=xblo_ChecksumMD5II_mL ($b;$c;$d;$a;$word1_L;21;-2054922799) $a:=xblo_ChecksumMD5II_mL ($a;$b;$c;$d;$word8_L;6;1873313359) $d:=xblo_ChecksumMD5II_mL ($d;$a;$b;$c;$word15_L;10;-30611744) $c:=xblo_ChecksumMD5II_mL ($c;$d;$a;$b;$word6_L;15;-1560198380) $b:=xblo_ChecksumMD5II_mL ($b;$c;$d;$a;$word13_L;21;1309151649) $a:=xblo_ChecksumMD5II_mL ($a;$b;$c;$d;$word4_L;6;-145523070) $d:=xblo_ChecksumMD5II_mL ($d;$a;$b;$c;$word11_L;10;-1120210379) $c:=xblo_ChecksumMD5II_mL ($c;$d;$a;$b;$word2_L;15;718787259) $b:=xblo_ChecksumMD5II_mL ($b;$c;$d;$a;$word9_L;21;-343485551) IDLE $a:=$a+$olda $b:=$b+$oldb $c:=$c+$oldc $d:=$d+$oldd End if $checksum_T:="" Case of : ($resultFormat_T="binary") $checksum_T:=$checksum_T+Char(($a & 0x00FF) >> 0) $checksum_T:=$checksum_T+Char(($a & 0xFF00) >> 8) $checksum_T:=$checksum_T+Char(($a & 0x00FF0000) >> 16) $checksum_T:=$checksum_T+Char(($a & 0xFF000000) >> 24) $checksum_T:=$checksum_T+Char(($b & 0x00FF) >> 0) $checksum_T:=$checksum_T+Char(($b & 0xFF00) >> 8) $checksum_T:=$checksum_T+Char(($b & 0x00FF0000) >> 16) $checksum_T:=$checksum_T+Char(($b & 0xFF000000) >> 24) $checksum_T:=$checksum_T+Char(($c & 0x00FF) >> 0) $checksum_T:=$checksum_T+Char(($c & 0xFF00) >> 8) $checksum_T:=$checksum_T+Char(($c & 0x00FF0000) >> 16) $checksum_T:=$checksum_T+Char(($c & 0xFF000000) >> 24) $checksum_T:=$checksum_T+Char(($d & 0x00FF) >> 0) $checksum_T:=$checksum_T+Char(($d & 0xFF00) >> 8) $checksum_T:=$checksum_T+Char(($d & 0x00FF0000) >> 16) $checksum_T:=$checksum_T+Char(($d & 0xFF000000) >> 24) Else $hexByte_S:=String(($a & 0x00FF) >> 0;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($a & 0xFF00) >> 8;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($a & 0x00FF0000) >> 16;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($a & 0xFF000000) >> 24;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($b & 0x00FF) >> 0;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($b & 0xFF00) >> 8;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($b & 0x00FF0000) >> 16;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($b & 0xFF000000) >> 24;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($c & 0x00FF) >> 0;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($c & 0xFF00) >> 8;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($c & 0x00FF0000) >> 16;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($c & 0xFF000000) >> 24;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($d & 0x00FF) >> 0;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($d & 0xFF00) >> 8;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($d & 0x00FF0000) >> 16;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) $hexByte_S:=String(($d & 0xFF000000) >> 24;"&x") $checksum_T:=$checksum_T+Substring($hexByte_S;Length($hexByte_S)-1) End case Else TRACE End if   `----------------------------------------------------------------------- $0:=$checksum_T   `-----------------------------------------------------------------------   `----------------------------------------------------------------------- XErr_UnregisterMethod   `-----------------------------------------------------------------------   `*----------------------------------------------------------------------   `*xblo_ChecksumMD5FF_mL($0;$1;$2;$3;$4;$5;$6;$7)   `*----------------------------------------------------------------------   `*The MD5 auxiliary method FF (see RFC 1321 for details).   `*This method is optimized for speed - therefore there is no error handling and no local parameter copies.   `*----------------------------------------------------------------------   `XErr_RegisterMethod (Current method name)   `XErr_Modified ("Maurice Perriard: 22.04.05, version")   `*Created: Maurice Perriard: 22.04.05   `*---------------------------------------------------------------------- C_LONGINT($0;$1;$2;$3;$4;$5;$6;$7)   `*---------------------------------------------------------------------- C_LONGINT($bitRol_L)   `-----------------------------------------------------------------------   `----------------------------------------------------------------------- $bitRol_L:=$1+(($2 & $3) | ((0xFFFFFFFF ^| $2) & $4))+$5+$7 $0:=(($bitRol_L << $6) | ($bitRol_L >> (32-$6)))+$2   `-----------------------------------------------------------------------   `-----------------------------------------------------------------------   `-----------------------------------------------------------------------   `XErr_UnregisterMethod   `-----------------------------------------------------------------------   `*----------------------------------------------------------------------   `*xblo_ChecksumMD5GG_mL($0;$1;$2;$3;$4;$5;$6;$7)   `*----------------------------------------------------------------------   `*The MD5 auxiliary method GG (see RFC 1321 for details).   `*This method is optimized for speed - therefore there is no error handling and no local parameter copies.   `*----------------------------------------------------------------------   `XErr_RegisterMethod (Current method name)   `XErr_Modified ("Maurice Perriard: 22.04.05, version")   `*Created: Maurice Perriard: 22.04.05   `*---------------------------------------------------------------------- C_LONGINT($0;$1;$2;$3;$4;$5;$6;$7)   `*---------------------------------------------------------------------- C_LONGINT($bitRol_L)   `-----------------------------------------------------------------------   `----------------------------------------------------------------------- $bitRol_L:=$1+(($2 & $4) | ($3 & (0xFFFFFFFF ^| $4)))+$5+$7 $0:=(($bitRol_L << $6) | ($bitRol_L >> (32-$6)))+$2   `-----------------------------------------------------------------------   `-----------------------------------------------------------------------   `-----------------------------------------------------------------------   `XErr_UnregisterMethod   `-----------------------------------------------------------------------   `*----------------------------------------------------------------------   `*xblo_ChecksumMD5HH_mL($0;$1;$2;$3;$4;$5;$6;$7)   `*----------------------------------------------------------------------   `*The MD5 auxiliary method HH (see RFC 1321 for details).   `*This method is optimized for speed - therefore there is no error handling and no local parameter copies.   `*----------------------------------------------------------------------   `XErr_RegisterMethod (Current method name)   `XErr_Modified ("Maurice Perriard: 22.04.05, version")   `*Created: Maurice Perriard: 22.04.05   `*---------------------------------------------------------------------- C_LONGINT($0;$1;$2;$3;$4;$5;$6;$7)   `*---------------------------------------------------------------------- C_LONGINT($bitRol_L)   `-----------------------------------------------------------------------   `----------------------------------------------------------------------- $bitRol_L:=$1+($2 ^| $3 ^| $4)+$5+$7 $0:=(($bitRol_L << $6) | ($bitRol_L >> (32-$6)))+$2   `-----------------------------------------------------------------------   `-----------------------------------------------------------------------   `-----------------------------------------------------------------------   `XErr_UnregisterMethod   `-----------------------------------------------------------------------   `*----------------------------------------------------------------------   `*xblo_ChecksumMD5II_mL($0;$1;$2;$3;$4;$5;$6;$7)   `*----------------------------------------------------------------------   `*The MD5 auxiliary method II (see RFC 1321 for details).   `*This method is optimized for speed - therefore there is no error handling and no local parameter copies.   `*----------------------------------------------------------------------   `XErr_RegisterMethod (Current method name)   `XErr_Modified ("Maurice Perriard: 22.04.05, version")   `*Created: Maurice Perriard: 22.04.05   `*---------------------------------------------------------------------- C_LONGINT($0;$1;$2;$3;$4;$5;$6;$7)   `*---------------------------------------------------------------------- C_LONGINT($bitRol_L)   `-----------------------------------------------------------------------   `----------------------------------------------------------------------- $bitRol_L:=$1+($3 ^| ($2 | (0xFFFFFFFF ^| $4)))+$5+$7 $0:=(($bitRol_L << $6) | ($bitRol_L >> (32-$6)))+$2   `-----------------------------------------------------------------------   `-----------------------------------------------------------------------   `-----------------------------------------------------------------------   `XErr_UnregisterMethod   `-----------------------------------------------------------------------   `*----------------------------------------------------------------------   `*compiler   `*---------------------------------------------------------------------- C_TEXT(XBlo_ChecksumMD5_mT ;$0) C_POINTER(XBlo_ChecksumMD5_mT ;$1) C_TEXT(XBlo_ChecksumMD5_mT ;$2) C_LONGINT(xblo_ChecksumMD5FF_mL ;$0;$1;$2;$3;$4;$5;$6;$7) C_LONGINT(xblo_ChecksumMD5GG_mL ;$0;$1;$2;$3;$4;$5;$6;$7) C_LONGINT(xblo_ChecksumMD5HH_mL ;$0;$1;$2;$3;$4;$5;$6;$7) C_LONGINT(xblo_ChecksumMD5II_mL ;$0;$1;$2;$3;$4;$5;$6;$7) Code ändern (nur für Autor - Kennwort geschützt)

---

Zurück

 

 

International | Firmenprofil | Kontakt | Site Map | © 4D 1995 - 2007 | Schriftgröße ändern: [A] [A] [A] | - * Externer Link