MD5/Implementation: Difference between revisions
m
→{{header|EasyLang}}
m (→{{header|Sidef}}: update) |
|||
Line 1,607:
.
.
#
proc md5 inp$ . s$ .
Line 1,625:
for i = 1 to len inp$
b = strcode substr inp$ i 1
.
b = 0x80
while len inp[] mod 16 <> 14 or inp4 <> 1
b = 0
.
h = len inp$ * 8
for i = 1 to 4
b = h mod 0x100
h = h div 0x100
.
Line 1,695:
s$ = input
until error = 1
print h$
.
|