XUMF5AU ;ISS/PAVEL - XUMF5 MD5 Hash API ;06/17/05
Source file <XUMF5AU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MD5R(STR) | ; Construct a 128-bit MD5 hash of the input.
|
|
| PAD1R | ||
| PAD2R | ||
| PROCESSR | ; Main processing and transformation loop
|
|
| INITR | ||
| MD5E(ABCD,STR,PP,LL) | ; Construct a 128-bit MD5 hash of the input.
|
|
| PAD1E | ||
| PAD2E | ||
| PROCESSE | ; Main processing and transformation loop
|
|
| INITE(LASTABCD) | ||
| SAVE | ; Save buffers
|
|
| ROUND1 | ; First round of transformation
|
|
| ROUND2 | ; Second round of transformation
|
|
| ROUND3 | ; Third round of transformation
|
|
| ROUND4 | ; Fourth round of transformation
|
|
| INCR | ;
|
|
| SUB(A,B,C,D,X,S,AC,FN) | ; FN is 1 (F), 2 (G), 3 (H) or 4 (I)
|
|
| COMB | ; Choose F, G, H or I
|
|
| COMB1 | ||
| COMB2 | ||
| COMB3 | ||
| COMB4 | ||
| AND(X,Y) | ;
|
|
| OR(X,Y) | ;
|
|
| XOR(X,Y) | ;
|
|
| NOT(X) | ;
|
|
| ADD(X,Y) | ; modulo 2**32
|
|
| ADDIW(M,Y) | ; modulo 2**32
|
|
| ADDII(M,N) | ; modulo 2**32
|
|
| ROTL(X,S) | ; rotate left by s bits
|
|
| ROTLI(N,S) | ; rotate left by s bits
|
|
| UI64BIT(N) | ; Convert unsigned integer to 64-bit form, little endian
; code from CORBA ULONGLONG marshaling |
|
| UI32BIT(N) | ; Convert unsigned integer to 32-bit form, little endian
; code from CORBA ULONG marshaling |
|
| UINT32(STR) | ; Get integer value from bits of 4-character string
; code from CORBA ULONG unmarshaling |
|
| HEX(STR) | ; Printable hex representation of characters in string
|
|
| CHR2OCT(STR) | ; convert hex string to decimal byte values
|
|
| CHAR1(DIGIT) | ; convert one char to its hex value
|
