RIPEMD_128 Class

Dim data as String
Dim hash as RIPEMD_128
Dim result as String
Dim hexResult as String
Dim i as Integer

data = "a"

// We do this in ASCII because the well known test vectors come in ASCII
data = ConvertEncoding(data,Encodings.ASCII)

hash = new RIPEMD_128()

hash.Update(data)

result = hash.Final()

// Convert to HEX
For i = 1 to 16
    hexResult = hexResult + Right("0"+Hex(Asc(Mid(result,i,1))),2)
next

if hexResult <> Uppercase("86be7afa339d0fc7cfc785e72f578d33") then
    return false
end if

// Lets test another official vector

data = "a"

// We do this in ASCII because the well known test vectors come in ASCII
data = ConvertEncoding(data,Encodings.ASCII)

hash = new RIPEMD_128()

for i = 1 to 1000000
    hash.Update(data)
next

result = hash.Final()

hexResult = ""
// Convert to HEX
For i = 1 to 16
    hexResult = hexResult + Right("0"+Hex(Asc(Mid(result,i,1))),2)
next

if hexResult <> Uppercase("4a7f5723f954eba1216c9d8f6320431f") then
    return false
end if

// Lets test another official vector

data = "1234567890"

// We do this in ASCII because the well known test vectors come in ASCII
data = ConvertEncoding(data,Encodings.ASCII)

hash = new RIPEMD_128()

for i = 1 to 8//1000000
    hash.Update(data)
next

result = hash.Final()

hexResult = ""
// Convert to HEX
For i = 1 to 16
    hexResult = hexResult + Right("0"+Hex(Asc(Mid(result,i,1))),2)
next

if hexResult = Uppercase("3f45ef194732c2dbb2c4a2c769795fa3") then
    return true
else
    return false
end if