ใน ASP การเข้ารหัส RSA และการถอดรหัสจะถูกนำไปใช้ผ่านคลาส VBS
บทความนี้มีองค์ประกอบสองเอกสาร
test.asp การทดสอบไฟล์สาธิต
CLSRSA.ASP ใช้ไฟล์ VBS สำหรับการเข้ารหัส RSA และการถอดรหัส
ต่อไปนี้เป็นรหัส:
1. test.asp
-
ชื่อบทความ REM: ใช้การเข้ารหัส RSA และการถอดรหัสผ่านคลาส VBS ใน ASP
คอลเลกชันและการเรียงลำดับ REM: Yanek
REM ติดต่อ: [อีเมลป้องกัน]
-
<%ตัวเลือกชัดเจน%>
<!-#รวมไฟล์ = clsrsa.asp->
-
สลัว lngkeye
สลัว lngkeyd
สลัว lngkeyn
สลัว strmessage
dim objrsa
หากไม่ได้ร้องขอ form = จากนั้น
lngkeye = request.form (keyee)
lngkeyd = request.form (keyd)
lngkeyn = request.form (keyn)
strMessage = request.form (ข้อความ)
ตั้งค่า OBJRSA = CLSRSA ใหม่
เลือก case request.form (การดำเนินการ)
เคสสร้างคีย์
เรียก objrsa.genkey ()
lngkeye = objrsa.publickey
lngkeyd = objrsa.privatekey
lngkeyn = objrsa.modulus
เข้ารหัสกรณี
objrsa.publickey = lngkeye
objrsa.modulus = lngkeyn
strMessage = objrsa.encode (strMessage)
ถอดรหัสเคส
objrsa.privatekey = lngkeyd
objrsa.modulus = lngkeyn
strMessage = objrsa.decode (strMessage)
สิ้นสุดเลือก
ตั้งค่า objrsa = ไม่มีอะไร
สิ้นสุดถ้า
-
<html>
<head>
<title> การสาธิต RSA Cipher </title>
</head>
<body>
<H1> การสาธิต RSA Cipher </h1>
<p>
คุณจะต้องสร้างคู่กุญแจคู่และความเป็นส่วนตัวของคุณ
ก่อนที่คุณจะสามารถเข้ารหัส/ถอดรหัสข้อความ
</p>
<วิธีการฟอร์ม = โพสต์>
<table>
<tr>
<td> คีย์สาธารณะ </td>
<td> <ชื่ออินพุต = ค่าคีย์ = <%= server.htmlencode (lngkeye)%>> </td>
<td rowspan = 3>
<ประเภทอินพุต = ส่งชื่อ = ค่าการกระทำ = สร้างคีย์>
</td>
</tr>
<tr>
<td> คีย์ส่วนตัว </td>
& NBS