安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

VB VBA ASP均可使用的通用Rsa?#29992;?#21644;对应的解密函数

2017-09-19 09:17:00
网络
转贴
646

以下为在VB VBA ASP均可使用的通用Rsa?#29992;?#21644;对应的解密函数

先建立一个类模块 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 
再建立一个模块,放置如下VBA代码



function Encryptstr(Message) 
Dim LngKeyE 
Dim LngKeyD 
Dim LngKeyN 
Dim StrMessage 
Dim ObjRSA 


  LngKeyE = "32823" 
  LngKeyD = "20643" 
  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" 
  StrMessage = Message 
   
  Set ObjRSA = New clsRSA 

      ObjRSA.PrivateKey =LngKeyD 
      ObjRSA.Modulus=LngKeyN 
      decryptstr=ObjRSA.Decode(StrMessage) 
  Set ObjRSA = Nothing 
end function 
然后就可以使用这个?#29992;?解密函数了


使用的测?#28304;?#30721;


dim strSrc,strDes
strSrc="sohu" 
Msgbox "?#29992;?#21069;为:"& strSrc
strDes=Encryptstr(strSrc) 
Msgbox  "?#29992;?#21518;为"& strDes
Msgbox "解密后为" &decryptstr(strDes) 
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
内存占用:7.75MB
PHP 执行时间:0.13
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假