<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Security.Cryptography" %>
<%
Dim objDSA As New DSACryptoServiceProvider()
Response.Write( "Private Key:
" )
Response.Write( Server.HTMLEncode( objDSA.ToXmlString( True ) ) )
Response.Write( "Public Key:
" )
Response.Write( Server.HTMLEncode( objDSA.ToXmlString( False ) ) )
%>