求RSA算法源代码（C#或者C），完整的我把分都给他

Question

RSA算法源代码，给个网站，我自己下也行，请附URL

Answer 1

tryhttp://www.cnblogs.com/midea0978/archive/2005/03/12/71484.html
http://csharpboard.com/

Answer 2

本来不需要的，我用C#的类，做了RSA的加解密程序，但是老师让我把那些打包程序全部做出来，我哭啊！真的无奈，有c#的源代码的话，我把另一个号上的100都给他，3Q

Answer 3

这儿有算法大全
http://www.vccode.com/file_show.php?id=2456

Answer 4

谁能提供我RSA算法.net的源码，十分感谢，送全分！

Answer 5

自己改成VB.net应该没什么问题一段在asp中加密与解密对应的函数 rsa.asp 
<% 
rem 在ASP中实现加密与解密,加密方法:根据RSA 
rem 联系:[email protected] 
Class clsRSA Public PrivateKey 
Public PublicKey 
Public Modulus 
   
   
   Public Function Crypt(pLngMessage, pLngKey) 
       On Error Resume Next 
       Dim lLngMod 
       Dim lLngResult 
       Dim lLngIndex 
       If pLngKey Mod 2 = 0 Then 
       lLngResult = 1 
        For lLngIndex = 1 To pLngKey / 2 
            lLngMod = (pLngMessage ^ 2) Mod Modulus 
            ' Mod may error on key generation 
            lLngResult = (lLngMod * lLngResult) Mod Modulus 
            If Err Then Exit Function 
        Next 
      Else 
        lLngResult = pLngMessage 
        For lLngIndex = 1 To pLngKey / 2 
            lLngMod = (pLngMessage ^ 2) Mod Modulus 
            On Error Resume Next 
            ' Mod may error on key generation 
            lLngResult = (lLngMod * lLngResult) Mod Modulus 
            If Err Then Exit Function 
        Next 
      End If 
      Crypt = lLngResult 
  End Function 
  Public Function Encode(ByVal pStrMessage) 
      Dim lLngIndex 
      Dim lLngMaxIndex 
      Dim lBytAscii 
      Dim lLngEncrypted 
      lLngMaxIndex = Len(pStrMessage) 
      If lLngMaxIndex = 0 Then Exit Function 
      For lLngIndex = 1 To lLngMaxIndex 
        lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 
        lLngEncrypted = Crypt(lBytAscii, PublicKey) 
        Encode = Encode & NumberToHex(lLngEncrypted, 4) 
      Next 
  End Function 
   
  Public Function Decode(ByVal pStrMessage) 
      Dim lBytAscii 
      Dim lLngIndex 
      Dim lLngMaxIndex 
      Dim lLngEncryptedData 
      Decode = "" 
      lLngMaxIndex = Len(pStrMessage) 
      For lLngIndex = 1 To lLngMaxIndex Step 4 
        lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 
        lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 
        Decode = Decode & Chr(lBytAscii) 
      Next 
  End Function 
   
  Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 
      NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 
  End Function   Private Function HexToNumber(ByRef pStrHex) 
      HexToNumber = CLng("&h" & pStrHex) 
  End Function End Class 
%> <% 
function Encryptstr(Message) 
Dim LngKeyE 
Dim LngKeyD 
Dim LngKeyN 
Dim StrMessage 
Dim ObjRSA 
'  LngKeyE = "32823" 
'  LngKeyD = "20643" 
'  LngKeyN = "29893" 
  LngKeyE = "22180" 
  LngKeyD = "10000" '12180
  LngKeyN = "29893" 
  StrMessage = Message 
   
  Set ObjRSA = New clsRSA 
   
  
        ObjRSA.PublicKey = LngKeyE 
        ObjRSA.Modulus = LngKeyN 
        Encryptstr = ObjRSA.Encode(StrMessage) 
  Set ObjRSA = Nothing 
end function function decryptstr(Message) 
Dim LngKeyE 
Dim LngKeyD 
Dim LngKeyN 
Dim StrMessage 
Dim ObjRSA 
'LngKeyE = "32823" 
'LngKeyD = "20643" 
'LngKeyN = "29893"   LngKeyE = "22180" 
  LngKeyD = "22180" '12180
  LngKeyN = "29893" 
  StrMessage = Message 
   
  Set ObjRSA = New clsRSA         ObjRSA.PrivateKey =LngKeyD 
        ObjRSA.Modulus=LngKeyN 
        decryptstr=ObjRSA.Decode(StrMessage) 
  Set ObjRSA = Nothing 
end function 
dim last,first 
first="sohu" 
Response.Write "加密前为:"&first  &"<br>"
last=Encryptstr(first) 
Response.Write "加密后为"&last 
Response.Write "解密后为" &decryptstr(last) %>