MD5/Implementation: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added whitespace.) |
m (→{{header|REXX}}: added whitespace.) |
||
| Line 4,528: | Line 4,528: | ||
a= '67452301'x; b= "efcdab89"x; c= '98badcfe'x; d= "10325476"x |
a= '67452301'x; b= "efcdab89"x; c= '98badcfe'x; d= "10325476"x |
||
#= length(!) /*length in bytes of the input message.*/ |
#= length(!) /*length in bytes of the input message.*/ |
||
L= #*8 |
L= #*8//512; if L<448 then plus= 448 - L /*is the length less than 448 ? */ |
||
if L>448 then plus= 960 - L /* " " " greater " " */ |
|||
if L=448 then plus= 512 /* " " " equal to " */ |
|||
/* [↓] a little of this, ··· */ |
/* [↓] a little of this, ··· */ |
||
$=! || "80"x || copies('0'x,plus%8-1)reverse(right(d2c(8*#), 4, '0'x)) || '00000000'x |
$=! || "80"x || copies('0'x,plus%8-1)reverse(right(d2c(8*#), 4, '0'x)) || '00000000'x |
||