RSADLL manual.

Overview
The RSA algorithm was invented in 1978 by Ron Rivest, Adi Shamir, and Leonard Adleman. It is a public and private key cipher. The component includes an example of a public and private key, the seperate RSADLLKeyMaker component is required for creating valid keys. The component is limited to 40bit encryption.
Methods/Properties
Methods:
RSA.DeCrypt(Inp As String,d As Long,n As Long)
Returns a string with the decrypted value.
RSA.Encrypt(Inp As String,e As Long,n As Long)
Returns a string with the encrypted value.
Properties:
No properties.
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
%>
© sloppycode.net 2001