한글도되는 인코딩, 디코딩 소스(ASP)

<% Const sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" Function DeCode64(ByVal asContents) Dim lsResult Dim lnPosition Dim lsGroup64, lsGroupBinary Dim Char1, Char2, Char3, Char4 Dim Byte1, Byte2, Byte3 If Len(asContents) Mod 4 > 0 Then asContents = asContents & String(4 - (Len(asContents) Mod 4), " ") lsResult = "" For lnPosition = 1 To Len(asContents) Step 4 lsGroupBinary = "" lsGroup64 = Mid(asContents, lnPosition, 4) Char1 = INSTR(sBASE_64_CHARACTER...