encrypt.asp

花钱买的毕业设计。企业网络管理系统

<%
Function Encrypt(theNumber)
	On Error Resume Next
	Dim n, szEnc, t, HiN, LoN, i
	n = CDbl((theNumber + 1570) ^ 2 - 7 * (theNumber + 1570) - 450)
	If n < 0 Then szEnc = "R" Else szEnc = "J"
	n = CStr(abs(n))
	For i = 1 To Len(n) step 2
		t = Mid(n, i, 2)
		If Len(t) = 1 Then
			szEnc = szEnc & t
			Exit For	
		End If
		HiN = (CInt(t) And 240) / 16
		LoN = CInt(t) And 15
		szEnc = szEnc & Chr(Asc("M") + HiN) & Chr(Asc("C") + LoN)
	Next
	Encrypt = szEnc
End Function

Function Decrypt(theNumber)
	On Error Resume Next
	Dim e, n, sign, t, HiN, LoN, NewN, i
	e = theNumber
	If Left(e, 1) = "R" Then sign = -1 Else sign = 1
	e = Mid(e, 2)
	NewN = ""
	For i = 1 To Len(e) step 2
		t = Mid(e, i, 2)
		If Asc(t) >= Asc("0") And Asc(t) <= Asc("9") Then
		NewN = NewN & t
			Exit For
		End If
		HiN = Mid(t, 1, 1)
		LoN = Mid(t, 2, 1)
		HiN = (Asc(HiN) - Asc("M")) * 16
		LoN = Asc(LoN) - Asc("C")
		t = CStr(HiN Or LoN)
		If Len(t) = 1 Then t = "0" & t
		NewN = NewN & t
	Next
e = CDbl(NewN) * sign
Decrypt = CLng((7 + sqr(49 - 4 * (-450 - e))) / 2 - 1570)
End Function

Function Str2NumEnc(vIn) 
	dim strReturn,ThisCharCode,NextCharCode
	strReturn = "" 
	For i = 1 To Len(vIn) 
 		strReturn = strReturn & "%" & Encrypt(AscW(Mid(vIn,i,1)))
	Next 
	Str2NumEnc = strReturn 
End Function 

Function Num2StrDec(vIn) 
	dim strReturn,arr,i
	strReturn = ""
	arr = split(vIn,"%")
	For each i in arr
		if i <> "" then
			strReturn = strReturn & ChrW(eval(Decrypt(i)))
		end if
	Next 
	Num2StrDec = strReturn 
End Function 

Function Str2Num(vIn) 
	dim strReturn,ThisCharCode,NextCharCode
	strReturn = "" 
	For i = 1 To Len(vIn) 
  	ThisCharCode = hex(AscW(Mid(vIn,i,1)))
  	if (len(ThisCharCode) mod 2) <> 0 then
  	  ThisCharCode = "0" & ThisCharCode
  	end if
 		strReturn = strReturn & "%" & ThisCharCode
	Next 
	Str2Num = strReturn 
End Function 

Function Num2Str(vIn) 
	dim strReturn,arr,i
	strReturn = ""
	arr = split(vIn,"%")
	For each i in arr
		if i <> "" then
			strReturn = strReturn & ChrW(eval("&H" & i))
		end if
	Next 
	Num2Str = strReturn 
End Function 
%>