<%
'ASP يقوم بتشغيل EncryptText()
'strEncryptionKey: قم بتكوين مفتاح التشفير، وحدد مفتاح التشفير مرة أخرى
'strTextToEncrypt: اختر اسم المستخدم
وظيفة EncryptText (ByVal strEncryptionKey، ByVal strTextToEncrypt)
خافت الخارجي، الداخلي، مفتاح، strTemp
للخارجي = 1 إلى Len(strEncryptionKey)
مفتاح = تصاعدي (منتصف (strEncryptionKey، الخارجي، 1))
للداخلية = 1 إلى Len(strTextToEncrypt)
strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, الداخلي, 1)) مفتاح Xor)
مفتاح = (مفتاح + لين (strEncryptionKey)) وزارة الدفاع 256
التالي
strTextToEncrypt = strTemp
سترتيمب = ""
التالي
EncryptText = strTextToEncrypt
وظيفة النهاية
%>
لا داعي للقلق بشأن ما إذا كان الأمر كذلك أم لا.