[ASP] 간단히 사용할 수 있는 암호화

간단하게 숫자형으로 사용할 수 있는 암호화입니다. 

단 해독도 쉬우니 중요한 데서는 사용안하는게 좋아요 ㅎㅎ

'-------------정보->숫자
Function CharToNum(Str)
     tmp = ""
     For i = 1 To Len(Str)
         tmp = tmp & Right(1000 + Asc(Mid(Str, i, 1)), 3)
     Next
     CharToNum = tmp
End Function
 
'-------------숫자->정보
Function NumToChar(Str)
     tmp = ""
     If IsNumeric(Str) Then
         For i = 1 To Len(Str) Step 3
          tmp = tmp & Chr(Mid(Str, i, 3))
         Next
    End If
     NumToChar = tmp
End Function