%
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
' -----------------------------------------------------------------------------------------
%>