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.
Encryption source codes in VB
- z3r0aCc3Ss
- Fame ! Where are the chicks?!
- Posts: 700
- Joined: 23 Jun 2009, 16:00
- 14
- Contact:
Encryption source codes in VB
Beta tester for major RATs, all kinds of stealers and keyloggers.
Learning NMAP
Learning NMAP
- bad_brain
- Site Owner
- Posts: 11636
- Joined: 06 Apr 2005, 16:00
- 19
- Location: In your eye floaters.
- Contact:
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
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
- Fame ! Where are the chicks?!
- Posts: 700
- Joined: 23 Jun 2009, 16:00
- 14
- Contact:
- floodhound2
- ∑lectronic counselor
- Posts: 2117
- Joined: 03 Sep 2006, 16:00
- 17
- Location: 127.0.0.1
- Contact:
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