主頁 > 知識庫 > 在asp中通過vbs類實現(xiàn)rsa加密與解密的代碼

在asp中通過vbs類實現(xiàn)rsa加密與解密的代碼

熱門標(biāo)簽:外呼回撥系統(tǒng)圖片 離線電子地圖標(biāo)注軟件注冊 企數(shù)外呼系統(tǒng)能用多久 辦理400電話一年多少錢 為什么外呼系統(tǒng)需要預(yù)存話費呢 常用地圖標(biāo)注范圍點 咸陽銷售外呼系統(tǒng) 寧夏怎么申請400電話 蘭州智能語音電銷機器人功能
在asp中通過vbs類實現(xiàn)rsa加密與解密,建議入精華

本文章有兩文件組成
test.asp 測試演示文件
clsrsa.asp 實現(xiàn)rsa加密與解密的vbs類文件
下面是代碼:

1. test.asp 

復(fù)制代碼 代碼如下:


rem 文章標(biāo)題:在asp中通過vbs類實現(xiàn)rsa加密與解密 
rem 收集整理:yanek 
rem 聯(lián)系:aspboy@263.net 

%> 
%Option Explicit%> 
!--#INCLUDE FILE="clsRSA.asp"--> 


Dim LngKeyE 
Dim LngKeyD 
Dim LngKeyN 
Dim StrMessage 
Dim ObjRSA 
If Not Request.Form = "" Then 

    LngKeyE = Request.Form("KeyE") 
    LngKeyD = Request.Form("KeyD") 
    LngKeyN = Request.Form("KeyN") 
    StrMessage = Request.Form("Message") 

    Set ObjRSA = New clsRSA 

    Select Case Request.Form("Action") 
        Case "Generate Keys" 
            Call ObjRSA.GenKey() 
            LngKeyE = ObjRSA.PublicKey 
            LngKeyD = ObjRSA.PrivateKey 
            LngKeyN = ObjRSA.Modulus 
        Case "Encrypt" 
            ObjRSA.PublicKey = LngKeyE 
            ObjRSA.Modulus = LngKeyN 
            StrMessage = ObjRSA.Encode(StrMessage) 
        Case "Decrypt" 
            ObjRSA.PrivateKey = LngKeyD 
            ObjRSA.Modulus = LngKeyN 
            StrMessage = ObjRSA.Decode(StrMessage) 
    End Select 

    Set ObjRSA = Nothing 

End If 
%> 
HTML> 
    HEAD> 
        TITLE>RSA Cipher Demonstration/TITLE> 
    /HEAD> 
    BODY> 
        H1>RSA Cipher Demonstration/H1> 
        P> 
            You will first need to generate your public/privage key-pair 
            before you can encrypt/decrypt messages. 
        /P> 
        FORM method="post"> 
            TABLE> 
                TR> 
                    TD>Public Key/TD> 
                    TD>INPUT name="KeyE" value="%=Server.HTMLEncode(LngKeyE)%>">/TD> 
                    TD rowspan="3"> 
                        INPUT type="Submit" name="Action" value="Generate Keys"> 
                    /TD> 
                /TR> 
                TR> 
                    TD>Private Key/TD> 
                    TD>INPUT name="KeyD" value="%=Server.HTMLEncode(LngKeyD)%>">/TD> 
                /TR> 
                TR> 
                    TD>Modulus/TD> 
                    TD>INPUT name="KeyN" value="%=Server.HTMLEncode(LngKeyN)%>">/TD> 
                /TR> 
                TR> 
                    TD colspan="3"> 
                        Test Message:BR> 
                        TEXTAREA name="Message" cols="50" rows="7">%=Server.HTMLEncode(StrMessage)%>/TEXTAREA> 
                    /TD> 
                /TR> 
                TR> 
                    TD align="right" colspan="3"> 
                        INPUT type="Submit" name="Action" value="Encrypt"> 
                        INPUT type="Submit" name="Action" value="Decrypt"> 
                    /TD> 
                /TR> 
            /TABLE> 
        /FORM> 
            /BODY> 
/HTML> 
    


clsrsa.asp  

復(fù)制代碼 代碼如下:


rem 實現(xiàn)rsa加密與解密的vbs類文件 
rem 文章標(biāo)題:在asp中通過vbs類實現(xiàn)rsa加密與解密 
rem 收集整理:yanek 
rem 聯(lián)系:aspboy@263.net 

' RSA Encryption Class 

' .PrivateKey 
'        Your personal private key.  Keep this hidden. 

' .PublicKey 
'        Key for others to encrypt data with. 

' .Modulus 
'        Used with both public and private keys when encrypting 
'        and decrypting data. 

' .GenKey() 
'        Creates Public/Private key set and Modulus 

' .Crypt(pLngMessage, pLngKey)   
'        Encrypts/Decrypts message and returns  
'        as a string. 

