تنفيذ تشفير RSA وفك التشفير من خلال فئة VBS في ASP ، يوصى بدخول الجوهر
تتكون هذه المقالة من وثيقة
Test.asp Test Demo File
CLSRSA.ASP ينفذ ملف تشفير RSA وفك التشفير VBS
ها هو الرمز:
1.Test.asp
نسخة الكود كما يلي:
<٪
عنوان المقالة REM: تنفيذ تشفير RSA وفك التشفير من خلال فئة VBS في ASP
مجموعة REM والفرز: يانيك
REM Contact: [email protected]
٪>
<٪ OptionExplicit ٪>
<!-#includefile = "clsrsa.asp"->
<٪
Dimlngkeye
Dimlngkeyd
Dimlngkeyn
Dimstrmessage
Dimobjrsa
ifnotrequest.form = "" ثم
lngkeye = request.form ("keye")
lngkeyd = request.form ("keyd")
lngkeyn = request.form ("keyn")
strmessage = request.form ("رسالة")
setobjrsa = newclsrsa
SelectCasereQuest.form ("Action")
حالة "commeratekeys"
CallObjrsa.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)
endselect
setobjrsa = لا شيء
Endif
٪>
<html>
<head>
<title> rsacipherdemonstration </title>