100分悬赏rc2加密算法

Question

用vb 6.0实现 rc2加密算法 作成动态连接库。要求提供原码

Answer 1

我用DES加密，不知对你有无帮助：
'密码DES加密保存
Public Sub PassEncrSave(ByVal PassStr As String, ByVal ManNo As String, ByVal TempLogin As String, ByVal AllorOnly As Boolean)
Dim PassEn%
     BinPPstr = PassStr
    PassEn% = ic_encrypt("我的密匙1234" & ManNo, BinPPstr, 200, BinPassT(0))
     If PassEn% < 0 Then
     MsgBox "登录密码设置失败！联系管理员！", vbSystemModal + vbCritical + vbOKOnly
     Else
        Open TempLogin For Binary Access Write As #1
        Put #1, , BinPassT()
        Close #1
   
        Set Photostm = New ADODB.Stream
           With Photostm
                 .Type = adTypeBinary
                 .Open
                 .LoadFromFile TempLogin
            End With
        ConData.BeginTrans
        If AllorOnly = True Then '权限设计窗
        HsysMSys.Fields(3) = Photostm.Read
        HsysMSys.Update
       ElseIf AllorOnly = False Then '密码修改窗
        SysMang.Fields(3) = Photostm.Read
        SysMang.Update
        End If
        ConData.CommitTrans
        Set Photostm = Nothing
        
If AllorOnly = False Then MsgBox "登录密码修改成功！" & Chr(13) & Chr(13) & "下次登录请用新密码 ！", vbSystemModal + vbInformation
     End If
End Sub

Answer 2

http://cache.baidu.com/c?word=rc2%3B%BC%D3%C3%DC%3B%CB%E3%B7%A8%2Cvb&url=http%3A//www%2E5iaspx%2Ecom/cnet/RC2%2DJiaMiSuanFaZai%2DC%2DDeYingYong%2DKuanShanBan%2D8eay0207%5F4%2Ehtml&p=9d769a44d48511a05cead326460791&user=baidu

Answer 3

我要的是VB代码,在vb6.0下面可以运行的,使用也要尽量简单,只需三个入口参数就能返回密文.要是写出来的话可以再加100分.请大家帮我解决一下这个问题.要是谁能给我讲清楚rc2算法也可以,同样有惊喜咯

Answer 4

'RC4 Encryption/Decryption Class
'------------------------------------
'
'Information concerning the RC4
'algorithm can be found at:
'http://www.rsasecurity.com/rsalabs/faq/3-6-3.html
'
'(c) 2000, Fredrik Qvarfort
'Option Explicit'For progress notifications
Event Progress(Percent As Long)'Key-dependant data
Private m_Key As String
Private m_sBox(0 To 255) As IntegerPrivate Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Sub EncryptFile(SourceFile As String, DestFile As String, Optional Key As String)  Dim Filenr As Integer
  Dim ByteArray() As Byte
  
  'Make sure the source file do exist
  If (Not FileExist(SourceFile)) Then
    Call Err.Raise(vbObjectError, , "Error in Skipjack EncryptFile procedure (Source file does not exist).")
    Exit Sub
  End If
  
  'Open the source file and read the content
  'into a bytearray to pass onto encryption
  Filenr = FreeFile
  Open SourceFile For Binary As #Filenr
  ReDim ByteArray(0 To LOF(Filenr) - 1)
  Get #Filenr, , ByteArray()
  Close #Filenr
  
  'Encrypt the bytearray
  Call EncryptByte(ByteArray(), Key)  'If the destination file already exist we need
  'to delete it since opening it for binary use
  'will preserve it if it already exist
  If (FileExist(DestFile)) Then Kill DestFile
  
  'Store the encrypted data in the destination file
  Filenr = FreeFile
  Open DestFile For Binary As #Filenr
  Put #Filenr, , ByteArray()
  Close #FilenrEnd Sub
