Menerapkan enkripsi dan dekripsi RSA melalui kelas VBS di ASP, disarankan untuk memasuki esensi
Artikel ini terdiri dari dua dokumen
file demo tes test.asp
clsrsa.asp mengimplementasikan file enkripsi dan dekripsi VBS RSA
Ini kodenya:
1. Test.asp
Salinan kode adalah sebagai berikut:
<%
Judul Artikel REM: Menerapkan enkripsi dan dekripsi RSA melalui kelas VBS di ASP
Koleksi dan penyortiran REM: Yanek
REM Kontak: [email protected]
%>
<%OptionExplicit%>
<!-#includeFile = "clsrsa.asp"->
<%
DIMLNGKEYE
DIMLNGKEYD
DIMLNGKEYN
Dimstrmessage
Dimobjrsa
IfnotRequest.Form = "" lalu
Lngkeye = request.form ("keye")
Lngkeyd = request.form ("keyd")
Lngkeyn = request.form ("keyn")
Strmessage = request.form ("pesan")
Setobjrsa = newclsrsa
SfectCaserequest.form ("action")
Kasus "generateKeys"
Callobjrsa.genkey ()
Lngkeye = objrsa.publickey
Lngkeyd = objrsa.privatekey
Lngkeyn = objrsa.modulus
Kasus "enkripsi"
Objrsa.publickey = lngkeye
Objrsa.modulus = lngkeyn
Strmessage = objrsa.encode (strmessage)
Kasus "dekripsi"
Objrsa.privatekey = lngkeyd
Objrsa.modulus = lngkeyn
Strmessage = objrsa.decode (strmessage)
Endselect
Setobjrsa = tidak ada
Endif
%>
<Html>
<head>
<title> rsacipherdemonstration </iteme>