아래 ASP 소스를 델파이 소스로 변환이 가능할까요?
델파이 전문가님들.. 변환 좀 부탁 드립니다..



<%
' Base64 인코딩 ... 디코딩...  
Const sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"

'##############################
'        Base64decode
'##############################
Function Base64decode(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_CHARACTERS, Mid(lsGroup64, 1, 1)) - 3  
        Char2 = InStr(sBASE_64_CHARACTERS, Mid(lsGroup64, 2, 1)) - 3  
        Char3 = InStr(sBASE_64_CHARACTERS, Mid(lsGroup64, 3, 1)) - 3  
        Char4 = InStr(sBASE_64_CHARACTERS, Mid(lsGroup64, 4, 1)) - 3  
        Byte1 = Chr(((Char2 And 48) \ 16) Or (Char1 * 4) And &HFF)  
        Byte2 = lsGroupBinary & Chr(((Char3 And 60) \ 4) Or (Char2 * 16) And &HFF)  
        Byte3 = Chr((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63))  
        lsGroupBinary = Byte1 & Byte2 & Byte3  
        
        lsResult = lsResult + lsGroupBinary  
Next  
Base64decode = lsResult  
End Function  


'##############################
'        Base64encode
'##############################
Function Base64encode(ByVal asContents)  
Dim lnPosition  
Dim lsResult  
Dim Char1  
Dim Char2  
Dim Char3  
Dim Char4  
Dim Byte1  
Dim Byte2  
Dim Byte3  
Dim SaveBits1  
Dim SaveBits2  
Dim lsGroupBinary  
Dim lsGroup64  

If Len(asContents) Mod 3 > 0 Then asContents = asContents & String(3 - (Len(asContents) Mod 3), " ")  
lsResult = ""  

For lnPosition = 1 To Len(asContents) Step 3  
        lsGroup64 = ""  
        lsGroupBinary = Mid(asContents, lnPosition, 3)  

        Byte1 = Asc(Mid(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3  
        Byte2 = Asc(Mid(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15  
        Byte3 = Asc(Mid(lsGroupBinary, 3, 1))  

        Char1 = Mid(sBASE_64_CHARACTERS, ((Byte1 And 252) \ 4) + 3, 1)  
        Char2 = Mid(sBASE_64_CHARACTERS, (((Byte2 And 240) \ 16) Or (SaveBits1 * 16) And &HFF) + 3, 1)  
        Char3 = Mid(sBASE_64_CHARACTERS, (((Byte3 And 192) \ 64) Or (SaveBits2 * 4) And &HFF) + 3, 1)  
        Char4 = Mid(sBASE_64_CHARACTERS, (Byte3 And 63) + 3, 1)  
        lsGroup64 = Char1 & Char2 & Char3 & Char4  
        
        lsResult = lsResult + lsGroup64  
Next  

Base64encode = lsResult  
End Function

%>