Dalam ASP, enkripsi dan dekripsi RSA diimplementasikan melalui kelas VBS.
Artikel ini memiliki dua dokumen komposisi
file demonstrasi tes test.asp
Clsrsa.asp mengimplementasikan file VBS untuk enkripsi dan dekripsi RSA
Berikut ini adalah kodenya:
1. Test.asp
<%
Judul Artikel REM: Menerapkan enkripsi dan dekripsi RSA melalui kelas VBS di ASP
Koleksi dan penyortiran REM: Yanek
Kontak REM: [Email Dilindungi]
%>
<%Opsi eksplisit%>
<!-#termasuk file = clsrsa.asp->
<%
redup lngkeye
redup lngkeyd
redup lngkeyn
redup strmessage
redup objrsa
Jika tidak meminta.Form = lalu
lngkeye = request.form (keyee)
lngkeyd = request.form (keyd)
lngkeyn = request.form (keyn)
strmessage = request.form (pesan)
atur objrsa = clsrsa baru
Pilih case request.form (Action)
Kasus menghasilkan kunci
Hubungi objrsa.genkey ()
lngkeye = objrsa.publickey
lngkeyd = objrsa.privatekey
lngkeyn = objrsa.modulus
enkripsi kasus
objrsa.publickey = lngkeye
objrsa.modulus = lngkeyn
Strmessage = objrsa.encode (strmessage)
Dekripsi Kasus
objrsa.privatekey = lngkeyd
objrsa.modulus = lngkeyn
Strmessage = objrsa.decode (strmessage)
Akhiri Pilih
atur objrsa = tidak ada
akhiri jika
%>
<Html>
<head>
<title> Demonstrasi Cipher RSA </title>
</head>
<body>
<H1> Demonstrasi Cipher RSA </h1>
<p>
Anda akan perlu menghasilkan pasangan kunci publik/privage Anda
Sebelum Anda dapat mengenkripsi/mendekripsi pesan.
</p>
<Metode form = post>
<able>
<tr>
<td> kunci publik </td>
<td> <input name = nilai kunci = <%= server.htmlencode (lngkeye)%>> </td>
<TD Rowspan = 3>
<Input Type = Kirim Nama = Nilai Tindakan = Hasilkan Kunci>
</td>
</tr>
<tr>
<td> Kunci pribadi </td>
& nbs