-
'ASP เข้ารหัสข้อความ ()
'strEncryptionKey: 加密key字符串, 用以区别不同模块加密算法
'strTextToEncrypt:欲加密字符串
ฟังก์ชั่น EncryptText (ByVal strEncryptionKey, ByVal strTextToEncrypt)
หรี่ด้านนอก, ด้านใน, คีย์, strTemp
สำหรับด้านนอก = 1 ถึง Len (strEncryptionKey)
คีย์ = Asc (กลาง (strEncryptionKey, ด้านนอก, 1))
สำหรับภายใน = 1 ถึง Len(strTextToEncrypt)
strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, ภายใน, 1)) คีย์ Xor)
คีย์ = (คีย์ + Len (strEncryptionKey)) Mod 256
ต่อไป
strTextToEncrypt = strTemp
strTemp = ""
ต่อไป
EncryptText = strTextToEncrypt
ฟังก์ชันสิ้นสุด
-
在对密码安全性要求较高的程序中，建议不要采用该函数算法。