ASP XOR 암호화 함수

이 함수는 입력된 텍스트를 주어진 키로 XOR 연산하여 암호화하거나 복호화합니다. XOR 암호화는 매우 기본적인 암호화 방식으로, 실제 보안이 필요한 애플리케이션에는 적합하지 않습니다. AES와 같은 고급 암호화 알고리즘을 사용하는 것이 보안을 위해 필수적입니다.

<%
Function XOR_EncryptDecrypt(inputText, key)
    Dim i, result
    result = ""

    For i = 1 To Len(inputText)
        result = result & Chr(Asc(Mid(inputText, i, 1)) Xor key)
    Next

    XOR_EncryptDecrypt = result
End Function

Dim originalText, encryptedText, decryptedText, key
originalText = "Hello, World!"
key = 123 ' XOR 키 (예시)

' 암호화
encryptedText = XOR_EncryptDecrypt(originalText, key)
Response.Write "Encrypted Text: " & Server.HTMLEncode(encryptedText) & "<br>"

' 복호화
decryptedText = XOR_EncryptDecrypt(encryptedText, key)
Response.Write "Decrypted Text: " & Server.HTMLEncode(decryptedText)
%>