Thread: Encryption

    #1
  1. Contributing User
    ASP High Scholar (3500 - 3999 posts)

    Join Date
    Jul 2005
    Location
    Oxford UK
    Posts
    3,897
    Rep Power
    989

    Encryption


    hi

    i am passing clientid through querystring.now what i want to do is to encrypt this id.

    my url is like this
    Code:
    https://www.shail.com/Portal/admin/clientadmin/employeeSummary/frameset.asp?lngClientID=1202&strPage=Summary
    any good way for encryption?
    thanx
    Nothing is Impossible bcoz IMPOSSIBLE itself says..
    I M POSSIBLE........................
    Be cool !!!!!!!!
  2. #2
  3. Contributing User
    ASP Skiller (1500 - 1999 posts)

    Join Date
    Jun 2004
    Posts
    1,657
    Rep Power
    238
    I use the following simple encryption method

    Code:
    <%
    	//---This is to encrypt and decrypt
       Dim sbox(255)
       Dim key(255)
    
       Sub RC4Initialize(strPwd)
       '----  This routine called by EnDeCrypt function. Initializes the   sbox and the key array)                                   
    
          dim tempSwap
          dim a
          dim b
    
          intLength = len(strPwd)
          For a = 0 To 255
             key(a) = asc(mid(strpwd, (a mod intLength)+1, 1))
             sbox(a) = a
          next
    
          b = 0
          For a = 0 To 255
             b = (b + sbox(a) + key(a)) Mod 256
             tempSwap = sbox(a)
             sbox(a) = sbox(b)
             sbox(b) = tempSwap
          Next
       
       End Sub
       
       Function EnDeCrypt(plaintxt, psw)
       '--  This routine does all the work. Call it both to ENcrypt   and to DEcrypt your data.                                  
          dim temp
          dim a
          dim i
          dim j
          dim k
          dim cipherby
          dim cipher
    
          i = 0
          j = 0
    
          RC4Initialize psw
    
          For a = 1 To Len(plaintxt)
             i = (i + 1) Mod 256
             j = (j + sbox(i)) Mod 256
             temp = sbox(i)
             sbox(i) = sbox(j)
             sbox(j) = temp
       
             k = sbox((sbox(i) + sbox(j)) Mod 256)
    
             cipherby = Asc(Mid(plaintxt, a, 1)) Xor k
             cipher = cipher & Chr(cipherby)
          Next
    
          EnDeCrypt = cipher
    
       End Function
    
    //================Usage
    
    //---this can be any text but use the same text to encrypt and decrypt
    psw = "anytext"
    //---To encrypt
    Enc = EnDeCrypt("hello" , psw) 
    response.write Enc &"<br>"
    //---to decrypt
    Dec= EnDeCrypt(Enc , psw) 
    response.write Dec &"<br>"
    %>
    Important note:- when you pass the encrypted value as querystring you have to use Server.URLEncode(encrptedvalue) otherwise it will not be correctly decrypted.

    Comments on this post

    • Guddu agrees
    Last edited by barneybabe; February 19th, 2008 at 12:03 AM.
  4. #3
  5. Contributing User
    ASP High Scholar (3500 - 3999 posts)

    Join Date
    Jul 2005
    Location
    Oxford UK
    Posts
    3,897
    Rep Power
    989
    thanx for reply let me check
  6. #4
  7. Contributing User
    ASP High Scholar (3500 - 3999 posts)

    Join Date
    Jul 2005
    Location
    Oxford UK
    Posts
    3,897
    Rep Power
    989
    hi i m getting divide by zero error at this line
    Code:
     key(a) = asc(mid(strpwd, (a mod intLength)+1, 1))
  8. #5
  9. Contributing User
    ASP Skiller (1500 - 1999 posts)

    Join Date
    Jun 2004
    Posts
    1,657
    Rep Power
    238
    what is the pwd and the string you are trying to encrypt?
  10. #6
  11. Contributing User
    ASP High Scholar (3500 - 3999 posts)

    Join Date
    Jul 2005
    Location
    Oxford UK
    Posts
    3,897
    Rep Power
    989
    now its working...i m not using server.urlencode but still working
  12. #7
  13. Contributing User
    ASP Skiller (1500 - 1999 posts)

    Join Date
    Jun 2004
    Posts
    1,657
    Rep Power
    238
    It would be better you use the server.urlencode otherwise you may get into trouble later.
  14. #8
  15. Contributing User
    ASP High Scholar (3500 - 3999 posts)

    Join Date
    Jul 2005
    Location
    Oxford UK
    Posts
    3,897
    Rep Power
    989
    okay thanx a lot

Similar Threads

  1. Encryption in SSIS package
    By kmurlikrishna in forum Microsoft SQL Server
    Replies: 1
    Last Post: October 27th, 2006, 11:09 AM
  2. Encryption Problem
    By russ21282 in forum ASP Development
    Replies: 1
    Last Post: July 31st, 2006, 06:17 AM
  3. Symmetric encryption
    By kshinningstr in forum ASP Development
    Replies: 1
    Last Post: February 22nd, 2006, 09:29 PM
  4. Simple Encryption
    By freeasphelp in forum Code Bank
    Replies: 4
    Last Post: June 7th, 2005, 10:25 AM
  5. Coding for Browser Encryption
    By Steve Schofield in forum ASP Development
    Replies: 0
    Last Post: September 4th, 2001, 12:58 PM

IMN logo majestic logo threadwatch logo seochat tools logo