Encryption source codes in VB

[z3r0aCc3Ss]

I need some encryption algorithm source codes, like RIPEMD, Blowfish, etc...
Can anyone get me the source in VB?
Also, are there any additional OCX required? I am already using Chilkat Crypt ActiveX. But I don't know how to use it fully.
Pls help somebody.

[bad_brain]

check here for Blowfish:
http://www.schneier.com/blowfish-download.html

haven't found much about other algorithms in context with VB, but this one might interest you:
http://support.microsoft.com/kb/821762

[z3r0aCc3Ss]

Yea, thanx BB. I hv seen that.
I hv blowfish, twofish, aes, serpent and many more... But getting many difficulties setting up correct ActiveX.

[DNR]

http://www.freevbcode.com/ShowCode.asp?ID=4398 for RC4 Encryption in VB

DNR

[floodhound2]

Well not sure what you want to encrypt. Files folders etc... but check this out

Code: Select all

Public Function encrypt(Message As String) As String

    Randomize
    On Error Goto errorcheck
    Dim tempmessage As String
    Dim basea As Integer
    Dim tempbasea As String
    Message = Reverse_String(Message)
    tempmessage = CStr(Message)
    basea = Int(Rnd * 75) + 25


    If basea < 0 Then
        tempbasea = CStr(basea)
        tempbasea = Right(tempbasea, Len(tempbasea) - 1)
        basea = CInt(tempbasea)
    End If

    basea = basea / 2
    encrypt = CStr(basea) + ";"


    For x = 1 To Len(tempmessage)
        encrypt = encrypt + CStr(Asc(Left(tempmessage, x)) - basea) + ";"
        basea = basea + 1
        tempmessage = Right(tempmessage, Len(tempmessage) - 1)
    Next x

    errorcheck:
End Function

Public Function decrypt(code As String) As String

    On Error Goto errorcheck
    Dim basea As Integer
    Dim tempcode As String


    Do Until Left(code, 1) = ";"
        tempcode = tempcode + Left(code, 1)
        code = Right(code, Len(code) - 1)
    Loop

    basea = CInt(tempcode)
    tempcode = ""
    code = Right(code, Len(code) - 1)


    Do Until code = ""

        Do Until Left(code, 1) = ";"
            tempcode = tempcode + Left(code, 1)
            code = Right(code, Len(code) - 1)
        Loop

        decrypt = decrypt + Chr(CLng(tempcode) + basea)
        code = Right(code, Len(code) - 1)
        tempcode = ""
        basea = basea + 1
    Loop

    decrypt = Reverse_String(decrypt)
    errorcheck:
End Function

Public Function Reverse_String(Message As String) As String

    For x = 1 To Len(Message)
        Reverse_String = Reverse_String + Left(Right(Message, x), 1)
    Next x

End Function