# Posted By

ginoplusio on 11/18/08

# Statistics

Viewed 410 times
Favorited by 1 user(s)

# ASP function to encrypt ID (number only)

/ Published in: ASP
Save to your folder(s)

These are two function used to encrypt and decrypt the ID you don't want to show (for example the id of the user to be saved in the cookies...)

Copy this code and paste it in your HTML
`Function Encrypt(theNumber)	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 = szEncEnd 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`

## Comments

Subscribe to comments

You need to login to post a comment.