프리랜서 개발자

capicom 2.1.0.2 다운로드 32Bit  C:\Program Files\Microsoft CAPICOM 2.1.0.2\Lib 에서  %systemroot%\System32\ 로 카피 cmd에서 등록                                 %systemroot%\System32\regsvr32.exe capicom.dll 64Bit C:\Program Files (x86)\Microsoft CAPICOM 2.1.0.2 SDK\Lib 에서  %systemroot%\SysWoW64\ 로 카피 cmd에서 등록                                                             %systemroot%\SysWoW64\regsvr32.exe capicom.dll 주의할점 64비트OS에서 사용가능한거지 64비트 버젼은 아닙니다. 64비트버전의 OS에서는  iis관리도구 -> 응용프로그램풀에 고급에서 32비트응용프로그램사용  true로 설정 (이런식으로 등록되면 정작 64비트 com+사용을 못함 유의해야함.  wsc를 사용한다면 32비트방식으로 등록해야 합니다.)

CAPICOM은 디지털 서명 데이터, 서명 코드, 디지털 서명 확인, 개인 정보를 위한 데이터 보호, 데이터 해시, 데이터 암호화/해독 등에 사용할 수 있습니다 ' 예제에 나와있는 해시의 상수들 rsa 방식을 제공하고 base64인코딩 지원(한글 않깨짐) Const CAPICOM_HASH_ALGORITHM_SHA1 = 0 Const CAPICOM_HASH_ALGORITHM_MD2 = 1 Const CAPICOM_HASH_ALGORITHM_MD4 = 2 Const CAPICOM_HASH_ALGORITHM_MD5 = 3 Const CAPICOM_HASH_ALGORITHM_SHA256 = 4 Const CAPICOM_HASH_ALGORITHM_SHA384 = 5 Const CAPICOM_HASH_ALGORITHM_SHA512 = 6 Function MD5 (strString) Dim cp Set cp = Server.CreateObject( "CAPICOM.HashedData" ) cp.Algorithm = 3 'md5 cp.Hash Ustr2Bstr(strString) 'Unicode string - > Byte String Conversion MD5 = cp.Value Set cp = Nothing End Function ' capicom에 나온 결과를 그대로 써도 무방하나 타 언어와 ' 암호화된 것을 교류한다면 변환함수 꼭 쓰세요 Function UStr2Bstr (UStr) 'Unicode string to Byte string conversion Dim lngLoop Dim strChar Dim strResult strResult...