ripemd160managed.cls

这是一个在vb下实现的各种加密程序,可以实现一般的文本加密和文件加密,但是很多算法都是已经被人破解过的.

    'Call fnHHH(ccc, ddd, eee, aaa, bbb, mX(2), 14)
    ccc = ccc + ((ddd Or (Not eee)) Xor aaa) + mX(2) + &H6D703EF3
    ccc = ((ccc * &H4000&) Or (((ccc And &HFFFC0000) \ &H40000) And &H3FFF&)) + bbb
    eee = ((eee * &H400&) Or (((eee And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnHHH(bbb, ccc, ddd, eee, aaa, mX(10), 13)
    bbb = bbb + ((ccc Or (Not ddd)) Xor eee) + mX(10) + &H6D703EF3
    bbb = ((bbb * &H2000&) Or (((bbb And &HFFF80000) \ &H80000) And &H1FFF&)) + aaa
    ddd = ((ddd * &H400&) Or (((ddd And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnHHH(aaa, bbb, ccc, ddd, eee, mX(0), 13)
    aaa = aaa + ((bbb Or (Not ccc)) Xor ddd) + mX(0) + &H6D703EF3
    aaa = ((aaa * &H2000&) Or (((aaa And &HFFF80000) \ &H80000) And &H1FFF&)) + eee
    ccc = ((ccc * &H400&) Or (((ccc And &HFFC00000) \ &H400000) And &H3FF&))
    
    'Call fnHHH(eee, aaa, bbb, ccc, ddd, mX(4), 7)
    eee = eee + ((aaa Or (Not bbb)) Xor ccc) + mX(4) + &H6D703EF3
    eee = ((eee * &H80&) Or (((eee And &HFE000000) \ &H2000000) And &H7F&)) + ddd
    bbb = ((bbb * &H400&) Or (((bbb And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnHHH(ddd, eee, aaa, bbb, ccc, mX(13), 5)
    ddd = ddd + ((eee Or (Not aaa)) Xor bbb) + mX(13) + &H6D703EF3
    ddd = ((ddd * &H20&) Or (((ddd And &HF8000000) \ &H8000000) And &H1F&)) + ccc
    aaa = ((aaa * &H400&) Or (((aaa And &HFFC00000) \ &H400000) And &H3FF&))
    
    'Call fnGGG(ccc, ddd, eee, aaa, bbb, mX(8), 15)
    ccc = ccc + ((ddd And eee) Or ((Not ddd) And aaa)) + mX(8) + &H7A6D76E9
    ccc = ((ccc * &H8000&) Or (((ccc And &HFFFE0000) \ &H20000) And &H7FFF&)) + bbb
    eee = ((eee * &H400&) Or (((eee And &HFFC00000) \ &H400000) And &H3FF&))
    
    'Call fnGGG(bbb, ccc, ddd, eee, aaa, mX(6), 5)
    bbb = bbb + ((ccc And ddd) Or ((Not ccc) And eee)) + mX(6) + &H7A6D76E9
    bbb = ((bbb * &H20&) Or (((bbb And &HF8000000) \ &H8000000) And &H1F&)) + aaa
    ddd = ((ddd * &H400&) Or (((ddd And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnGGG(aaa, bbb, ccc, ddd, eee, mX(4), 8)
    aaa = aaa + ((bbb And ccc) Or ((Not bbb) And ddd)) + mX(4) + &H7A6D76E9
    aaa = ((aaa * &H100&) Or (((aaa And &HFF000000) \ &H1000000) And &HFF&)) + eee
    ccc = ((ccc * &H400&) Or (((ccc And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnGGG(eee, aaa, bbb, ccc, ddd, mX(1), 11)
    eee = eee + ((aaa And bbb) Or ((Not aaa) And ccc)) + mX(1) + &H7A6D76E9
    eee = ((eee * &H800&) Or (((eee And &HFFE00000) \ &H200000) And &H7FF&)) + ddd
    bbb = ((bbb * &H400&) Or (((bbb And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnGGG(ddd, eee, aaa, bbb, ccc, mX(3), 14)
    ddd = ddd + ((eee And aaa) Or ((Not eee) And bbb)) + mX(3) + &H7A6D76E9
    ddd = ((ddd * &H4000&) Or (((ddd And &HFFFC0000) \ &H40000) And &H3FFF&)) + ccc
    aaa = ((aaa * &H400&) Or (((aaa And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnGGG(ccc, ddd, eee, aaa, bbb, mX(11), 14)
    ccc = ccc + ((ddd And eee) Or ((Not ddd) And aaa)) + mX(11) + &H7A6D76E9
    ccc = ((ccc * &H4000&) Or (((ccc And &HFFFC0000) \ &H40000) And &H3FFF&)) + bbb
    eee = ((eee * &H400&) Or (((eee And &HFFC00000) \ &H400000) And &H3FF&))
    
    'Call fnGGG(bbb, ccc, ddd, eee, aaa, mX(15), 6)
    bbb = bbb + ((ccc And ddd) Or ((Not ccc) And eee)) + mX(15) + &H7A6D76E9
    bbb = ((bbb * &H40&) Or (((bbb And &HFC000000) \ &H4000000) And &H3F&)) + aaa
    ddd = ((ddd * &H400&) Or (((ddd And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnGGG(aaa, bbb, ccc, ddd, eee, mX(0), 14)
    aaa = aaa + ((bbb And ccc) Or ((Not bbb) And ddd)) + mX(0) + &H7A6D76E9
    aaa = ((aaa * &H4000&) Or (((aaa And &HFFFC0000) \ &H40000) And &H3FFF&)) + eee
    ccc = ((ccc * &H400&) Or (((ccc And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnGGG(eee, aaa, bbb, ccc, ddd, mX(5), 6)
    eee = eee + ((aaa And bbb) Or ((Not aaa) And ccc)) + mX(5) + &H7A6D76E9
    eee = ((eee * &H40&) Or (((eee And &HFC000000) \ &H4000000) And &H3F&)) + ddd
    bbb = ((bbb * &H400&) Or (((bbb And &HFFC00000) \ &H400000) And &H3FF&))
    
    'Call fnGGG(ddd, eee, aaa, bbb, ccc, mX(12), 9)
    ddd = ddd + ((eee And aaa) Or ((Not eee) And bbb)) + mX(12) + &H7A6D76E9
    ddd = ((ddd * &H200&) Or (((ddd And &HFF800000) \ &H800000) And &H1FF&)) + ccc
    aaa = ((aaa * &H400&) Or (((aaa And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnGGG(ccc, ddd, eee, aaa, bbb, mX(2), 12)
    ccc = ccc + ((ddd And eee) Or ((Not ddd) And aaa)) + mX(2) + &H7A6D76E9
    ccc = ((ccc * &H1000&) Or (((ccc And &HFFF00000) \ &H100000) And &HFFF&)) + bbb
    eee = ((eee * &H400&) Or (((eee And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnGGG(bbb, ccc, ddd, eee, aaa, mX(13), 9)
    bbb = bbb + ((ccc And ddd) Or ((Not ccc) And eee)) + mX(13) + &H7A6D76E9
    bbb = ((bbb * &H200&) Or (((bbb And &HFF800000) \ &H800000) And &H1FF&)) + aaa
    ddd = ((ddd * &H400&) Or (((ddd And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnGGG(aaa, bbb, ccc, ddd, eee, mX(9), 12)
    aaa = aaa + ((bbb And ccc) Or ((Not bbb) And ddd)) + mX(9) + &H7A6D76E9
    aaa = ((aaa * &H1000&) Or (((aaa And &HFFF00000) \ &H100000) And &HFFF&)) + eee
    ccc = ((ccc * &H400&) Or (((ccc And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnGGG(eee, aaa, bbb, ccc, ddd, mX(7), 5)
    eee = eee + ((aaa And bbb) Or ((Not aaa) And ccc)) + mX(7) + &H7A6D76E9
    eee = ((eee * &H20&) Or (((eee And &HF8000000) \ &H8000000) And &H1F&)) + ddd
    bbb = ((bbb * &H400&) Or (((bbb And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnGGG(ddd, eee, aaa, bbb, ccc, mX(10), 15)
    ddd = ddd + ((eee And aaa) Or ((Not eee) And bbb)) + mX(10) + &H7A6D76E9
    ddd = ((ddd * &H8000&) Or (((ddd And &HFFFE0000) \ &H20000) And &H7FFF&)) + ccc
    aaa = ((aaa * &H400&) Or (((aaa And &HFFC00000) \ &H400000) And &H3FF&))
    
    'Call fnGGG(ccc, ddd, eee, aaa, bbb, mX(14), 8)
    ccc = ccc + ((ddd And eee) Or ((Not ddd) And aaa)) + mX(14) + &H7A6D76E9
    ccc = ((ccc * &H100&) Or (((ccc And &HFF000000) \ &H1000000) And &HFF&)) + bbb
    eee = ((eee * &H400&) Or (((eee And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnFFF(bbb, ccc, ddd, eee, aaa, mX(12), 8)
    bbb = bbb + (ccc Xor ddd Xor eee) + mX(12)
    bbb = ((bbb * &H100&) Or (((bbb And &HFF000000) \ &H1000000) And &HFF&)) + aaa
    ddd = ((ddd * &H400&) Or (((ddd And &HFFC00000) \ &H400000) And &H3FF&))
    
    'Call fnFFF(aaa, bbb, ccc, ddd, eee, mX(15), 5)
    aaa = aaa + (bbb Xor ccc Xor ddd) + mX(15)
    aaa = ((aaa * &H20&) Or (((aaa And &HF8000000) \ &H8000000) And &H1F&)) + eee
    ccc = ((ccc * &H400&) Or (((ccc And &HFFC00000) \ &H400000) And &H3FF&))
    
    'Call fnFFF(eee, aaa, bbb, ccc, ddd, mX(10), 12)
    eee = eee + (aaa Xor bbb Xor ccc) + mX(10)
    eee = ((eee * &H1000&) Or (((eee And &HFFF00000) \ &H100000) And &HFFF&)) + ddd
    bbb = ((bbb * &H400&) Or (((bbb And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnFFF(ddd, eee, aaa, bbb, ccc, mX(4), 9)
    ddd = ddd + (eee Xor aaa Xor bbb) + mX(4)
    ddd = ((ddd * &H200&) Or (((ddd And &HFF800000) \ &H800000) And &H1FF&)) + ccc
    aaa = ((aaa * &H400&) Or (((aaa And &HFFC00000) \ &H400000) And &H3FF&))
    
    'Call fnFFF(ccc, ddd, eee, aaa, bbb, mX(1), 12)
    ccc = ccc + (ddd Xor eee Xor aaa) + mX(1)
    ccc = ((ccc * &H1000&) Or (((ccc And &HFFF00000) \ &H100000) And &HFFF&)) + bbb
    eee = ((eee * &H400&) Or (((eee And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnFFF(bbb, ccc, ddd, eee, aaa, mX(5), 5)
    bbb = bbb + (ccc Xor ddd Xor eee) + mX(5)
    bbb = ((bbb * &H20&) Or (((bbb And &HF8000000) \ &H8000000) And &H1F&)) + aaa
    ddd = ((ddd * &H400&) Or (((ddd And &HFFC00000) \ &H400000) And &H3FF&))
    
    'Call fnFFF(aaa, bbb, ccc, ddd, eee, mX(8), 14)
    aaa = aaa + (bbb Xor ccc Xor ddd) + mX(8)
    aaa = ((aaa * &H4000&) Or (((aaa And &HFFFC0000) \ &H40000) And &H3FFF&)) + eee
    ccc = ((ccc * &H400&) Or (((ccc And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnFFF(eee, aaa, bbb, ccc, ddd, mX(7), 6)
    eee = eee + (aaa Xor bbb Xor ccc) + mX(7)
    eee = ((eee * &H40&) Or (((eee And &HFC000000) \ &H4000000) And &H3F&)) + ddd
    bbb = ((bbb * &H400&) Or (((bbb And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnFFF(ddd, eee, aaa, bbb, ccc, mX(6), 8)
    ddd = ddd + (eee Xor aaa Xor bbb) + mX(6)
    ddd = ((ddd * &H100&) Or (((ddd And &HFF000000) \ &H1000000) And &HFF&)) + ccc
    aaa = ((aaa * &H400&) Or (((aaa And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnFFF(ccc, ddd, eee, aaa, bbb, mX(2), 13)
    ccc = ccc + (ddd Xor eee Xor aaa) + mX(2)
    ccc = ((ccc * &H2000&) Or (((ccc And &HFFF80000) \ &H80000) And &H1FFF&)) + bbb
    eee = ((eee * &H400&) Or (((eee And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnFFF(bbb, ccc, ddd, eee, aaa, mX(13), 6)
    bbb = bbb + (ccc Xor ddd Xor eee) + mX(13)
    bbb = ((bbb * &H40&) Or (((bbb And &HFC000000) \ &H4000000) And &H3F&)) + aaa
    ddd = ((ddd * &H400&) Or (((ddd And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnFFF(aaa, bbb, ccc, ddd, eee, mX(14), 5)
    aaa = aaa + (bbb Xor ccc Xor ddd) + mX(14)
    aaa = ((aaa * &H20&) Or (((aaa And &HF8000000) \ &H8000000) And &H1F&)) + eee
    ccc = ((ccc * &H400&) Or (((ccc And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnFFF(eee, aaa, bbb, ccc, ddd, mX(0), 15)
    eee = eee + (aaa Xor bbb Xor ccc) + mX(0)
    eee = ((eee * &H8000&) Or (((eee And &HFFFE0000) \ &H20000) And &H7FFF&)) + ddd
    bbb = ((bbb * &H400&) Or (((bbb And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnFFF(ddd, eee, aaa, bbb, ccc, mX(3), 13)
    ddd = ddd + (eee Xor aaa Xor bbb) + mX(3)
    ddd = ((ddd * &H2000&) Or (((ddd And &HFFF80000) \ &H80000) And &H1FFF&)) + ccc
    aaa = ((aaa * &H400&) Or (((aaa And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnFFF(ccc, ddd, eee, aaa, bbb, mX(9), 11)
    ccc = ccc + (ddd Xor eee Xor aaa) + mX(9)
    ccc = ((ccc * &H800&) Or (((ccc And &HFFE00000) \ &H200000) And &H7FF&)) + bbb
    eee = ((eee * &H400&) Or (((eee And &HFFC00000) \ &H400000) And &H3FF&))

    'Call fnFFF(bbb, ccc, ddd, eee, aaa, mX(11), 11)
    bbb = bbb + (ccc Xor ddd Xor eee) + mX(11)
    bbb = ((bbb * &H800&) Or (((bbb And &HFFE00000) \ &H200000) And &H7FF&)) + aaa
    ddd = ((ddd * &H400&) Or (((ddd And &HFFC00000) \ &H400000) And &H3FF&))

    ddd = ddd + cc + mState(1)
    mState(1) = mState(2) + dd + eee
    mState(2) = mState(3) + ee + aaa
    mState(3) = mState(4) + aa + bbb
    mState(4) = mState(0) + bb + ccc
    mState(0) = ddd
End Sub

Private Function fnF(ByVal x As Long, ByVal y As Long, ByVal z As Long) As Long
    fnF = x Xor y Xor z
End Function

Private Function fnG(ByVal x As Long, ByVal y As Long, ByVal z As Long) As Long
    fnG = (x And y) Or ((Not x) And z)
End Function

Private Function fnH(ByVal x As Long, ByVal y As Long, ByVal z As Long) As Long
    fnH = (x Or (Not y)) Xor z
End Function

Private Function fnI(ByVal x As Long, ByVal y As Long, ByVal z As Long) As Long
    fnI = (x And z) Or (y And (Not z))
End Function

Private Function fnJ(ByVal x As Long, ByVal y As Long, ByVal z As Long) As Long
    fnJ = x Xor (y Or (Not z))
End Function

Private Sub fnFF(ByRef a As Long, ByVal b As Long, ByRef c As Long, ByVal d As Long, ByVal e As Long, ByVal x As Long, ByVal s As Long)
    a = Helper.UAdd(Helper.UAdd(a, fnF(b, c, d)), x)
    a = Helper.UAdd(LRotate(a, s), e)
    c = LRotate(c, 10)
End Sub

Private Sub fnGG(ByRef a As Long, ByVal b As Long, ByRef c As Long, ByVal d As Long, ByVal e As Long, ByVal x As Long, ByVal s As Long)
    a = Helper.UAdd(Helper.UAdd(Helper.UAdd(a, fnG(b, c, d)), x), &H5A827999)
    a = Helper.UAdd(LRotate(a, s), e)
    c = LRotate(c, 10)
End Sub

Private Sub fnHH(ByRef a As Long, ByVal b As Long, ByRef c As Long, ByVal d As Long, ByVal e As Long, ByVal x As Long, ByVal s As Long)
    a = Helper.UAdd(Helper.UAdd(Helper.UAdd(a, fnH(b, c, d)), x), &H6ED9EBA1)
    a = Helper.UAdd(LRotate(a, s), e)
    c = LRotate(c, 10)
End Sub

Private Sub fnII(ByRef a As Long, ByVal b As Long, ByRef c As Long, ByVal d As Long, ByVal e As Long, ByVal x As Long, ByVal s As Long)
    a = Helper.UAdd(Helper.UAdd(Helper.UAdd(a, fnI(b, c, d)), x), &H8F1BBCDC)
    a = Helper.UAdd(LRotate(a, s), e)
    c = LRotate(c, 10)
End Sub

Private Sub fnJJ(ByRef a As Long, ByVal b As Long, ByRef c As Long, ByVal d As Long, ByVal e As Long, ByVal x As Long, ByVal s As Long)
    a = Helper.UAdd(Helper.UAdd(Helper.UAdd(a, fnJ(b, c, d)), x), &HA953FD4E)
    a = Helper.UAdd(LRotate(a, s), e)
    c = LRotate(c, 10)
End Sub

Private Sub fnFFF(ByRef a As Long, ByVal b As Long, ByRef c As Long, ByVal d As Long, ByVal e As Long, ByVal x As Long, ByVal s As Long)
    a = Helper.UAdd(Helper.UAdd(a, fnF(b, c, d)), x)
    a = Helper.UAdd(LRotate(a, s), e)
    c = LRotate(c, 10)
End Sub

Private Sub fnGGG(ByRef a As Long, ByVal b As Long, ByRef c As Long, ByVal d As Long, ByVal e As Long, ByVal x As Long, ByVal s As Long)
    a = Helper.UAdd(Helper.UAdd(Helper.UAdd(a, fnG(b, c, d)), x), &H7A6D76E9)
    a = Helper.UAdd(LRotate(a, s), e)
    c = LRotate(c, 10)
End Sub

Private Sub fnHHH(ByRef a As Long, ByVal b As Long, ByRef c As Long, ByVal d As Long, ByVal e As Long, ByVal x As Long, ByVal s As Long)
    a = Helper.UAdd(Helper.UAdd(Helper.UAdd(a, fnH(b, c, d)), x), &H6D703EF3)
    a = Helper.UAdd(LRotate(a, s), e)
    c = LRotate(c, 10)
End Sub

Private Sub fnIII(ByRef a As Long, ByVal b As Long, ByRef c As Long, ByVal d As Long, ByVal e As Long, ByVal x As Long, ByVal s As Long)
    a = Helper.UAdd(Helper.UAdd(Helper.UAdd(a, fnI(b, c, d)), x), &H5C4DD124)
    a = Helper.UAdd(LRotate(a, s), e)
    c = LRotate(c, 10)
End Sub

Private Sub fnJJJ(ByRef a As Long, ByVal b As Long, ByRef c As Long, B