<% Option Explicit Response.CacheControl = "no-cache" Response.AddHeader "Pragma","no-cache" Response.Expires = 0 Response.Buffer = true Dim id ' º»ÀÎÈ®Àμ­ºñ½º ȸ¿ø»ç ¾ÆÀ̵ð Dim srvNo ' º»ÀÎÈ®Àμ­ºñ½º ¼­ºñ½º¹øÈ£ Dim reqNum ' º»ÀÎÈ®Àμ­ºñ½º ¿äû¹øÈ£ Dim retUrl ' º»ÀÎÈ®Àμ­ºñ½º °á°ú¼ö½Å URL Dim certDate ' º»ÀÎÈ®Àμ­ºñ½º ¿äû½Ã°£ Dim certGb ' º»ÀÎÈ®Àμ­ºñ½º º»ÀÎÈ®ÀÎ ÀÎÁõ¼ö´Ü Dim addVar ' º»ÀÎÈ®Àμ­ºñ½º Ãß°¡ ÆĶó¸ÞÅÍ Dim exVar ' º¹È£È­ ¿ë ÀÓ½ÃÇʵå(¼öÁ¤ÇÏ¸é ¾ÈµÊ) Dim reqInfo ' ¾Ïȣȭ Àü reqInfo Dim encStr1 ' 1Â÷ ¾Ïȣȭ ÈÄ reqInfo Dim encStr ' 2Â÷ ¾Ïȣȭ ÈÄ reqInfo Dim plainStr ' 2Â÷ ¾Ïȣȭ Àü Dim hashStr ' À§º¯Á¶ Hash °ª Dim enc ' ¾Ïȣȭ °´Ã¼ Dim hash ' ¾Ïȣȭ °´Ã¼ ' id = request("id") ' srvNo = request("srvNo") ' reqNum = request("reqNum") ' certDate = request("certDate") ' certGb = request("certGb") ' addVar = request("addVar") ' retUrl = request("retUrl") Dim curDate curDate = year(now) & right("0" & Month(now),2) & right("0" & day(now),2) & right("0" & hour(now),2) & right("0" & minute(now),2) & right("0" & second(now),2) '·£´ø¹®ÀÚ ¸¸µé±â Function random() Dim str, strlen, r, i, ds, serialCode 'º¯¼ö ¼±¾ð str = "0123456789" '·£´ýÀ¸·Î ¼±ÅÃµÈ ¹®ÀÚor ¼ýÀÚ strlen = 6 'Ãâ·ÂµÉ °ªÀÇ ÀÚ¸´¼ö ex)ÇØ´ç ±¸¹®¿¡¼­ 10ÀÚ¸®ÀÇ ·£´ý °ª Ãâ·Â Randomize '·£´ý ÃʱâÈ­ For i = 1 To strlen r = Int(len(str) * Rnd + 1) serialCode = serialCode + Mid(str,r,1) Next random = serialCode End Function '¿äû ¹øÈ£ »ý¼º reqNum = curDate & random() certDate = curDate id = "SXJT001" srvNo = "008004" 'reqNum = reqNum 'certDate = certDate certGb = "H" addVar = "" retUrl = "22http://council.siheung.go.kr/sci/popup_seed.asp" exVar = "0000000000000000" '************************************************************************************/ '* '* reqNum °ªÀº ÃÖÁ¾ °á°ú°ª º¹È£È­¸¦ À§ÇÑ SecuKey·Î È°¿ë µÇ¹Ç·Î Áß¿äÇÕ´Ï´Ù. '* reqNum Àº ½Ç¸í È®ÀÎ ¿äû½Ã Ç×»ó »õ·Î¿î °ªÀ¸·Î Áߺ¹ µÇÁö ¾Ê°Ô »ý¼º ÇØ¾ß ÇÕ´Ï´Ù. '* ÄíÅ° ¶Ç´Â Session¹× ±âŸ ¹æ¹ýÀ» »ç¿ëÇؼ­ reqNum °ªÀ» '* vname_result_seed.asp¿¡¼­ °¡Á® ¿Ã ¼ö ÀÖµµ·Ï ÇØ¾ß ÇÔ. '* »ùÇÃÀ» À§Çؼ­ ÄíÅ°¸¦ »ç¿ëÇÑ °ÍÀ̹ǷΠÂü°í ÇÏ½Ã±æ ¹Ù¶ø´Ï´Ù. '* '************************************************************************************/ '01. reqNum¸¦ ÀÌ¿ëÇؼ­ ÄíÅ°°ª »ý¼º '»ý¼º ½Ã°£Àº ȸ¿ø»ç¿¡¼­ ÁöÁ¤ Response.Cookies("REQNUM") = reqNum Response.Cookies("REQNUM").expires = DateAdd("s", 600, now) '02. ¾Ïȣȭ¸¦ À§ÇÑ ÆĶó¹ÌÅÍ Á¶ÇÕ reqInfo = id & "^" & srvNo & "^" & reqNum & "^" & certDate & "^" & certGb & "^" & addVar & "^" & exVar ' ¾Ïȣȭ ---------------------------------------------------------------------------------- On Error Resume Next '03. ½Ç¸íÈ®ÀÎ ¿äû Á¤º¸ 1Â÷ ¾Ïȣȭ Set enc = Server.CreateObject("SCISecurity.SEED") If(Err.Number <> 0) Then Response.Write "Error 1 :: ("& Err.Number &") " & Err.Description & vbCrlf & "

" End IF encStr1 = enc.PccSeedEncript(reqInfo, "") '¿äûÁ¤º¸ 1Â÷¾Ïȣȭ If(Err.Number <> 0) Then Response.Write "Error 2 :: ("& Err.Number &") " & Err.Description & vbCrlf & "

" End IF Set enc = Nothing '04. À§º¯Á¶°ËÁõ°ª »ý¼º Set hash = Server.CreateObject("SCISecurity.AES") If(Err.Number <> 0) Then Response.Write "Error 3 :: ("& Err.Number &") " & Err.Description & vbCrlf & "

" End IF hashStr = hash.PccHMacEncript(encStr1) ' ¿äûÁ¤º¸ À§º¯Á¶°ËÁõ°ª »ý¼º If(Err.Number <> 0) Then Response.Write "Error 4 :: ("& Err.Number &") " & Err.Description & vbCrlf & "

" End If Set hash = Nothing '05. ¿äû Á¤º¸ 2Â÷ ¾Ïȣȭ Set enc = Server.CreateObject("SCISecurity.SEED") If(Err.Number <> 0) Then Response.Write "Error 5 :: ("& Err.Number &") " & Err.Description & vbCrlf & "

" End IF 'µ¥ÀÌÅÍ »ý¼º ±ÔÄ¢ : "¿äûÁ¤º¸ 1Â÷ ¾Ïȣȭ^À§º¯Á¶°ËÁõ°ª^¾Ïº¹È­ È®Àå º¯¼ö" plainStr = encStr1 & "^" & hashStr & "^" & "0000000000000000" encStr = enc.PccSeedEncript(plainStr, "") ' ¿äûÁ¤º¸ 2Â÷¾Ïȣȭ If(Err.Number <> 0) Then Response.Write "Error 6 :: ("& Err.Number &") " & Err.Description & vbCrlf & "

" End IF Set enc = Nothing ' ----------------------------------------------------------------------------------------- %> º»ÀÎÈ®Àμ­ºñ½º ¼­ºñ½º Sample È­¸é