Şifrelerinizi korumak için yazılmış bir uygulama. orjinal şifreye sadık kalarak bir yöntemle bu şifrenin karıştırılıp başkaları tarafından okunmasını engeller

<%
function Encrypt(Text,Password)
Dim TextCharCode, PasswordCharCode, NewCharCode

For Char = 1 To LEN(Text)
TextCharCode = ASC(MID(Text,Char,1))
PasswordCharCode = ASC(MID(Password,(Char MOD LEN(Password) + 1),1))
NewCharCode = TextCharCode + PasswordCharCode
if NewCharCode > 255 Then NewCharCode = NewCharCode -255

Encrypt = Encrypt & CHR(NewCharCode)
NEXT
End function

function Decrypt(Code,Password)
Dim CodeCharCode, PasswordCharCode, OriginalCharCode

For Char = 1 To LEN(Code)
CodeCharCode = ASC(MID(Code,Char,1))

PasswordCharCode = ASC(MID(Password,(Char MOD LEN(Password) + 1),1))
OriginalCharCode = CodeCharCode - PasswordCharCode

if OriginalCharCode < 1 Then OriginalCharCode = OriginalCharCode + 255

Decrypt = Decrypt & CHR(OriginalCharCode)
NEXT
End function
%>