url = "https://tapproval.smartropay.co.kr/payment/approval/cancel.do"  		' 테스트
' url = "https://approval.smartropay.co.kr/payment/approval/cancel.do" 		' 운영

Tid = ""			' 취소 요청할 Tid 입력
Mid = ""			' 발급받은 테스트 Mid 설정(Real 전환 시 운영 Mid 설정)
CancelAmt = "1004"	' 취소할 거래금액
CancelSeq = "1"		' 취소차수(기본값: 1, 부분취소 시마다 차수가 1씩 늘어남. 첫번째 부분취소=1, 두번째 부분취소=2, ...)
PartialCancelCode = "0"		' 0: 전체취소, 1: 부분취소
MerchantKey = ""  			' 발급받은 테스트 상점키 설정(Real 전환 시 운영 상점키 설정)
' 검증값 SHA256 암호화(Tid + MerchantKey + CancelAmt + PartialCancelCode)
HashData = CryptoUtil.Sha256Encrypt(Tid & MerchantKey & CancelAmt & PartialCancelCode)

' 취소 요청 파라미터 셋팅
Set paramData = jsObject()
paramData("SERVICE_MODE") = "CL1"
paramData("Tid") = Tid
paramData("Mid") = Mid
paramData("CancelAmt") = CancelAmt
paramData("CancelPwd") = ""
paramData("CancelMsg") = ""
paramData("CancelSeq") = CancelSeq
paramData("PartialCancelCode") = PartialCancelCode
' 과세, 비과세, 부가세 셋팅(부가세 직접 계산 가맹점의 경우 각 값을 계산하여 설정해야 합니다.)
paramData("CancelTaxAmt") = ""
paramData("CancelTaxFreeAmt") = ""
paramData("CancelVatAmt") = ""
' 분할정산 사용 가맹점의 경우, DivideInfo 파라미터를 가맹점에 맞게 설정해 주세요. (일반연동 참고)
paramData("DivideInfo") = ""
' HASH 설정 (필수)
paramData("HashData") = HashData


// DLL 암호화 소스
using System;
using System.EnterpriseServices;
using System.IO;
using System.Runtime.InteropServices;
using System.Security.Cryptography;
using System.Text;

namespace SmartropayLib
{
	public class CryptoUtil : ServicedComponent
    {
        /// 

        /// SHA256 암호화
        /// 
        /// 문자열
        /// 암호화 문자열
        public string Sha256Encrypt(string text)
        {
            SHA256Managed sha256Managed = new SHA256Managed();
            byte[] encryptBytes = sha256Managed.ComputeHash(Encoding.UTF8.GetBytes(text));

            return Convert.ToBase64String(encryptBytes);
        }
    }
}
		
    

        
' json 데이터 AES256 암호화
EncData = CryptoUtil.Aes256Encrypt(paramData, left(merchantKey, 32))

Set body = jsObject()
body("EncData") = EncData
body("Mid") = Mid

result = sendPost(url, body)

Function sendPost(url, objJson)
    Set httpRequest = Server.CreateObject("MSXML2.ServerXMLHTTP")
    httpRequest.open "POST", url, False
    httpRequest.setRequestHeader "Content-type","application/json"
	httpRequest.setRequestHeader "Accept","application/json"
    httpRequest.send objJson.jsString
    postResponse = httpRequest.ResponseText

	sendPost = postResponse
End Function


// DLL 암호화 소스
using System;
using System.EnterpriseServices;
using System.IO;
using System.Runtime.InteropServices;
using System.Security.Cryptography;
using System.Text;

namespace SmartropayLib
{
	public class CryptoUtil : ServicedComponent
    {
        /// 

        /// AES256 암호화
        /// 
        /// 문자열
        /// 키
        /// 암호화 문자열
        public string Aes256Encrypt(string text, string key)
        {
            RijndaelManaged aes = new RijndaelManaged();
            aes.KeySize = 256;
            aes.BlockSize = 128;
            aes.Mode = CipherMode.CBC;
            aes.Padding = PaddingMode.PKCS7;
            aes.Key = Encoding.UTF8.GetBytes(key);
            aes.IV = new byte[] { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 };

            var encrypt = aes.CreateEncryptor(aes.Key, aes.IV);
            byte[] xBuff = null;
            using (var ms = new MemoryStream())
            {
                using (var cs = new CryptoStream(ms, encrypt, CryptoStreamMode.Write))
                {
                    byte[] xXml = Encoding.UTF8.GetBytes(text);
                    cs.Write(xXml, 0, xXml.Length);
                }
                xBuff = ms.ToArray();
            }

            return Convert.ToBase64String(xBuff);
        }
        
        /// 

        /// AES256 복호화
        /// 
        /// 암호화 문자열
        /// 키
        /// 복호화 문자열
        public string Aes256Decrypt(string text, string key)
        {
            RijndaelManaged aes = new RijndaelManaged();
            aes.KeySize = 256;
            aes.BlockSize = 128;
            aes.Mode = CipherMode.CBC;
            aes.Padding = PaddingMode.PKCS7;
            aes.Key = Encoding.UTF8.GetBytes(key);
            aes.IV = new byte[] { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 };
 
            var decrypt = aes.CreateDecryptor();
            byte[] xBuff = null;
            using (var ms = new MemoryStream())
            {
                using (var cs = new CryptoStream(ms, decrypt, CryptoStreamMode.Write))
                {
                    byte[] xXml = Convert.FromBase64String(text);
                    cs.Write(xXml, 0, xXml.Length);
                }
                xBuff = ms.ToArray();
            }
 
            return Encoding.UTF8.GetString(xBuff);
        }
    }
}