Sifrelerinizi korumak için yazilmis bir uygulama. orjinal sifreye sadik kalarak bir yöntemle bu sifrenin karistirilip baskalari tarafindan okunmasini engeller.
Kod:
<%
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
%>