Overview |
The RSA algorithm was invented in 1978 by Ron Rivest, Adi Shamir, and Leonard Adleman. It is a public and private key cipher. This component is required for creating valid keys for the RSADLL encryption component. The component is limited to 40bit encryption. |
Methods/Properties |
Methods: |
- RSAKeyGen.GenerateKey()
- This method should be called to create e,n and d values, which are accessable via properties.
|
Properties: |
- RSAKeyGen.e
- Returns the 'e' value for the key.
|
- RSAKeyGen.n
- Returns the 'n' value for the key.
|
- RSAKeyGen.d
- Returns the 'd' value for the key.
|
Example |
Below is a demonstration of using the RSADLL component, using the RSADLLKeyGenerator component. |
<%
Dim RSA,RSAKeyGen,encryptedData,decryptedData
Dim e,d,n
Dim plaintext
Set RSA = Server.CreateObject("RSADLL.Crypt")
Set RSAKeyGen = Server.CreateObject("RSADLL1.KeyGen")
plaintext = "Good morning world"
RSAKeyGen.GenerateKey
encryptedData = RSA.Encrypt("plaintext",RSAKeyGen.e,RSAKeyGen.n)
decryptedData = RSA.DeCrypt(encryptedData,RSAKeyGen.d,RSAKeyGen.n)
Response.Write "Encrypting " & plaintext & "<BR>"
Response.Write "Encrypted: " & encryptedData & "<BR>"
Response.Write "Decrypted: " & decryptedData
%> |
|