Public Sub DecryptFile(SourceFile As String, DestFile As String, Optional Key As String)  Dim Filenr As Integer
  Dim ByteArray() As Byte
  
  'Make sure the source file do exist
  If (Not FileExist(SourceFile)) Then
    Call Err.Raise(vbObjectError, , "Error in Skipjack EncryptFile procedure (Source file does not exist).")
    Exit Sub
  End If
  
  'Open the source file and read the content
  'into a bytearray to decrypt
  Filenr = FreeFile
  Open SourceFile For Binary As #Filenr
  ReDim ByteArray(0 To LOF(Filenr) - 1)
  Get #Filenr, , ByteArray()
  Close #Filenr
  
  'Decrypt the bytearray
  Call DecryptByte(ByteArray(), Key)  'If the destination file already exist we need
  'to delete it since opening it for binary use
  'will preserve it if it already exist
  If (FileExist(DestFile)) Then Kill DestFile  'Store the decrypted data in the destination file
  Filenr = FreeFile
  Open DestFile For Binary As #Filenr
  Put #Filenr, , ByteArray()
  Close #FilenrEnd SubPublic Sub DecryptByte(ByteArray() As Byte, Optional Key As String)  'The same routine is used for encryption as well
  'decryption so why not reuse some code and make
  'this class smaller (that is it it wasn't for all
  'those damn comments ;))
  Call EncryptByte(ByteArray(), Key)End SubPublic Function EncryptString(Text As String, Optional Key As String) As String  Dim ByteArray() As Byte
 
  'Convert the data into a byte array
  ByteArray() = StrConv(Text, vbFromUnicode)
  
  'Encrypt the byte array
  Call EncryptByte(ByteArray(), Key)
  
  'Convert the byte array back into a string
  EncryptString = StrConv(ByteArray(), vbUnicode)
  
End FunctionPublic Function DecryptString(Text As String, Optional Key As String) As String  Dim ByteArray() As Byte
 
  'Convert the data into a byte array
  ByteArray() = StrConv(Text, vbFromUnicode)
  
  'Decrypt the byte array
  Call DecryptByte(ByteArray(), Key)
  
  'Convert the byte array back into a string
  DecryptString = StrConv(ByteArray(), vbUnicode)
  
End Function
Public Sub EncryptByte(ByteArray() As Byte, Optional Key As String)  Dim i As Long
  Dim j As Long
  Dim Temp As Byte
  Dim Offset As Long
  Dim OrigLen As Long
  Dim CipherLen As Long
  Dim CurrPercent As Long
  Dim NextPercent As Long
  Dim sBox(0 To 255) As Integer
  
  'Set the new key (optional)
  If (Len(Key) > 0) Then Me.Key = Key
  
  'Create a local copy of the sboxes, this
  'is much more elegant than recreating
  'before encrypting/decrypting anything
  Call CopyMem(sBox(0), m_sBox(0), 512)
  
  'Get the size of the source array
  OrigLen = UBound(ByteArray) + 1
  CipherLen = OrigLen
  
  'Encrypt the data
  For Offset = 0 To (OrigLen - 1)
    i = (i + 1) Mod 256
    j = (j + sBox(i)) Mod 256
    Temp = sBox(i)
    sBox(i) = sBox(j)
    sBox(j) = Temp
    ByteArray(Offset) = ByteArray(Offset) Xor (sBox((sBox(i) + sBox(j)) Mod 256))
    
    'Update the progress if neccessary
    If (Offset >= NextPercent) Then
      CurrPercent = Int((Offset / CipherLen) * 100)
      NextPercent = (CipherLen * ((CurrPercent + 1) / 100)) + 1
      RaiseEvent Progress(CurrPercent)
    End If
  Next  'Make sure we return a 100% progress
  If (CurrPercent <> 100) Then RaiseEvent Progress(100)End SubPublic Property Let Key(New_Value As String)  Dim a As Long
  Dim b As Long
  Dim Temp As Byte
  Dim Key() As Byte
  Dim KeyLen As Long
  
  'Do nothing if the key is buffered
  If (m_Key = New_Value) Then Exit Property
  
  'Set the new key
  m_Key = New_Value
  
  'Save the password in a byte array
  Key() = StrConv(m_Key, vbFromUnicode)
  KeyLen = Len(m_Key)
  
  'Initialize s-boxes
  For a = 0 To 255
    m_sBox(a) = a
  Next a
  For a = 0 To 255
    b = (b + m_sBox(a) + Key(a Mod KeyLen)) Mod 256
    Temp = m_sBox(a)
    m_sBox(a) = m_sBox(b)
    m_sBox(b) = Temp
  Next
  
End Property

Answer 5

一楼的同学说的很对，.net带了相关的库。用.net写好了相关的类之后做成组件，然后就可以直接调用了。不过需要注册的咯。