' .Encode(pStrMessage) 
'        Encrypts message and returns in double-hex format 

' .Decode(pStrMessage) 
'        Decrypts message from double-hex format and returns a string 

Class clsRSA 

    Public PrivateKey 
    Public PublicKey 
    Public Modulus 

    Public Sub GenKey() 
        Dim lLngPhi 
        Dim q 
        Dim p 

        Randomize 

        Do 
            Do 

                ' 2 random primary numbers (0 to 1000) 
                Do 
                    p = Rnd * 1000 \&;1 
                Loop While Not IsPrime(p) 

                Do 
                    q = Rnd * 1000 \&;1 
                Loop While Not IsPrime(q) 

                 
                ' n = product of 2 primes 
                Modulus = p * q \&;1 

                ' random decryptor (2 to n) 
                PrivateKey = Rnd * (Modulus - 2) \&;1 + 2 

                lLngPhi = (p - 1) * (q - 1) \&;1 
                PublicKey = Euler(lLngPhi, PrivateKey) 

            Loop While PublicKey = 0 Or PublicKey = 1 

        ' Loop if we can't crypt/decrypt a byte     
        Loop While Not TestCrypt(255) 

    End Sub 

    Private Function TestCrypt(ByRef pBytData) 
        Dim lStrCrypted 
        lStrCrypted = Crypt(pBytData, PublicKey) 
        TestCrypt = Crypt(lStrCrypted, PrivateKey) = pBytData 
    End Function 

    Private Function Euler(ByRef pLngPHI, ByRef pLngKey) 

        Dim lLngR(3) 
        Dim lLngP(3) 
        Dim lLngQ(3) 

        Dim lLngCounter 
        Dim lLngResult 

        Euler = 0 

        lLngR(1) = pLngPHI: lLngR(0) = pLngKey 
        lLngP(1) = 0: lLngP(0) = 1 
        lLngQ(1) = 2: lLngQ(0) = 0 

        lLngCounter = -1 

        Do Until lLngR(0) = 0 

            lLngR(2) = lLngR(1): lLngR(1) = lLngR(0) 
            lLngP(2) = lLngP(1): lLngP(1) = lLngP(0) 
            lLngQ(2) = lLngQ(1): lLngQ(1) = lLngQ(0) 

            lLngCounter = lLngCounter + 1 

            lLngR(0) = lLngR(2) Mod lLngR(1) 
            lLngP(0) = ((lLngR(2)\lLngR(1)) * lLngP(1)) + lLngP(2) 
            lLngQ(0) = ((lLngR(2)\lLngR(1)) * lLngQ(1)) + lLngQ(2) 

        Loop 

        lLngResult = (pLngKey * lLngP(1)) - (pLngPHI * lLngQ(1)) 

        If lLngResult > 0 Then 
            Euler = lLngP(1) 
        Else 
            Euler = Abs(lLngP(1)) + pLngPHI 
        End If 

    End Function 

    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 

    Private Function IsPrime(ByRef pLngNumber) 
        Dim lLngSquare 
        Dim lLngIndex 
        IsPrime = False 
        If pLngNumber  2 Then Exit Function 
        If pLngNumber Mod 2 = 0 Then Exit Function 
        lLngSquare = Sqr(pLngNumber) 
        For lLngIndex = 3 To lLngSquare Step 2 
            If pLngNumber Mod lLngIndex = 0 Then Exit Function 
        Next 
        IsPrime = True 
    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 
%> 
演示地址:http://www.cnaspol.com/myrsa/test.asp
您可能感興趣的文章:
  • c# rsa注冊實現(xiàn)加密文字
  • java加密算法分享(rsa解密、對稱加密、md5加密)
  • 使用openssl實現(xiàn)rsa非對稱加密算法示例
  • python使用rsa加密算法模塊模擬新浪微博登錄
  • rsa加密算法使用示例分享
  • 在ASP.Net中實現(xiàn)RSA加密的方法
  • android md5加密與rsa加解密實現(xiàn)代碼
  • PHP+JS+rsa數(shù)據(jù)加密傳輸實現(xiàn)代碼
  • 關(guān)于firefox的ElementTraversal 接口 使用說明
  • 安全技術(shù)—RSA公鑰密碼體制安全性分析
  • 基于私鑰加密公鑰解密的RSA算法C#實現(xiàn)方法

標(biāo)簽:麗江 鐵嶺 昌都 泰州 咸陽 家電維修 溫州 昆明

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《在asp中通過vbs類實現(xiàn)rsa加密與解密的代碼》,本文關(guān)鍵詞  在,asp,中,通過,vbs,類,實現(xiàn),;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《在asp中通過vbs類實現(xiàn)rsa加密與解密的代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于在asp中通過vbs類實現(xiàn)rsa加密與解密的代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章