MD5/Implementation: Difference between revisions
m
→{{header|ooRexx}}
Line 4,023:
{{works with|ooRexx|4.2.0 (and later)}}
<syntaxhighlight lang="oorexx">
#!/usr/bin/env rexx
/* Expected results:
Line 4,097:
index = 65
end
-- Only
do while index=65
A = a0
Line 4,154:
-- A convenience class to encapsulate operations on non OORexx-like
-- things such as little-endian 32-bit words
::class int32 public
Line 4,207:
bstring = bstring~substr(bits+1)~left(bstring~length,'0')
return .int32~new(bstring~b2x~x2d)
-- For those who like to code the shift operation in a traditional way
::method '<<'
forward to (self) message("bitleft")
::method bitright -- OORexx shift (>>) implementation
Line 4,216 ⟶ 4,220:
bstring = bstring~left(bstring~length-bits)~right(bstring~length,fill)
return .int32~new(bstring~b2x~x2d)
-- For those who like to code the shift operation in a traditional way
::method '>>'
forward to (self) message("bitright")
::method bitnot -- OORexx not implementation
| |||